Two ListLinePlots together with two vertical axes

Question

I have two data sets data1 and data2:

SeedRandom[1];
data1 = Sort[RandomReal[1, {10, 2}]];
data2 = Sort[RandomReal[2, {10, 2}]];

I would like to plot both data sets in one common plot with two different colors.

• the left vertical scale should extend from 0 to 1 for plot1
• the right vertical scale should extend from 0 to 2 for plot2

How can I do that?

Answer 1

SeedRandom[1];
data1 = Sort[RandomReal[1, {10, 2}]];
data2 = Sort[RandomReal[2, {10, 2}]];

Something about the grouping for Frame, FrameStyle and FrameTicks is a bit out of date in the previous answer. Try

plot1 = ListPlot[data1,
  PlotRange -> {{0, 1}, {0, 1}},
  PlotStyle -> Blue,
  ImagePadding -> 25,
  Frame -> {{True, False}, {True, True}}, 
  FrameStyle -> {{Blue, Automatic}, {Blue, Blue}}
  ]

plot2 = ListPlot[data2,
  PlotRange -> {{0, 1}, {0, 2}},
  PlotStyle -> Red,
  ImagePadding -> 25,
  Axes -> False,
  Frame -> {{False, True}, {False, False}},
  FrameTicks -> {{None, All}, {None, None}}, 
  FrameStyle -> {{Automatic, Red}, {Automatic, Red}}
  ]

Overlay[{plot1, plot2}]