添加附加Y轴中的R与GGPLOT2

Question

比方说，我有，我已经绘制（在Y0轴绘制在左手侧）下面的（X0，Y0）数据：

x0,y0 
----- 
500,1 
200,3 
... 

进一步我有另一组给出的数据（X1，Y1）的：

x1 y1 
----- 
1.5,1 
3.2,2 
... 

我想在右侧添加加成Y1轴，这将有X1作为断点和y 1为标签。 x1和y0具有相同的尺度，但是这两个数据集的长度不同，并且没有哪个公式可以用来从y0中导出x1。

谢谢

Answer 1

这并不完全清楚你在找什么。是这样的吗？

df1 <- data_frame(x0 = c(500, 300), 
       y0 = c(1, 3)) 

df2 <- data_frame(x1 = c(1.5, 3.2), 
        y1 = c(1, 2)) 

ggplot(df1, aes(x0, y0)) + geom_point() + 
    scale_y_continuous(expand = c(0.5,0.5), 
        sec.axis = sec_axis(trans = . ~ ., 
             breaks = df2$x1, labels = df2$y1))