r - 按组划分的折线图

Question

我有以下数据，我想创建一个以 group1 为条件的折线图和 group2多变的。

dat <- structure(list(group1 = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L),
                                         .Label = c("a", "b"),
                                         class = "factor"),
                      group2 = c(1L, 2L, 3L, 4L, 1L, 2L, 3L),
                      val1 = c(10L, 3L, 2L, 7L, 10L, 3L, 2L),
                      val2 = c(8L, 4L, 8L, 5L, 8L, 4L, 8L),
                      val3 = c(7L, 5L, 6L, 9L, 7L, 5L, 6L)),
                 .Names = c("group1", "group2", "val1", "val2", "val3"),
                 class = "data.frame", row.names = c(NA, -7L))

理想情况下，我希望有两个基于 group1 的图表(两个用于级别 a 和 b )和每个 group 内1 个变量我需要基于行变量的折线图(基本上连接 val1、 val2 和 val3 的三个点)，不同颜色的 group2变量。

Answer 1

你的意思是这样的:

dat2 <- with(dat, data.frame(group1 = rep(group1, each = 3), 
                             group2 = factor(rep(group2, each = 3)), 
                             values = stack(dat[,3:5])[,1]))

上面的代码将数据重组为更容易与 ggplot 一起使用的格式。 dat使用 dput() 定义我添加到您的 Q 中的代码。我认为您想要的情节可以通过

p <- ggplot(dat2, aes(x = 1:3, y = values, colour = group2)) + geom_line() + 
        geom_point() + facet_wrap(~ group1, ncol = 2)
p

这使



我基本上不得不弥补一些 x data 否则你怎么知道点应该在 x 和 y 坐标空间中的位置？