0
$\begingroup$

Consider the following code. I don't want the ticks on the right side. The ticks notation must remain in scientific form.

Plot [Exp[x], {x, 0, 10}, GridLines -> None, 
PlotStyle -> {Red, Thick}, PlotStyle -> {Red, Thick},FrameLabel -> 
{Style["x", FontSlant -> Italic], "Exp(x)"},FrameTicksStyle -> 
{Directive[Black, 19], Directive[Black, 19]}, 
LabelStyle -> {Bold, Directive[Black, 22]}, 
BaseStyle -> {FontFamily -> "Times"}, Frame -> True, 
PlotRange -> All, 
FrameTicks -> {Automatic, 
Table[{i, ScientificForm@i}, {i, 0., 25000, 5000}]}]

Here is the result: enter image description here

$\endgroup$

closed as off-topic by MarcoB, Michael E2, m_goldberg, garej, LCarvalho Jul 10 '17 at 11:36

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – MarcoB, Michael E2, m_goldberg, garej, LCarvalho
If this question can be reworded to fit the rules in the help center, please edit the question.

4
$\begingroup$

One possible way is to use replace your ticks options used with this

Plot[Exp[x], {x, 0, 10}, GridLines -> None, PlotStyle -> {Red, Thick},
  PlotStyle -> {Red, Thick}, 
 FrameLabel -> {Style["x", FontSlant -> Italic], "Exp(x)"}, 
 FrameTicksStyle -> {Directive[Black, 19], Directive[Black, 19]}, 
 LabelStyle -> {Bold, Directive[Black, 22]}, 
 BaseStyle -> {FontFamily -> "Times"}, Frame -> True, PlotRange -> All,
 FrameTicks -> {{Table[{i, ScientificForm@i}, {i, 0., 25000, 5000}], 
    None}, {Automatic, None}}]

Mathematica graphics

Reference http://reference.wolfram.com/language/ref/FrameTicks.html.en

$\endgroup$
2
$\begingroup$

Assuming that you actually want the ticks but not the tick labels on the top and right side

Plot[Exp[x], {x, 0, 10},
 PlotStyle -> Directive[Red, Thick],
 FrameLabel -> (Style[#, FontSlant -> Italic] & /@
    {"x", "Exp(x)"}),
 FrameTicksStyle -> Directive[Black, 19],
 LabelStyle -> {Bold, Black, 22},
 BaseStyle -> {FontFamily -> "Times"},
 Frame -> True,
 PlotRange -> All,
 FrameTicks -> {
   {Table[{i, ScientificForm@i}, {i, 0., 25000, 5000}],
    Automatic}, {Automatic, Automatic}}]

enter image description here

$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.