如何根據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軸。