For the following sample plot, how can I make the FrameTicks
appear bold in black color?
Following is the sample code:
Show[
Plot[
{Sin[x], x}
, {x, 0, π}
, Epilog -> {
Black, AbsolutePointSize[5]
, Point[{π/8, Sin[π/8]}]
}
, Frame -> True
, FrameStyle -> Directive[Black]
, FrameTicks -> {
{{-1, -0.5, 0, -0, 0.5, 1}, None}
, {{0.0, π/4, π/2, π, 3 π/4, 2 π}, None}
}
, Axes -> {False, False}
, PlotLegends -> Placed[
LineLegend[{"Sin", "x"}
, LegendLayout -> {"Column", 1}
, LegendMarkerSize -> 15]
, {0.2, 0.2}
]
]
, PlotRange -> {{0.0, π}, {-1, 1}}
, AxesLabel -> {x, "E"}
, LabelStyle -> {GrayLevel[0]}
]
For example, how would I mimic ticks in the following plot?