柱状图设置每个柱子的宽度、柱状图、R语言柱状图

关注公众号“R医学”，获取R语言学习、绘图、建模资源

晓晓

2023-07-17

#加载函数包
library(ggplot2)
library(hrbrthemes)

#构建数据
data <- data.frame(
  group=c("A ","B ","C ","D ") , 
  value=c(33,62,56,67) , 
  number_of_obs=c(150,500,400,200)
)

#查看数据
data

##   group value number_of_obs
## 1    A     33           150
## 2    B     62           500
## 3    C     56           400
## 4    D     67           200

#计算每一个柱子的左右边界
data$right <- cumsum(data$number_of_obs) + 30*c(0:(nrow(data)-1)) #将一个数据集中的每个观察值（number_of_obs）向右移动（宽度累加+间隔累加）
data$left <- data$right - data$number_of_obs 


#再次查看数据
data

##   group value number_of_obs right left
## 1    A     33           150   150    0
## 2    B     62           500   680  180
## 3    C     56           400  1110  710
## 4    D     67           200  1340 1140

#画图
ggplot(data, aes(ymin = 0)) + 
  geom_rect(aes(xmin = left, 
                xmax = right, 
                ymax = value, 
                colour = group,
                fill = group)) +
  xlab("number of obs") + 
  ylab("value") +
  theme_ipsum() +
  theme(legend.position="none")