用线连接 ggplot2 图中的点

Question

正如问题中所说，我想连接 ggplot2 图中的点。这些点应该按照它们被绘制到图表的顺序一个接一个地连接起来，就像这样：

抱歉画得不好。


basepop <- matrix(c(10,30),nrow = 2)
matrixA <- matrix(c(0.4,-0.325,0.3,1.2),nrow = 2)
matrixA
z <- eigen(matrixA)
z$val
eigenmatrix <- z$vec
eigenmatrix
eigeninverse <- solve(eigenmatrix)
constmatrix <- eigeninverse %*% basepop
constmatrix



popdata = NULL

for(k in 1:100){
  predator <- c(constmatrix[1,1]*z$val[1]^k*z$vec[1,1] + constmatrix[2,1]*z$val[2]^k*z$vec[1,2])
  prey <- c(constmatrix[1,1]*z$val[1]^k*z$vec[2,1] + constmatrix[2,1]*z$val[2]^k*z$vec[2,2])
  
  popdata = rbind(popdata, data.frame(k,predator,prey))
}
library(ggplot2)
ggplot(popdata, aes(predator, prey, color = k)) +
  geom_point()

ggplot(popdata, aes(k, predator, color = k)) +
  geom_point() 

ggplot(popdata, aes(k, prey, color = k)) +
  geom_point()
print(popdata)

这是我计算猎物和捕食者系统流行的代码。

Answer 1

来自@Duck 的评论：只需将 + geom_line() 或 + geom_path() 添加到绘图中即可。（“使用哪个”取决于您的用途：geom_line 按 x 轴上的顺序连接，geom_path 按它们在数据中出现的顺序连接，两者都有有效用途。在这个情况下它们看起来是一样的，但如果您的真实数据发生变化，请记住这一点。）

ggplot(popdata, aes(predator, prey, color = k)) +
  geom_point() +
  geom_line()

（其他地块同理）

我要注意顺序很重要。

# left
ggplot(popdata, aes(predator, prey, color = k)) +
  geom_point() +
  geom_line(color="black")
# right
ggplot(popdata, aes(predator, prey, color = k)) +
  geom_line(color="black") +
  geom_point()

用线连接 ggplot2 图中的点

Connecting points in ggplot2 graph with lines

graphing

r

ggplot2