为日期 x 轴 ggplot2 指定显示的标签

Question

我有以下示例数据框和代码：

library(ggplot2)

data <- data.frame(date=as.Date(c("05.08.2021","07.08.2021","09.08.2021","27.08.2021","02.09.2021"), format = "%d.%m.%Y"),event=as.numeric(c("1", "2", "3", "4", "5")))
    
ggplot(data=data, aes(x=date, y=event, group=1))+
  geom_line()+
  geom_point()

输出的图在 x 轴上显示随机日期。我希望 R 在 x 轴上仅显示五个给定日期。

Answer 1

使用scale_x_date:

ggplot(data=data, aes(x = date, y=event, group=1))+
  geom_line() +
  geom_point() +
  scale_x_date(breaks = data$date, labels = format(data$date, "%b %d"))

为日期 x 轴 ggplot2 指定显示的标签

Specify shown labels for date x axis ggplot2

r

date

ggplot2