更改 x 轴刻度

Question

大家下午好，

我在用 ggplot 绘制时间序列时遇到困难。 我有一个时间序列，其中包含从 2020-01-30 到 2020-10-22 的每日数据。 当我使用以下代码 plot 数据时，我得到一个 x 轴，它根本不可读：

plot_cases <- ggplot(NULL, aes(x= Date, y= Count)) +
  xlab("Time") + ylab("Number of Cases") +
  scale_y_continuous(limits=c(0, 2000)) +
  scale_x_discrete() +
  geom_line(data = P_cases_reduced_aggregated_female, aes(colour = P_cases_reduced_aggregated_female$Sex, group = 1)) +
geom_line(data = P_cases_reduced_aggregated_male, aes(colour = P_cases_reduced_aggregated_male$Sex, group = 1)) +
  scale_color_manual(values=c("#FF00FF", "#000FFF"))

因此，我只想使用代表月份的缩写，例如“Apr”、“Jul”、“Oct”。 但是，当我使用以下代码时，我不再获得任何 x 轴刻度...

plot_cases <- ggplot(NULL, aes(x= Date, y= Count)) +
  xlab("Time") + ylab("Number of Cases") +
  scale_y_continuous(limits=c(0, 2000)) +
  scale_x_discrete(breaks = seq(as.Date("2020-01-30"), as.Date("2020-10-22"), by = "month")) +
  geom_line(data = P_cases_reduced_aggregated_female, aes(colour = P_cases_reduced_aggregated_female$Sex, group = 1)) +
geom_line(data = P_cases_reduced_aggregated_male, aes(colour = P_cases_reduced_aggregated_male$Sex, group = 1)) +
  scale_color_manual(values=c("#FF00FF", "#000FFF"))

作为你们中的一员解决这个问题？ 我已经检查了之前关于 scale_x_discrete 的问题，但我仍然不知道如何进行相关更改。

非常感谢你提前。

Answer 1

遵循@AllanCameron和@r2evans的重要建议，首先将 x 轴转换为日期，然后使用scale_x_date() 。 由于缺少数据，没有显示 output：

library(ggplot2)
#Code
plot_cases <- ggplot(NULL, aes(x= Date, y= Count)) +
  xlab("Time") + ylab("Number of Cases") +
  scale_y_continuous(limits=c(0, 2000)) +
  scale_x_date(date_labels="%B-%d",breaks = '7 days') +
  geom_line(data = P_cases_reduced_aggregated_female,
            aes(colour = P_cases_reduced_aggregated_female$Sex, group = 1)) +
  geom_line(data = P_cases_reduced_aggregated_male,
            aes(colour = P_cases_reduced_aggregated_male$Sex, group = 1)) +
  scale_color_manual(values=c("#FF00FF", "#000FFF"))+
  theme(axis.text.x = element_text(angle=90))