我有以下三种不同成本类型和一年列的样本数据:
库(tidyverse)
# 样本数据costsA< - sample(100:200,30,replace = T)费用B< - 样本(100:140,30,……
您必须将汇总数据转换为整齐(-ish)格式,以生成类似于您发布的图表。在一个整洁的经文中,你会这样做 gather 将多列转换为两列键值对的函数。例如,以下代码生成下图。
gather
df %>% group_by(year) %>% summarise(n=n(), meanA = mean(costsA), meanB = mean(costsB), meanC = mean(costsC)) %>% gather("key", "value", - c(year, n)) %>% ggplot(aes(x = year, y = value, group = key, fill = key)) + geom_col()
同 gather("key", "value", - c(year, n)) ,三列(costA,costsB,costsC)更改为键值对。
gather("key", "value", - c(year, n))