#创建数据集

data <- data.frame(

  name=letters[1:5],

  value=sample(seq(4,15),5)

  )

#查看数据集

data

#绘制

barplot(height=data$value, names=data$name)

#改为一个统一颜色

barplot(height=data$value, names=data$name, col=rgb(0.2,0.4,0.6,0.6) )

#不同颜色主题

library(RColorBrewer)

coul <- brewer.pal(5, "Set2")

coul

barplot(height=data$value, names=data$name, col=coul )

#框子颜色

barplot(height=data$value, names=data$name, border="#69b3a2", col="white" )

#坐标轴范围更改，以及坐标名字更改

barplot(height=data$value, names=data$name,

        col=rgb(0.8,0.1,0.1,0.6),

        xlab="categories",

        ylab="values",

        main="My title",

        ylim=c(0,40)

)

#图形要横着

barplot(height=data$value, names=data$name,

        col="#69b3a2",

        horiz=T, las=1

)

#要纹理，不要颜色

barplot( height=data$value,

        names=data$name ,

        density=c(5,10,20,30,7) ,

        angle=c(0,45,90,11,36) ,

        col="brown")