R语言分面图如何自定义两个Y轴的刻度

在R语言中，可以使用ggplot2包来绘制分面图，并自定义两个Y轴的刻度。

首先，需要安装和加载ggplot2包：

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

然后，创建一个数据框，包含要绘制的数据：

data <- data.frame(x = 1:10,
                   y1 = c(4, 6, 8, 10, 12, 14, 16, 18, 20, 22),
                   y2 = c(10, 15, 20, 25, 30, 35, 40, 45, 50, 55))

接下来，使用ggplot函数创建一个ggplot对象，并指定要绘制的数据和映射的变量：

p <- ggplot(data, aes(x = x))

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

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

接下来，使用facet_wrap函数创建分面图，并指定分面变量：

p <- p + facet_wrap(~ x)

然后，使用scale_color_manual函数自定义Y轴的刻度颜色：

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

最后，使用theme函数自定义Y轴的刻度标签和标题：

p <- p + theme(axis.text.y.left = element_text(color = "red"),
               axis.title.y.left = element_text(color = "red"),
               axis.text.y.right = element_text(color = "blue"),
               axis.title.y.right = element_text(color = "blue"))

最后，使用print函数打印分面图：

print(p)

这样就可以绘制一个具有自定义两个Y轴刻度的分面图了