看图你用了x, y, fill三个绘图元素做柱状图,再加个group即可
没有数据我就用diamonds数据模拟一个了
library(ggplot2)
library(dplyr)
diamonds %>%
mutate(expensive = price > 3900) %>% # 同一个color再按价格3500分两类
ggplot(aes(x=color, y =price,fill=cut, group=expensive))+ #构造的expensive作为第四变量画图
geom_col(position="dodge")