R语言分面图如何设置两个Y轴不同范围的刻度

在R语言中，可以使用ggplot2包来绘制分面图，并设置两个Y轴的不同范围刻度。以下是一种实现方法：

首先，安装并加载ggplot2包：

install.packages("ggplot2")
library(ggplot2)

创建一个包含数据的数据框，例如df：

df <- data.frame(
  x = 1:10,
  y1 = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
  y2 = c(10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
)

使用ggplot函数创建一个绘图对象，并设置facet_wrap函数用于创建分面图：

p <- ggplot(df, aes(x = x)) +
  facet_wrap(~., scales = "free_y")  # 设置Y轴刻度自由变化

使用geom_line函数添加两个Y轴的线条：

p <- p + geom_line(aes(y = y1, color = "y1")) +
  geom_line(aes(y = y2, color = "y2"))

使用scale_color_manual函数设置线条颜色：

p <- p + scale_color_manual(values = c("y1" = "red", "y2" = "blue"))

使用theme函数设置Y轴刻度的范围：

p <- p + theme(axis.title.y = element_blank(),  # 隐藏Y轴标题
               axis.text.y.right = element_text(color = "blue"),  # 设置右侧Y轴刻度文本颜色
               axis.ticks.y.right = element_line(color = "blue"),  # 设置右侧Y轴刻度线颜色
               axis.text.y.left = element_text(color = "red"),  # 设置左侧Y轴刻度文本颜色
               axis.ticks.y.left = element_line(color = "red"),  # 设置左侧Y轴刻度线颜色
               panel.background = element_blank())  # 隐藏分面图背景

最后，使用p对象显示分面图：

print(p)

通过以上步骤，就可以绘制出一个带有两个Y轴不同范围刻度的分面图