R堆积条形图

debugcn 发表于 Dev

布沃

data1=data.frame("Grade"=c(1,1,1,2,2,2,3,3,3),
"Class"=c(1,2,3,1,2,3,1,2,3),
"Score"=c(6,9,9,7,7,4,9,6,6))

如果已经发布了此消息，但我没有看到，我深表歉意。我希望准备一个堆叠的条形图，其中X轴为“等级”，每个等级为1条。每个条包含三个颜色阴影，因为存在三个类（“类”）。最终，酒吧的高度为“得分”，并且总是从低等级到高等级开始。所以看起来像这样，但这不是适当的规模

阿克伦

我们可以使用xtabs将数据转换为宽格式，然后应用barplot

barplot(xtabs(Score ~ Grade + Class, data1), legend = TRUE,
         col = c('yellow', 'red', 'orange'))

或使用 ggplot

library(dplyr)
library(ggplot2)
data1 %>% 
   mutate_at(vars(Grade, Class), factor) %>%
   ggplot(aes(x = Grade, y = Score, fill = Class)) + 
          geom_col()

如果我们想为了让“类”，并转换为factor与levels该订单中指定基于“分数”值

data1 %>% 
   mutate(Class = factor(Class, levels = unique(Class[order(Score)])), 
          Grade = factor(Grade)) %>%  
   ggplot(aes(x = Grade, y = Score, fill = Class)) + 
           geom_col()

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。