barplot()画条形图（有纹理）

关注“R医学”，获取更多R语言绘制图形代码

晓晓

2023-07-17

#创建数据集
data <- data.frame(
  name=letters[1:5],
  value=sample(seq(4,15),5)
  )

#查看数据集
data

##   name value
## 1    a    14
## 2    b    11
## 3    c    10
## 4    d    13
## 5    e     5

#绘制
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

## [1] "#66C2A5" "#FC8D62" "#8DA0CB" "#E78AC3" "#A6D854"

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