今天的題目算是複習前天的內容，各位應該還記得計算會員人數的方法吧，要計算月營收其實也是差不多的概念，只是這次不是用n() 來統計，而是用sum()來統計。
result <- orders %>%
mutate(Month = as.Date(orders$CREATETIME, "%Y-%m-%d %H:%M:%S")) %>%
mutate(Month = substring(Month,1,7)) %>%
group_by(Month) %>%
summarise(Income = sum(PRICE))
使用ggplot畫出條狀圖
ggplot(result, aes(x=Month, y=Income)) +
geom_bar(stat="identity", fill="gold1")
因此我們得出了我們公司的旺季在五六月的夏天啊!
ref:
day4原始碼
iThome鐵人賽
看影片追技術