跟着Nature microbiology学画图~R语言ggplot2画直方图
跟着Nature microbiology学画图~R语言ggplot2画直方图
用户7010445
发布于 2020-12-18 17:17:49
发布于 2020-12-18 17:17:49
文章被收录于专栏：小明的数据分析笔记本
image.png
重复的图片是Figure2中的直方图
image.png
首先是模拟数据
直方图的数据相对比较简单，只需要准备一列x和一列y即可
另存为csv格式，存储到Rstudio的工作目录下。这边我命名为 example_1.csv
读入数据
df<-read.csv("example_1.csv",header=T)
df
最基本的直方图
使用geom_col()函数
ggplot(df,aes(x=x,y=y))+
geom_col()
image.png
如果想要让柱子紧挨着，去除柱子之间的空白，可以加一个width=1这个参数
ggplot(df,aes(x=x,y=y))+
geom_col(width = 1)
image.png
为边框设置颜色用到的是color参数
ggplot(df,aes(x=x,y=y))+
geom_col(width = 1,color="black")
image.png
更改柱子的填充颜色用到的是fill参数
ggplot(df,aes(x=x,y=y))+
geom_col(width = 1,color="black",fill="grey")
image.png
更改x轴和y轴的标题，可以用labs()函数
ggplot(df,aes(x=x,y=y))+
geom_col(width = 1,color="black",fill="grey")+
labs(x="Niche width",y="Number of ESVs")
image.png
去掉灰色的背景，通过主题函数theme()进行设置
ggplot(df,aes(x=x,y=y))+
geom_col(width = 1,color="black",fill="grey")+
labs(x="Niche width",y="Number of ESVs")+
theme(panel.background = element_blank())
image.png
加上x轴和y轴的线条
ggplot(df,aes(x=x,y=y))+
geom_col(width = 1,color="black",fill="grey")+
labs(x="Niche width",y="Number of ESVs")+
theme(panel.background = element_blank(),
axis.line = element_line())
image.png
添加一条垂直的辅助线，用到的是geom_vline()函数
ggplot(df,aes(x=x,y=y))+
geom_col(width = 1,color="black",fill="grey")+
labs(x="Niche width",y="Number of ESVs")+
theme(panel.background = element_blank(),
axis.line = element_line())+
geom_vline(xintercept = 4,lty="dashed",color="red")
image.png
添加右侧粉红色的矩形框，用到的是geom_rect()函数
ggplot(df,aes(x=x,y=y))+
geom_col(width = 1,color="black",fill="grey")+
labs(x="Niche width",y="Number of ESVs")+
theme(panel.background = element_blank(),
axis.line = element_line())+
geom_vline(xintercept = 4,lty="dashed",color="red")+
geom_rect(aes(xmin=4.02,xmax=4.5,ymin=0,ymax=1200),
fill="red",alpha=0.2)
image.png
最后是添加一些文本注释，使用的是annotate()函数
ggplot(df,aes(x=x,y=y))+
geom_col(width = 1,color="black",fill="grey")+
labs(x="Niche width",y="Number of ESVs")+
theme(panel.background = element_blank(),
axis.line = element_line())+
geom_vline(xintercept = 4,lty="dashed",color="red")+
geom_rect(aes(xmin=4.02,xmax=4.5,ymin=0,ymax=1200),
fill="red",alpha=0.2)+
annotate("text",x=0,y=1250,label="Specialist microbes")+
annotate("text",x=4,y=1250,label="Generalist microbes")
本文参与 腾讯云自媒体同步曝光计划，分享自微信公众号。
原始发表：2020-12-11，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
目录
相关产品与服务
文件存储
文件存储（Cloud File Storage，CFS）为您提供安全可靠、可扩展的共享文件存储服务。文件存储可与腾讯云服务器、容器服务、批量计算等服务搭配使用，为多个计算节点提供容量和性能可弹性扩展的高性能共享存储。腾讯云文件存储的管理界面简单、易使用，可实现对现有应用的无缝集成；按实际用量付费，为您节约成本，简化 IT 运维工作。
腾讯云开发者
