使用 R 中的 facet_wrap 或 facet_grid 在左侧面板的一个图形上绘制两条线，并在右侧面板上绘制它们的差异

为了更容易处理，我会x - y在melt. 然后我们需要group为facet_grid. 该factor操作设置刻面的位置，因此x and y它将位于 的左侧x - y。最后，用 设置颜色scale_color_manual。

library(ggplot2)
library(dplyr)
library(reshape2)

df1 <- data.frame(a= c(1:10), x= c(0.1, 0.5, 0.2, 0.1, 0, 0.23, 0.25, 0.4, 0.01, 0.2),
                  y= c(0.3,0.01, 0.8, 0.2, 0.02, 0.14, 0.47, 0.35, 0, 0.32), name="L1")
df2 <- data.frame(a= c(1:10), x= c(0.2, 0.25, 0.2, 0.1, 0, 0.23, 0.25, 0.4, 0.01, 0.2),
                  y= c(0.76,0.81, 0.18, 0.52, 0.02, 0.14, 0.47, 0.35, 0, 0.32), name="L2")

rbind(df1, df2) %>% 
  mutate(`x - y` = x - y) %>% 
  melt(id = c("a", "name")) %>% 
  mutate(group = if_else(variable %in% c("x", "y"), "x and y", "x - y"),
         group = factor(group, levels = c("x and y", "x - y"))) %>% 
  ggplot(aes(a, value, col = variable)) + 
  geom_line() + 
  facet_grid(name ~ group) +
  scale_color_manual(values = c("x" = "red", "y" = "black", "x - y" = "green"))

^{由reprex 包于 2022-05-01 创建(v2.0.1)}