在R中绘制ggplot2 R中日期（作为x轴）、开始时间（左侧y1轴）和温度（右侧y2轴）的双y轴

我正在尝试使用ggplot2在R中绘制双y轴图形。我知道有两个详细的教程展示了如何做到这一点。但我努力实现的目标却没有什么不同。我想将x轴绘制为日期，y轴（左）绘制为开始日期时间，y轴（右）绘制为水温。我以前见过类似的图表，但日期很难做到。你可以在下面看到我所拥有的，以及到目前为止我所做的一切。非常感谢您的帮助！谢谢

    tempdata<-read.table(text="Date Trip TripStartTime TripEndTime WaterTemperature
                 11/13/16   PM  13:00   16:00   13.43333333
                 11/13/16   PM  13:00   16:00   13.43333333
                 11/13/16   PM  13:00   16:00   12.97222222
                 11/19/16   PM  13:00   16:00   12.77777778
                 11/19/16   PM  13:00   16:00   0
                 11/19/16   PM  13:00   16:00   12.58333333
                 11/19/16   PM  13:00   16:00   12.58333333
                 11/25/16   PL  6:00    18:00   0
                 11/25/16   PL  6:00    18:00   0
                 11/25/16   PL  6:00    18:00   13.67777778", header=TRUE)

    tempdata$startdatetime <- paste(tempdata$Date,tempdata$TripStartTime, sep = " ")
    tempdata$enddatetime <- paste(tempdata$Date,tempdata$TripEndTime, sep = " ")
    tempdata$starthm <- format(tempdata$TripStartTime, format = "%H:%M:%S")
    tempdata$endhm <- format(tempdata$TripEndTime, format = "%H:%M:%S")
    tempdata$WaterTemperature<- as.numeric(as.character( tempdata$WaterTemperature ))

    str(tempdata)
    View(tempdata)
    tempdata<-data.frame(tempdata)

    attach(tempdata)

    plot.new()

    library(ggplot2)
    p1<- ggplot(tempdata, aes(startdatetime, WaterTemperature)) + 
    geom_point(color="red", size=0.5)+theme(axis.title.x=element_text("Start Time"),
                             axis.text.x=element_blank(),
                             axis.ticks.x=element_blank())
    p2<- ggplot(tempdata, aes(enddatetime, WaterTemperature)) + 
    geom_point(color="blue", size=0.5)+ theme(axis.title.x=element_text("End Time"),
                              axis.text.x=element_blank(),
                              axis.ticks.x=element_blank())
    p3<-ggplot(tempdata, aes(Date, WaterTemperature)) + 
    geom_point(color="orange", size=0.5)+ theme(axis.title.x=element_text("Date"),
                              axis.text.x=element_blank(),
                              axis.ticks.x=element_blank())
    p<- multiplot(p1, p2,p3, rows=3)

---

tempdata虽然我说header=TRUE，但我也忘了添加标题。标题如下：日期行程TripStartTime TripEndTime水温。谢谢。要在ggplot2中设置轴标题，请使用
xlab（）
和
ylab（）
，例如
+xlab（“开始时间”）
。