R:如何在条形图中显示范围

Question

尝试生成与excel相同的条形图，但在R中可能吗？想要显示每周订单的总数。按用户统计，包括每周的开始和结束日期。

User            Due_date            Status  
a               02-10-2017          Complete
b               02-02-2017          Ordered
a               02-08-2017          Complete
c               02-08-2017          Complete
a               02-08-2017          Ordered
s               02-06-2017          Complete
c               02-06-2017          Complete
s               02-06-2017          Ordered
b               02-06-2017          Ordered
c               02-11-2017          Complete
a               02-11-2017          Ordered
s               02-11-2017          Ordered
c               02-01-2017          Complete
s               02-01-2017          Ordered
b               02-01-2017          Complete
b               02-10-2017          Complete

尝试生成excel中显示的报告但未显示的范围，请检查代码和所附的屏幕截图。

library(lubridate)
Data$Week_Due = (ceiling_date(Data$Due.Date, "week") +  ifelse(weekdays(Data$Due.Date) %in% c("Saturday", "Sunday"), 5,-2))
library(rpivotTable)
rpivotTable(Data,  aggregatorName = "Count",  rows = "User",  cols = c("Week_Due","User","Status"),  width = "100%",  height = "500px",rendererName = "Bar Chart")

点击此处查看屏幕截图

Answer 1

OK-这里有一个更详细的例子，应该更接近您想要实现的目标：为了修改x轴上的标签以显示日期范围，您需要将其放入一个简单的函数中。而且，我使用breaks而不是date_breaks，以便或多或少地将勾号移动到直方图条下的中间。

ggplot(Data, aes(x = Due_date)) + geom_histogram(binwidth = 7) + 
scale_x_date(breaks = seq(min(Data$Due_date), max(Data$Due_date), by = 7),
labels = function(x) paste0(format(x, "%d-%m-%Y"), ", ", format(x+7, "%d-%m-%Y"))) +
theme(axis.text.x = element_text(angle = 45, hjust = 1))