如图所示，我打算把方框上边和右边的刻度标签去掉，但是保留刻度，请问如何处理？
Plot[Sin[x], {x, 0, 10},
PlotRange -> {{0, 10}, {-1, 1}},
FrameLabel -> {t[Text[s]], d[Text[mm]]},
PlotStyle -> {Thick, Red},
Frame -> True,
BaseStyle -> {FontFamily -> "Times New Roman", FontSize -> 20},
FrameTicks -> {Table[{i, i, {0.015, 0}, Directive[Black]}, {i, 0, 10,
2}], Table[{i, i, {0.015, 0}, Directive[Black]}, {i, -1, 1,
0.5}]},
AxesStyle -> Directive[Black, Thick],
Axes -> False,
FrameStyle -> Directive[Black, Thick],
FrameTicksStyle -> {{Black, Black}, {Black, Black}}]

FrameTicks -> {{Table[{i, i, {0.015, 0}, Directive[Black]}, {i, -1, 1,
0.5}], Table[{i, "", {0.015, 0}, Directive[Black]}, {i, -1, 1,
0.5}]}, {Table[{i, i, {0.015, 0}, Directive[Black]}, {i, 0, 10,
2}], Table[{i, "", {0.015, 0}, Directive[Black]}, {i, 0, 10,
2}]}}
注意这种写法是y的ticks在先

非常照