R - ggplot2 将日期作为 x 轴字符的问题

我是 R 和 ggplot2 的新手，我不知道如何解决我尝试创建的图表的问题。

这是图表目前的样子。我在 x 轴上有日期，但由于某种原因，它们不适用于年份，而只能按月和日排序。

这是我正在使用的数据的屏幕截图：

正如您所看到的，这里的顺序看起来是正确的。

我制作了一个可重新创建的示例，其中出现了相同的问题

Week <- c("1/6/2019", "1/26/2020", "6/7/2020")
Coronavirus <- c(0, 16, 67)
Grubhub <- c(65, 23, 59)
UberEats <- c(52, 80, 68)
Doordash <- c(27, 35, 50)

my.data <- data.frame(Week, Coronavirus, Grubhub, UberEats, Doordash)
my.data

test.output <- ggplot(data = my.data, aes(x = Week, group = 1)) +
  geom_line(aes(y = Coronavirus), color = "red") +
  geom_line(aes(y = Grubhub), color = "darkgreen") +
  geom_line(aes(y = UberEats), color = "blue") +
  geom_line(aes(y = Doordash), color = "purple") +
  theme(axis.text.x = element_text(angle = 90)) +
  labs(title = "Weekly Google Search Term Interest by Category", y = "Search Term Interest", x = "Week [2020]") 
test.output

这里 x 轴上的日期顺序也不正确。

关于如何解决该问题有什么建议吗？

1. "1/6/2019"不是日期，而是字符串。ggplot2（以及大多数其他事情）永远不应该infer您希望将其作为日期处理。它“知道”的是它是一个字符串，并且因为它不是一个factor，它按字典顺序（而不是年份优先）对事物进行排序。请注意，这与您的观察相符，即它首先按月排序，然后按日排序，因为这些是字符串中的前几个字符。

2. 一旦我们做出了Weeka列适当Date类中，如果您想将演示文稿保留在"%m/%d/%Y"格式，需要添加scale_x_date.

Week <- c("1/6/2019", "1/26/2020", "6/7/2020")
Coronavirus <- c(0, 16, 67)
Grubhub <- c(65, 23, 59)
UberEats <- c(52, 80, 68)
Doordash <- c(27, 35, 50)

my.data <- data.frame(Week, Coronavirus, Grubhub, UberEats, Doordash)
my.data$Week <- as.Date(my.data$Week, format = "%m/%d/%Y")
my.data

test.output <- ggplot(data = my.data, aes(x = Week, group = 1)) +
  geom_line(aes(y = Coronavirus), color = "red") +
  geom_line(aes(y = Grubhub), color = "darkgreen") +
  geom_line(aes(y = UberEats), color = "blue") +
  geom_line(aes(y = Doordash), color = "purple") +
  theme(axis.text.x = element_text(angle = 90)) +
  labs(title = "Weekly Google Search Term Interest by Category", y = "Search Term Interest", x = "Week [2020]") 
test.output

如果你更喜欢"%m/%d/%Y", then

test.output + scale_x_date(date_labels = "%m/%d/%Y")