如何僅在沒有日期的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")