R 如何将ggplot中的非NA值绘制为时间序列数据帧？

我环顾四周，似乎找不到适合我的特定图表的有效解决方案

我有以下数据帧，

dput

输出为：

structure(list(Dates = structure(c(1392406020, 1392406320, 1392406620
), class = c("POSIXct", "POSIXt"), tzone = "America/New_York"), 
    Values = c(51.846, 44.508, 41.244), Anomalies = c(NA_real_, 
    NA_real_, 62.056)), .Names = c("Dates", "Values", "Anomalies"
), row.names = c(NA, 3L), class = "data.frame")

前6个值的数据框

                Dates Values Anomalies
1 2014-02-14 14:27:00 51.846        NA
2 2014-02-14 14:32:00 44.508        NA
3 2014-02-14 14:37:00 41.244        NA
4 2014-02-14 14:42:00 48.568        NA
5 2014-02-14 14:47:00 46.714        NA
6 2014-02-14 14:52:00 44.986        NA

它有三列：日期、值和异常

异常可以是NA或具有值

我遇到的问题是

我似乎无法仅绘制非NA值

失败的进近

p <- ggplot(df, aes(x = Dates, y = Values)) + geom_line() +
  geom_dotplot(aes(y=Anomalies), colour = "red")
print(p)

p解决了它：

替换

geom_dotplot(aes(y=Anomalies), colour = "red")

用于：

图表

您能添加一张最终结果的图像以便人们看到吗？
geom_point(data=df, aes(x=Dates, y=Anomalies), colour="red",size=5, alpha=0.3)