ggplot w/x轴月-年（无天）和“过滤器”开始日期

Question

所以假设我有数据集：

date         order_sum
2015-01-01   800
2016-08-19   900
2019-04-16   1200
2020-10-28   850

这是我的月转换：sales$month <- month(sales$date)

这是我在 x 轴上使用的最小值：min <- ymd("2020-11-01")

这是指定我的 df 的基本图：baseplot <- ggplot(sales, aes(month, order_sum))

我正在尝试制作该月的日期与 order_sum 总和的基本图表，并将 x 轴上的日期显示为 11-2020。

scale_x_date(limits = c(min, now), breaks = "1 month", labels = date_format("%m-%Y")) +
scale_y_continuous(labels = function(x) scales::dollar(x, suffix = 'M'), n.breaks = 3, expand = expansion(mult = c(0, 0.05))) +
labs(x = "Date", y = "Order Volume")

我在文本块上得到的错误是这样的：

as.Date.default(e) 中的错误：不知道如何将 'e' 转换为类“Date”

有人知道为什么吗？提前致谢！

Answer 1

我想我发现了错误：

library(scales)
library(lubridate)
sales <- data.frame(date = c("2015-01-01","2016-08-19",
                               "2019-04-16","2020-10-28"),
                      order_sum = c(800,900,1200,850))

sales$month <- month(as.Date(sales$date))
sales$date <- as.Date(sales$date)

min <- ymd("2020-11-01")
ggplot(sales, aes(date, order_sum)) + 
  scale_x_date(limits = c(min, as.Date(now())), 
             breaks = "1 month", 
             labels = date_format("%m-%Y")) + 
  scale_y_continuous(labels = function(x) scales::dollar(x, suffix = 'M'), 
                     n.breaks = 3, 
                     expand = expansion(mult = c(0, 0.05))) + 
  labs(x = "Date", y = "Order Volume") +
  geom_point()

首先，如果你用 month() 转换 sales$month，你会得到整数。如果你使用日期变量会更好。

然后我尝试绘图，但没有可用的图形。为什么？因为您定义的最小日期是“2020-11-01”。您的限制是从 2020-11-01 到现在 2021-02-23。您的样本中没有数据点包含在该区间内。