r - 将日期刻度添加到 R 中的 ggplot

Question

我正在尝试在此图中的 x 轴上添加刻度以显示一年中的所有月份:



我的代码如下:

library(ggplot2)
library(scales)
p <- ggplot(df_test, aes(time, reading))
p + geom_point(alpha = 1/4) + geom_smooth()

我曾尝试使用 scale_x_date但遇到以下错误:

Error: Invalid input: date_trans works with objects of class Date only

这是我正在使用的数据框:

 hour   reading   date                time
 1      53        1/1/15 2015-01-01 01:00:00
 2      55        1/1/15 2015-01-01 02:00:00
 3      56        1/1/15 2015-01-01 03:00:00

我的时间变量的类:

class(df_test$time) "POSIXct" "POSIXt"

Answer 1

使用 scale_x_date(breaks="month", labels=date_format("%b%)) .这是一个例子。

library(quantmod)
sp500 <- getSymbols("SP500", src="FRED", auto.assign=FALSE)
sp500 <- sp500["2015-01-01::"]
sp500 <- data.frame(time=as.POSIXct(index(sp500), origin="1970-01-01"),sp500)
class(sp500$time)
# [1] "POSIXct" "POSIXt" 

library(ggplot2)
library(scales)    # for date_format(...)
ggplot(sp500, aes(x=as.Date(time), y=SP500))+
  geom_line()+
  scale_x_date(breaks="month", labels=date_format("%b"))