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")

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

#fill修改填充色颜色，colour修改边框颜色

                                                 Time是数值型（连续型）变量

                                     factor()函数 将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。以上是我对简单条形图的总结，望大家批评和指正，我们一起学习。