Wolfram mathematica 使轴和记号在绘图中不可见，但保留标签

我想制作一个mathematica绘图，没有可见的y轴，但保留记号标签

我尝试过AxesStyle->{Thickness[.001]，Thickness[0]}，但没有效果，将不透明度设置为0也会使记号标签完全透明（因此不可见）

任何帮助都将不胜感激

p = Plot[Sin[x], {x, 0, 6 Pi},
 AxesStyle -> {Black, Opacity[0]},
 TicksStyle -> Directive[Opacity[1], Black]]

ticks = AbsoluteOptions[p, Ticks];

ticks[[1, 2, 2]] = DeleteCases[ticks[[1, 2, 2]], {_, "", __}];

ticks[[1, 2, 2, All, 3]] = ConstantArray[{0, 0},
   Length[ticks[[1, 2, 2, All, 3]]]];

ticks[[1, 2, 2, All, 2]] = Map[ToString,
    ticks[[1, 2, 2, All, 2]]] /. a_String :>
    If[StringTake[a, -1] == ".", a <> "0", a];

Plot[Sin[x], {x, 0, 6 Pi},
 AxesStyle -> {Black, Directive[Opacity[0], Red]},
 TicksStyle -> Directive[Opacity[1], Black],
 Ticks -> {Automatic, ticks[[1, 2, 2]]}]

{-1.，-1.0}，{-0.5，-0.5}，{0,0}，{0.5,0.5}，{1,1.0}

在这里实施：

p = Plot[Sin[x], {x, 0, 6 Pi},
   AxesStyle -> {Automatic, Opacity[0]},
   TicksStyle -> Opacity[1]];
ticks = AbsoluteOptions[p, Ticks];
onestyledtick = ticks[[1, 2, 2, 1]];
labels = Cases[Charting`FindTicks[{0, 1}, {0, 1}] @@
    PlotRange[p][[2]], {_, _}];
yticks = Map[Join[#, {{0, 0}},
     Take[onestyledtick, -1]] &, labels];
Plot[Sin[x], {x, 0, 6 Pi},
 AxesStyle -> {Automatic, Opacity[0]},
 TicksStyle -> Opacity[1],
 Ticks -> {Automatic, yticks}]

相关提示：太好了——这肯定行得通（很高兴看到在绘制图时设置一个选项是无法做到的：-）

p = Plot[Sin[x], {x, 0, 6 Pi},
   AxesStyle -> {Automatic, Opacity[0]},
   TicksStyle -> Opacity[1]];
ticks = AbsoluteOptions[p, Ticks];
onestyledtick = ticks[[1, 2, 2, 1]];
labels = Cases[Charting`FindTicks[{0, 1}, {0, 1}] @@
    PlotRange[p][[2]], {_, _}];
yticks = Map[Join[#, {{0, 0}},
     Take[onestyledtick, -1]] &, labels];
Plot[Sin[x], {x, 0, 6 Pi},
 AxesStyle -> {Automatic, Opacity[0]},
 TicksStyle -> Opacity[1],
 Ticks -> {Automatic, yticks}]