FrameTicks and Ticks on Axes in Same Plot

Question

I have a plot where I would like ticks shown on both the axes and the frame, with them labeled separately. I have custom labels for the frame and want the horizontal axis labeled with ticks automatically. Despite setting both the Ticks and the Frame properties, I cannot get the ticks to show up on the axes. Is there a way to do this without drawing the ticks manually or something like that? My example is shown below, I am able to get automatic ticks on the top of the frame, but these are not labeled either.

Plot[xt[t], {t, 0, .5*10^-3}, 
  Ticks -> Automatic, 
  FrameLabel -> {{"x [m]", None}, {"t", None}},
  Frame -> True,
  FrameTicks -> {{Automatic, None}, {{{0, "t'"}, {.0005, "t'+5 ms"}}, Automatic}}]

Answer 1

As noticed in this topic it is impossible an could be confusing. The solution is as usual, Overlay :)

With[{opt = Sequence[ImagePadding -> {{65, 25}, {40, 15}}, BaseStyle -> {Bold, 15}]},

 Overlay@{

   Plot[Sin[t], {t, 0, 2 Pi}, FrameLabel -> {{"x [m]", ""}, {"t", ""}}, Frame -> True, 
    FrameTicks -> {{Automatic, None}, {{{0, "t'"}, {2 Pi, "t'+5 ms"}}, Automatic}}, 
    Axes -> False, opt],

   Plot[Sin[t], {t, 0, 2 Pi}, Axes -> {True, False}, PlotStyle -> None, opt]
 }]

Answer 2

Here is a solution that doesn't use Overlay, making the result still a Graphics object.

Using the function extraAxisPlot, defined in this post, you get

extraAxisPlot[
 Plot[Sin[10^5 t] (.7 10^-3 - t), {t, 0, .5*10^-3},
  Ticks -> Automatic,
  FrameLabel -> {{"x [m]", None}, {"t", None}},
  Frame -> True,
  ImageSize -> 450,
  FrameTicks -> {{Automatic, None}, {{{0, "t'"}, {.0005, "t'+5 ms"}}, 
     Automatic}}],
 {0, .5*10^-3},
 {0, 0}
 ]

The arguments to extraAxisPlot are the original plot, the range of the extra axis, and the initial point for it to start at.

Answer 3

AxisObject was introduced in version 12.3 to solve just this type of problem:

Plot[Sin @ t,
    {t, 0, 2 * Pi},
    FrameLabel -> {{"x [m]", ""}, {"t", ""}},
    Frame -> True,
    FrameTicks -> {
        {Automatic, None},
        {{{0, "t'"}, {2 * Pi, "t'+5 ms"}}, Automatic}
    },
    Axes -> False,
    Prolog -> AxisObject[{"Horizontal", 0}]
]

Since AxisObject is a graphics primitive, I'm just feeding it in using the Prolog option to Plot.

Answer 4

Since you do not provide a definition for x[t], I can't reproduce your plot, but maybe the following code will suggest a work-around that you will find satisfactory.

Plot[Sin[t], {t, 0, 2. Pi},
  Frame -> True,
  FrameLabel -> {{"x [m]", None}, {"t", None}}, 
  FrameTicks -> {{Automatic, None}, {{{0, "0"}, {Pi, "π"}, {2 Pi, "2\[ThinSpace]π"}}, All}}] 

As you can see, changing the specification of the top ticks from Automatic to All makes the default labeling visible.