Creating a plot without an x-axis and automatic ticks for the y-axis

Question

I am trying to plot a function with specific options for the appearance of the plot. I want the X axis to not show up, and the Y axis to be labeled normally (i.e. numbers outside the plot).. Yet, I don't get any numbers in the Y axis' ticks:

The code I am using is the following (the function to be plotted is different, but still returns this behavior):

Plot[5 t + 3, {t, 0, 10},
    PlotRange -> All,
    AxesOrigin -> {10, 0},     
    LabelStyle -> {FontFamily -> "Arial", Bold, 40},
    Axes -> {False, True},
    PlotStyle -> {{Thickness[0.007], Darker[Blue, 0.5]}},     
    AxesStyle -> AbsoluteThickness[3], ImageSize -> {640, 480}
]

Could you please help me get the ticks numbered automatically?

Answer 1

The problem with your plot is that you are using the y-axis on the left, but positioning it on the right by shifting the origin. However, its behaviour is still that of a left-axis (i.e., ticks are to the left of the line). What you need is a right-axis, where the ticks are to the right (with the origin remaining where it should be).

You can do this by using Frame and setting only the right frame to be visible. Note that all the Axes* options will now be named Frame*.

Plot[5 t + 3, {t, 0, 10}, 
    LabelStyle -> {FontFamily -> "Arial", Bold, 40}, 
    Frame -> {{False, True}, {False, False}}, 
    FrameTicks -> {{None, All}, {None, None}}, 
    PlotStyle -> {{Thickness[0.007], Darker[Blue, 0.5]}}, 
    FrameStyle -> AbsoluteThickness[3], ImageSize -> {640, 480}, 
    PlotRange -> All
]

Answer 2

You don't need to switch from axes to frame. And you may not be able to use a frame if the axis happens to be inside the plot instead of at the border.

So the way to get what you want with the minimum changes to your original code is this:

Plot[5 t + 3, {t, 0, 10}, 
 PlotRange -> All, 
 AxesOrigin -> {10, 0}, 
 LabelStyle -> {FontFamily -> "Arial", Bold, 40}, 
 PlotStyle -> {{Thickness[0.007], Darker[Blue, 0.5]}}, 
 AxesStyle -> {Opacity[0], AbsoluteThickness[3]}, 
 ImageSize -> {640, 480}]

All I did is to remove Axes -> {False, True}, and then modified the AxesStyle to make the x axis invisible.

To see how this differs from the solution using Frame, I'll move the axis into the middle:

Plot[5 t + 3, {t, 0, 10}, 
 PlotRange -> All, 
 AxesOrigin -> {5, 0}, 
 LabelStyle -> {FontFamily -> "Arial", Bold, 40}, 
 PlotStyle -> {{Thickness[0.007], Darker[Blue, 0.5]}}, 
 AxesStyle -> {Opacity[0], AbsoluteThickness[3]}, 
 ImageSize -> {640, 480}]