vlambda博客
学习文章列表

点击蓝字↑↑↑“微生态”，轻松关注不迷路

本文由阿童木根据实践经验而整理，希望对大家有帮助。

原创微文，欢迎转发转载。

举例展示几种常用的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 <- colorRampPalette(c("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 

4 

5 

微生态科研学术群期待与您交流更多微生态科研问题

（联系微生态老师即可申请入群）

了解更多菌群知识，请关注“微生态”。