如何仅在没有日期的x轴上绘制时间间隔？

Question

我正在使用R-3.2.4。 我一直在尝试只在x轴上显示时间，在y轴上显示一些值，但是每次它在x轴上显示一些日期以及时间时，但是我只需要在x轴上显示时间间隔。

这是我正在使用的代码：

data_plot<-        read.csv("C:/.../Data_pract.csv",header=TRUE,stringsAsFactors=F)
data_plot$Time<-as.POSIXct(strptime(data_plot$Time, format="%H:%M"))
mydata<-ggplot(data_plot,aes(x=Time,y=January))+geom_line()
mydata

这是我正在使用的示例数据：

    Time January
    0:00    20
    0:15    30
    0:30    45
    0:45    40
    1:00    28
    1:15    15

我已附上我正在寻找的图形图像。

提前致谢。 在此处输入图片说明

Answer 1

您可以使用scale_x_datetime函数将ggplot中的小数位数更改为datetime

mydata<-ggplot(data_plot,aes(x=Time,y=January)) + geom_line() +
      scale_x_datetime(date_breaks = "1 hour",
                       date_labels = "%I:%M %p")