#加载函数包

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

#计算每一个柱子的左右边界

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

#画图

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