具有两条线的图形，根据一列值分成不同的图形

Question

我有一个这种格式的数据框，但还有几百行：

dfex = data.frame(dot = c('A', 'B', 'C', 'D', 'E', 'F'), 
                  group = c('A1', 'A1', 'A1', 'A2', 'A2', 'A2'), 
                  x1 = c(1, 2, 3, 4, 5, 6), 
                  x2 = c(4, 5, 6, 1, 2, 3), 
                  y = c(1, 2, 3, 4, 5, 6))

我想根据group 中的值创建不同的图表，因此一个图表将只有 A1 组行，而另一个图表只有 A2 组行。

在每个图表上，x1-y 对和 x2-y 对应该有两条不同的线。最好我也可以列出这些行的相关性。

我熟悉 ggplot2，所以使用它会很棒。

这是一幅令人惊叹的绘画作品，可以更好地理解我的意思：

Answer 1

我同意@camille，最好在绘图前将数据重新整形为长格式。

library(tidyverse)

dfex %>%
  gather(key, value, -c(dot, group, y)) %>%
  ggplot() +
  aes(value, y, color = key) + 
  geom_line() + 
  facet_wrap(.~group)

Answer 2

下面的代码将分为两部分。 facet_wrap 将图表分成组上的两列。由于变量存储在不同的列中，因此我创建了两行。

ggplot(dfex) +
  geom_line(mapping = aes(x = x1, y = y, color = "blue")) +
  geom_line(mapping = aes(x = x2, y = y, color = "red")) +
  facet_wrap(. ~group)

或者另外将数据收集成更整洁的格式，

gather(dfex, "xVar", "x", 3:4) %>% 
  ggplot() +
  geom_line(mapping = aes(x = x, y = y, color = xVar)) +
  facet_wrap(. ~group)