如何根据R中的X值绘制两个Y轴？

Question

这里是我的问题，我有这样

A B C D 

a 24 1 2 3 

b 26 2 3 1 

c 25 3 1 2 

数据现在我想要绘制在Y轴（0〜30）和B〜d在另一个Y轴在（0至5）一张图。此外，我想a，b，c行有一条线将它们连接在一起（可以说a，b，c代表鼠标ID）。任何人都可以想出如何做到这一点的想法？我更喜欢使用R.预先感谢！

Answer 1

# create some data 
data = as.data.frame(list(A = c(24,26,25), 
        B = c(1,2,3), 
        C = c(2,3,1), 
        D = c(3,1,2))) 

# adjust your margins to allow room for your second axis 
par(mar=c(5, 4, 4, 4) + 0.1) 
# create your first plot 
plot(1:3,data$A,pch = 19,ylab = "1st ylab",xlab="index") 

# set par to new so you dont' overwrite your current plot 
par(new=T) 
# set axes = F, set your ylim and remove your labels 
plot(1:3,data$B,ylim = c(0,5), pch = 19, col = 2, 
    xlab="", ylab="",axes = F) 

# add your points 
points(1:3,data$C,pch = 19,col = 3) 
points(1:3,data$D, pch = 19,col = 4) 

# set the placement for your axis and add text 
axis(4, ylim=c(0,5)) 
mtext("2nd ylab",side=4,line=2.5) 

Answer 2

我非常喜欢使用ggplot2用于绘图。不幸的是，ggplot2不支持这个for philosophical reasons。

我想提出其使用方面的替代，即次要情节。请注意，为了能够使用ggplot2绘制数据，我们需要更改数据结构。我们使用tidyr包中的gather来执行此操作。另外，我用在dplyr定义的编程风格（使用管道很多）：

library(ggplot2) 
library(dplyr) 
library(tidyr) 

df = data.frame(A = c(24, 26, 25), B = 1:3, C = c(2, 3, 1), D = c(3, 1, 2)) 
plot_data = df %>% mutate(x_value = rownames(df)) %>% gather(variable, value, -x_value) 
ggplot(plot_data) + geom_line(aes(x = x_value, y = value, group = variable)) + 
        facet_wrap(~ variable, scales = 'free_y') 

在这里，每个子图有它自己的y轴。