r - ggplot 中的配对段

Question

给定 foo我想连接成对的点，以便在 foo[1,] 和 foo[11,]、foo[2,] 和 foo[12,] 之间有一条线，直到 foo[10,] 和 foo[ 20,]。似乎这应该可以通过巧妙地调用 geom_segment 和分组变量 id 来实现。 ?

foo <- data.frame(id = c(1:10,1:10),
                  samp = rep(c("A","B"),each=10),
                  x = c(rnorm(10,mean = 5),rnorm(10,mean = 5)),
                  y = c(rnorm(10,mean = 5),rnorm(10,mean = 6)))
ggplot(foo,aes(x=x,y=y,col=samp)) + geom_point()

任何帮助表示赞赏。

Answer 1

我们需要使用 group作为 geom_line 中的“id”

library(ggplot2)
ggplot(foo) + 
    geom_point(aes(x = x,y = y, col = samp)) + 
    geom_line(aes(x = x, y = y, group = id))

-输出