R 语言绘制简单条形图

参考书籍：R数据可视化手册

1、使用barplot()函数绘制简单条形图

library(datasets)#数据来源

library(ggplot2)

barplot(BOD$demand,names.arg = BOD$Time)

数据展示	绘图结果

2、使用ggplot()函数绘制简单条形图

library(datasets)

library(ggplot2)

ggplot(BOD,aes(x=Time,y=demand))+geom_bar(stat="identity")

ggplot(BOD,aes(x=factor(Time),y=demand))+geom_bar(stat="identity")#factor()函数将Time数据转化为分类变量

ggplot(BOD,aes(x=Time,y=demand))+geom_bar(stat="identity")+geom_bar(stat="identity",fill="lightblue",colour="black")  #fill修改填充色颜色，colour修改边框颜色

数据展示	Time是数值型       （连续型）变量
将Time转化为离散型变量         （分类变量）	美化               条形图

3、绘制簇状条形图

library(gcookbook)

#library(RColorBrewer)

#其中cultivar，data是分类变量，weight是值。

ggplot(cabbage_exp,aes(x=Date,y=Weight,fill=Cultivar))+geom_bar(position = "dodge",stat ="identity" )

 #添加colour修改为黑色边框，使用scale_fill_brewer()或scale_fill_manual()函数

P<-ggplot(cabbage_exp,aes(x=Date,y=Weight,fill=Cultivar))+geom_bar(position = "dodge",stat ="identity",colour="black" )

P+scale_fill_brewer(palette="Greens")

P+scale_fill_brewer(palette=1)

P+scale_fill_brewer(palette="Set2")

P+scale_fill_manual(values =c("lightpink1","lightsalmon"))

P+scale_fill_manual(values =c("419","424"))

P+scale_fill_manual(values =c("#FFAEB9","#FFA07A"))

palette="Greens"	palette=2	palette="Set2"
"lightpink1","lightsalmon"	"419","424"	"#FFAEB9","#FFA07A"

自我总结：

绘制简单条形图，主要有三个重要的函数：

barplot(y,names.arg=x)

# y描述条形的高度，x描述每个条形对应的标签

ggplot(data,aes(x,y))+geom_bar(stat="identity")

注意：qplot（）函数也可以实现，但是我ggplot无法出图。

qplot(x,y,data,geom="bar",stat = "identity")

qplot(data$x,data$y,geom="bar",stat = "identity")

其中，如果BOD不知，可以使用help ,操作如下，

??BOD右边窗口有详细的示例

链接示例数据集：我共收集了3种方式：分别是library(datasets)、attach(mtcars)、datasets::mtcars。以上是我对简单条形图的总结，望大家批评和指正，我们一起学习。