[SCI图] 条形图_stack

回复:0 | 查看:498 | admin 发表于 2018-4-2 12:03:23 |阅读模式 |复制链接
bar_stack.jpeg

library(ggplot2) #作图包
set.seed(123)
d.sub <- diamonds[sample(nrow(diamonds), 500),]#利用R自带数据集diamonds,取子集
theme_set(theme_bw()) #设置白色背景主题

> head(d.sub)#查看数据
# A tibble: 6 x 10
carat cut       color clarity depth table price     x     y     z
<dbl> <ord>     <ord> <ord>   <dbl> <dbl> <int> <dbl> <dbl> <dbl>
  1 1.03  Premium   G     VS2      62.3  59.0  6214  6.38  6.42  3.99
2 0.500 Fair      D     SI1      65.7  56.0  1323  5.01  4.97  3.28
3 1.74  Very Good H     SI2      62.1  59.0 10086  7.65  7.78  4.79
4 0.510 Ideal     D     VS2      61.2  55.0  1882  5.18  5.16  3.16
5 0.700 Ideal     H     SI1      62.5  56.0  2294  5.64  5.69  3.54
6 0.710 Ideal     H     IF       62.0  54.0  3190  5.71  5.75  3.55


#堆叠图
p <- ggplot(d.sub, aes(x=cut, y=price, fill=color))
p + geom_bar(stat="summary", fun.y="mean", position="stack")

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

快速回复 返回顶部 返回列表