点击蓝字↑↑↑“微生态”,轻松关注不迷路
本文由阿童木根据实践经验而整理,希望对大家有帮助。
原创微文,欢迎转发转载。
举例展示几种常用的ggplot取色方法,例如:
1. 通过字符串区分取色;
2. 通过数字取色;
3. 取渐变色;
4. 通过RColotBrewer方案取色。
一, 输入数据
library(ggplot2)
library(RColorBrewer)
df = data.frame(x=1:10, y=seq(1, 20, 2), z=seq(1000, 100, -100), c=paste("color", seq(1, 10, 1)))
图1
二, 无色
ggplot(df, aes(x=x, y=y)) +
geom_bar(stat="identity")
图2
三、默认颜色
ggplot(df, aes(x=x, y=y, fill=c)) +
geom_bar(stat="identity") +
labs(x="x axis", y="y axis", fill="legend")
图3
四、数字取色-正序
ggplot(df, aes(x=x, y=y, fill=x)) +
geom_bar(stat="identity") +
labs(x="x axis", y="y axis", fill="legend")
图4
五、数字取色-倒序
ggplot(df, aes(x=x, y=y, fill=z)) +
geom_bar(stat="identity") +
labs(x="x axis", y="y axis", fill="legend")
图5
六、渐变色:色1-色2,取色
colors "red", "orange"))(10)
ggplot(df, aes(x=x, y=y)) +
geom_bar(stat="identity", fill=colors[rank(10:1)]) +
labs(x="x axis", y="y axis", fill="legend")
图6
七、RColorBrewer取色:set3为例
ggplot(df, aes(x=x, y=y)) +
geom_bar(stat="identity", fill=brewer.pal(10, "Set3")) +
labs(x="x axis", y="y axis", fill="legend")
图7
你可能还喜欢
1 技术贴 | 16S专题 | 简单介绍如何用自己的笔记本处理高通量16S数据
2 技术贴 | 宏基因组专题 | 组装工具盘点和比较
3 技术贴 | R语言菌群Alpha多样性分析和绘图
4 技术贴 | 宏转录组专题 | DDBJ数据库:宏转录组测序数据下载
5 技术贴 | R语言pheatmap聚类分析和热图
微生态科研学术群期待与您交流更多微生态科研问题
(联系微生态老师即可申请入群)
了解更多菌群知识,请关注“微生态”。