如何用R画一个柱状图，代码都在这里了

画图是生物信息分析中的高频动作，在第二讲《错过她，也不能错过的R语言》中，我们留下一个彩蛋，今天来放送答案。

在统计学中,变量按变量值是否连续可分为连续变量与离散变量两种。

       柱状图一般用于离散变量绘图，那离散变量指的是什么呢？

小板报

离散变量是指其数值只能用自然数或整数单位计算的则为离散变量。

反之,在一定区间内可以任意取值的变量叫连续变量,其数值是连续不断的,相邻两个数值可作无限分割,即可取无限个数值。

在ggplot2中绘制柱状图使用的几何对象是geom_bar()，默认的统计变换是stat_count（对映射到x轴的变量计数），如果我们的数据不需要默认的计数统计变换，且已经做好统计变换，只需要直接绘图，设置参数geom_bar(stat="identity") 即可。

柱形图一般有3种形式，1）填充式；2）堆积式；3）并列式。

首先，我们模拟一个包括3列的数据，并赋值给data变量，用head(data)函数查看前6行，展示如下：

specie <- c(rep("sorgho" , 3) , rep("poacee" ,3) , rep("banana" , 3) , rep("triticum" , 3) )

condition <- rep(c("normal" , "stress" ,"Nitrogen") , 4)

value <- abs(rnorm(12 , 0 , 15))

data <- data.frame(specie,condition,value)

在绘图的时候把specie映射给x，value映射给y，condition映射给颜色属性。并且设置坐标轴标题字体16，坐标轴标签字体14，图片的title字体为20

1）填充式需要设定几何对象geom_bar()的参数position="fill"（堆叠数据，百分比展示）

p <- ggplot(data, aes(x=specie,  y=value, fill=condition)) 

+geom_bar(stat="identity", position="fill") 

+theme_bw()

+labs(x = "Specie",y = "Value", title = "This is barplot") 

+theme(axis.title =element_text(size = 16),axis.text =element_text(size = 14, color = "black"),plot.title =element_text(hjust = 0.5, size = 20))

p

2）堆积式需要设定几何对象geom_bar()的参数position = "stack"（堆叠数据，非百分比展示）

p <- ggplot(data, aes(x=specie, y=value, fill=condition))

+geom_bar(stat="identity", position="stack") 

+theme_bw() 

+labs(x = "Specie",y = "Value", title = "This is barplot") 

+theme(axis.title =element_text(size = 16),axis.text =element_text(size = 14, color = "black"),plot.title =element_text(hjust = 0.5, size = 20))

p

3）并列式需要设定几何对象geom_bar()的参数position= "dodge"（并列数据，非百分比展示）

p <- ggplot(data, aes(x=specie, y=value, fill=condition)) 

+geom_bar(stat="identity", position="dodge") 

+theme_bw() 

+labs(x = "Specie",y = "Value", title = "This is barplot") 

+theme(axis.title =element_text(size = 16),axis.text =element_text(size = 14, color = "black"),plot.title =element_text(hjust = 0.5, size = 20))

p

柱状图、散点图、饼图、热图、韦恩图、箱形图···

小伙伴们最想了解哪一个，可以添加小助手微信（genegogo007），留言给我们。

文字：孙怀博

排版：Anymore