R ggplot模拟类型=“模拟类型”；b"；。连接点

在这里，询问如何使用基本图形

绘图（x，y，type=“b”）

中的线连接点进行绘图的问题非常常见。唉，我无法将这些答案应用到我的案例中（甚至常常无法理解它们）。所以我必须再问一次

我有以下代码：

DateLabels <- c("9/13", "10/13", "11/13", "12/13", "1/14", "2/14", "3/14", "4/14", "5/14", "6/14", "7/14", "8/14")
ABC1 <-c(27,NA,NA,NA,32, 36, 39, 35, 32,NA,NA,NA) # blue
C2DE <-c(36,NA,NA,NA,41, 38, 39, 42, 32,NA,NA,NA) # red
votingIntention <- data.frame(Dates=DateLabels, ABC1=ABC1, C2DE=C2DE)

ggplot(votingIntention) +
  scale_x_discrete(limits=DateLabels) +
  scale_y_continuous(limits=c(25,50)) +
  geom_point(aes(x=DateLabels, y=ABC1), colour="blue") +
  geom_point(aes(x=DateLabels, y=C2DE), colour="red") 

---

DateLabels我在绘图之前做了一些数据重塑。我不知道如何在
ggplot
中完成所有这些，所以下面是代码

library(ggplot2)
library(reshape2)

#melt data, order factors, remove missing values    
mm<-melt(votingIntention, id.vars="Dates")
mm$Dates<-factor(mm$Dates, levels=DateLabels)
mm<-mm[complete.cases(mm),]

#plot lines and points
ggplot(mm, aes(x=Dates, y=value, colour=variable, group=variable)) +
    scale_x_discrete(limits=DateLabels) +
    scale_y_continuous(limits=c(25,50)) +
    geom_point() +
    geom_line() +
    scale_colour_manual(values=c("blue","red"))

库（ggplot2）
图书馆（E2）
#熔化数据、顺序因子、删除缺失值
mmI建议添加
+geom_线（aes（x=DateLabels，y=C2DE，group=1），color=“red”）
，但由于某些原因，它不会绘制最后一条线。这就是原因，我相信您可以使用
组
美学，而不是将日期转换为数字（默认情况下，ggplot根据因子级别将数据分成多个组）：我建议
ggplot（mm，aes（x=Dates，y=value，color=variable，group=variable））+scale\u y\u continuous（limits=c（25,50））+geom\u point（）+geom\u line（）+scale\u color\u manual（value=c（“蓝色”、“红色”）
。（可惜没有类似于
geom_pointrange（）
的
geom_pointline（）
）谢谢@BenBolker。看起来你的方法不带刻度，会删除丢失的日期，但是我会做其他的更改。谢谢！你的代码中有很多我不明白的地方。希望你也能帮助其他人。