使用标准化的x轴绘制多个月的时间数据

Question

Date_Time           Temp...C.   Anglers.Names           Water.Body
7/17/2016 8:05:00   24          Jones & Bishop          Lake 1
7/17/2016 9:05:00   25          Jones & Bishop          Lake 1
7/17/2016 10:05:00  26          Jones & Bishop          Lake 1
8/15/2016 8:00:00   26          Smith & Nelson          Lake 2
8/15/2016 9:00:00   26          Smith & Nelson          Lake 2
8/15/2016 10:00:00  27          Smith & Nelson          Lake 2
9/12/2016 8:02:00   25          Militello & Culberson   Lake 3
9/12/2016 11:02:00  26          Militello & Culberson   Lake 3
9/12/2016 14:02:00  26          Militello & Culberson   Lake 3

我有一个从低音生活良好研究的数据集，在那里我监测的温度在垂钓者的活井通过放置一个临时记录器在他们的活井在整个比赛一天。我的问题是，是否有一种方法来绘制温度随时间的变化，由水体分面，然后由独特的垂钓者的名字编码的颜色。我不确定最快的方法是否是按水体(我工作过的14个水体)子集，创建14个新的单个数据集，为单个水体绘制一个图，然后使用类似于grid.arrange的东西来安排它们。当我试图为所有的水体绘制一个单一的平面图时，我想要解决的问题是使x轴限制成为一个标准的小时范围，不管日期如何(对于我来说，我的真实数据可能是下午7:00-3:00，因为这大约是大多数比赛持续的时间)。但是由于这项研究是在多个月内进行的，R想用整个3个月作为x轴的极限。

LivewellTemp <- ggplot(HOBO.Data, aes(Date_Time, Temp...C.,colour=Anglers.Names))+
facet_wrap(~Water.Body)+
geom_line(linetype=2)

​

​

Answer 1

这就是你想要的吗？

LivewellTemp <- ggplot(HOBO.Data, aes(Date_Time, Temp...C.,colour=Anglers.Names))+ facet_wrap(~Water.Body)+geom_line(linetype=2)+ scale_x_discrete(labels=c("7am", "8am", "9am", "10am", "11am", "12pm", "1pm", "2pm", "3pm"))