试试这个方法。条形的大小取决于如何计算间隔。对于其他点,您可以使用position_dodge() 和scale_x_discrete()。代码如下:
library(ggplot2)
#Code
file <- read.csv('sales.csv')
#Plot
ggplot(file, aes(shop, income, colour = season)) +
stat_summary(size = 0.8,position = position_dodge(0.25))+
scale_x_discrete(limits=c("Shop â„–1","Shop â„–2"),
labels=c('Shop1','Shop2'))
输出:
对于 y 轴,试试这个:
#Plot 2
ggplot(file, aes(shop, income, colour = season)) +
stat_summary(size = 0.8,position = position_dodge(0.25))+
scale_x_discrete(limits=c("Shop â„–1","Shop â„–2"),
labels=c('Shop1','Shop2'))+
scale_y_continuous(breaks = c(1050,1100,1150))
输出: