点和线不会连接[重复]

Question

我正在尝试连接情节中的点并尝试geom_point()+geom_line()，但它不起作用。

下面的代码只是为了点。有谁知道为什么geom_line() 不添加任何行？

DensityE = read.csv("DensityElk.csv", header = TRUE)
str(DensityE)

DensityE$Date <- factor(DensityE$Date, levels=
        c("20-May","3-Jun",
      "17-Jun","1-Jul","16-Jul", 
      "22-Jul", "15-Aug"), order=TRUE)

ggplot(data=DensityE, aes(Date,Density)) + 
geom_point(aes(shape = factor(Genus)), size = 4, 
position="jitter") + 
theme_bw() + xlab("Date") +
ylab("Density per m2") + ggtitle("COP 1992") +
opts(legend.key = theme_blank()) + 
opts (legend.title = theme_blank())+
opts(legend.text = theme_text(size=9))

Answer 1

因为您在 x 轴上使用了一个因子 (Date)，所以ggplot2 不会自动跨 x 值连接线。两种解决方案是（1）geom_line(aes(group=Genus)) 或（2）geom_line(aes(x=as.numeric(Date)))

构造数据框：

DensityE <- data.frame(
    Date=c("1-Jul","16-Jul","22-Jul","3-Jun","17-Jun"),
    Genus=c("Epeorus","Epeorus","Epeorus","Rhyacophila","Rhyacophila"),
    Density=c(3.5,3.25,1,1,0.75))

制作情节：我做了一些改动

• 将theme_blank 更改为element_blank 和opt 更改为theme 以与最近的ggplot2 版本保持一致
• 移除抖动 -- 如果您想要抖动和点和连接相同点的线，您必须手动将抖动添加到 y 值。

代码：

 library(ggplot2)
 ggplot(data=DensityE, aes(Date,Density)) + 
    geom_point(aes(shape = factor(Genus)), size = 4)+
    geom_line(aes(group=Genus))+
 theme_bw() + xlab("Date") +
 ylab("Density per m2") + ggtitle("COP 1992") +
 theme(legend.key = element_blank()) + 
 theme(legend.title = element_blank())+
 theme(legend.text = element_text(size=9))