如何避免图形错误：“美学必须是长度1或与数据(84)：x，y”相同？

Question

下面是我试图运行的代码，给出了上面提到的错误：

dt %>% filter(brand=="volkswagen") %>% 
  filter(Agecat!="NA") %>% 
  group_by(model,Agecat) %>% 
  summarise(Totaldays2close=sum(Days2close)) %>% 
 ## spread(Agecat,Totaldays2close) %>% 
 ## write_csv("Export.csv")


ggplot()+
    geom_col(mapping = aes(x=Agecat,y=Days2close))

其中Agecat是绝对变量，而Days2close是no。完成交易所需的天数。你能建议如何避免和为什么会出现这个错误吗？

Answer 1

您不想对不分组的列或不对列进行汇总的列进行汇总。Mutate允许您计算每个组的汇总统计数据，同时保留其余的数据：

dt %>% filter(brand=="volkswagen") %>% 
  filter(Agecat!="NA") %>% 
  group_by(model,Agecat) %>% 
  mutate(Totaldays2close=sum(Days2close)) %>% 
ggplot()+
    geom_col(mapping = aes(x=Agecat,y=Days2close))

现在应该管用了。