在 2021_Jan 的一个月内绘制条形图 sales_per_day 时出错 条形图

问题描述

This is my previous data

Jan_df=Jan %>%
 
select("Updated_Date","Amount") %>% 
 
mutate(Date=parse_date_time(Jan$Updated_Date,"ymd_HMS",tz="")) %>% 
  
select(Date,Amount) %>% 
  
group_by(date(Date)) %>% 
  
summarise(sale_per_day=sum(Amount))

[This the data after I grouped by dates followed by summarize sales per day][2]

library(ggplot2)

ggplot(Jan_df,aes(x=(date(Date)),y=sale_per_day,fill=sale_per_day))+
  
geom_bar(satat="identity")

我在运行上面的代码以绘制迄今为止的销售条形图时出错

**> ggplot(Jan_df,fill=sale_per_day))+

• geom_bar(satat="identity")

as.POSIXlt.default(x,tz = tz(x)) 中的错误：

不知道如何将“x”转换为“POSIXlt”类

另外：警告信息：

忽略未知参数：satat**

解决方法

aes 无法识别您提供的列名称 - 日期（日期）。尝试更改列名 另外，正如 Elle 指出的，您需要将参数名称从“satat”更改为“stat”

代码：

colnames(Jan_df) = c("Day","Sales")

图书馆（ggplot2）

ggplot(Jan_df,aes(x= Day,y=Sales,fill=Sales))+

geom_bar(stat="identity")

完整代码供参考：

##数据 Jan = data.frame(Updated_Date=c('2021-01-01 11:00:05','2021-01-01 12:00:16','2021-01-02 14:02:09',' 2021-01-04 21:30:38'),Amount=c(1000,2000,3000,4000))

##图书馆 图书馆（dplyr） 图书馆（润滑）

###按日期统计的销售额

Jan_df=Jan %>%

select("Updated_Date","Amount") %>%

mutate(Date=parse_date_time(Jan$Updated_Date,"ymd_HMS",tz="")) %>%

选择（日期，金额）%>%

group_by(date(Date)) %>%

summarise(sale_per_day=sum(Amount))

##更改列名

colnames(Jan_df)

条形图

图书馆（ggplot2）

ggplot(Jan_df,fill=Sales))+

geom_bar(stat="identity")