R语言 绘制具有两个Y轴的图画

在这篇文章中，我们将讨论如何在R编程语言中创建一个图的两边的Y轴。

有时为了快速分析数据，需要创建一个具有两个不同尺度的数据变量的单一图表。要做到这一点，在R语言中我们使用以下步骤。

首先，我们创建一个样本数据，比如样本数据由三个数字向量组成。x, y1, 和y2。x数据将决定X轴的信息，而y1和y2将同时用于两个Y轴。

现在，我们将创建一个具有两种不同颜色的散点图，并在图的左右两边显示Y轴的数值。要做到这一点，首先我们要在图的周围创建白色空间。这就为第二条Y轴留下了空间。这可以用par()方法完成。现在，在考虑到数据y1的第一个Y轴周围创建第一个图（即红色十字点）。

语法

plot(x, y1, pch , col )

接下来，在par()方法中设置new为TRUE。这需要在创建第一个绘图后再次调用。这将告诉绘图者，一个新的绘图将在第一个绘图上绘制。

语法

par(new = TRUE)

接下来，在考虑到y2数据的情况下绘制第二个图。

语法

plot(x, y2, pch = 15, col = 3, axes = FALSE, xlab = "", ylab = "" )

接下来，如果需要的话，设置轴或任何附加属性。

例子

# Create sample data
set.seed(2585)                           
  
x <- rnorm(45)
y1 <- x + rnorm(45)
y2 <- x + rnorm(45, 7)
  
# Draw first plot using axis y1
par(mar = c(7, 3, 5, 4) + 0.3)              
plot(x, y1, pch = 13, col = 2)  
  
# set parameter new=True for a new axis
par(new = TRUE)         
  
# Draw second plot using axis y2
plot(x, y2, pch = 15, col = 3, axes = FALSE, xlab = "", ylab = "")
  
axis(side = 4, at = pretty(range(y2)))      
mtext("y2", side = 4, line = 3)

输出

输出

例2 :

# Create sample data
                            
x <- c(1,2,3,4,5,6,7,8,9,10)
y1 <-c(2,5,2,8,6,8,3,4,2,4)
y2 <-c(2,5,3,7,5,9,7,9,4,1)
  
# Draw first plot using axis y1
par(mar = c(7, 3, 5, 4) + 0.3)              
plot(x, y1, type="l", col = 2)  
  
# set parameter new=True for a new axis
par(new = TRUE)         
  
# Draw second plot using axis y2
plot(x, y2, type="l", col = 3, axes = FALSE, xlab = "", ylab = "")
  
axis(side = 4, at = pretty(range(y2)))      
mtext("y2", side = 4, line = 3)

输出