image.png
代码语言：javascript复制之前有读者在公众号留言问开头的图应该如何画？我第一眼看到这个图简单的理解为了堆积柱形图，加折线图。所以基本的想法就是构造两份数据来画这个图，第一份用来画堆积柱形图，第二份用来画折线图。但是准备画图的时候才意识到这个堆积柱形图是一个分组的堆积柱形图，我之前画的都是单独的，没有画过分组的。一时还想不起来该如何画这个分组的堆积柱形图了。
今天找资料的时候找到一个链接 Beginners Guide to Creating Grouped and Stacked Bar Charts in R With ggplot2 | theduke.at 这里介绍了分组的堆积柱形图可以用分面的方式来实现，比如如下代码
dat <- data.frame(
year=factor(sample(2010:2014, 400, replace=T)),
continent=factor(sample(c("EU", "US", "Asia"),
400, replace=T)),
gender=factor(sample(c("male", "female"),
400, replace=T)),
amount=sample(20:5000, 400, replace=T)
)
head(dat)
library(ggplot2)
ggplot(dat,aes(x=year,y=amount,fill=gender))
geom_bar(stat="identity",position = "stack")
facet_wrap(~continent)
theme_bw()
image.png
但是这样分面的话就不能构造数据添加折线图了。
今天还找到了一份参考资料r - How to plot a Stacked and grouped bar chart in ggplot? - Stack Overflow
这里介绍到的方法是分隔数据集，比如还是用上面构造的dat这个数据集
代码语言：javascript复制dat$x<-ifelse(dat$continent=="Asia",1,
ifelse(dat$continent=="EU",2,3))
df1<-filter(dat,year==2010)
df2<-filter(dat,year==2011)
df1
df2
ggplot()
geom_bar(data=df1,
aes(x=x,y=amount,fill=gender),
stat = "identity",position = "stack",width=0.3)
geom_bar(data=df2,aes(x=x 0.3 0.1,y=amount,fill=gender),
stat="identity",position = "stack",width=0.3)
scale_x_continuous(breaks = c(1.2,2.2,3.2),
labels = c("Asia","EU","US"))
scale_fill_manual(values = c("red","blue","orange","yellow"))
theme_bw()
image.png
这样暂时把分组的堆积柱形图做出来了，如何继续往上叠加折线图今天就不介绍了。后面有时间再来更新。
但是这幅图遇到的问题就是：将数据划分为两组，如何给每一个组填充不同的颜色呢？比如这幅图的填充颜色的代码是scale_fill_manual()这个只能填充2种颜色，而不能实现2010年的填充红蓝，2011填充绿黄。大家知道这种填充该如何实现吗？欢迎大家留言！
要实现文章开头的图还挺复杂的我发现！
还有一个重大通知
公众号开始有广告收入了，希望可以给平时喜欢分享学习心得体会的人提供一个可以获得收入的平台。所以决定开始接受大家投稿了，每篇稿费100元（公众号现在的收入也没有很多，稿费也不是很高，后面随着公众号广告收入的增加稿费也会随着增加），文章产生的其他收入也归作者所有，包括可能的赞赏和文末广告的收入。每个月接受10篇稿件，任何和科研内容相关的都可以，包括但不限于实验方案技巧，论文写作心得体会，期刊选择投稿经验，读研读博的感想随笔吐槽，任何科研软件的使用技巧，等等等等。欢迎大家投稿呀！要求是内容达到500字以上（因为要申请原创），一定要是原创内容，不能抄袭。不能一稿多投。稿件可以是任何形式，markdown语法写成最好。大家感兴趣的可以留言加我微信。
欢迎大家关注我的公众号
小明的数据分析笔记本
