如何消除ggplot柱状图中20194与20201之间的X轴空白？

核心原因 #

你的Quartal列是数值型，20194和20201在数值上相差6，而其他相邻季度（如20191到20192）仅差1，ggplot会按照数值的实际间距分配X轴位置，因此两者之间出现了大空白。

方案1：将季度转换为因子类型 #

把Quartal转为因子，ggplot会将其视为离散类别，每个季度占据相等的X轴空间，直接消除空白。

修改后的完整代码：

# 生成数据集
Quartal <- c(rep(20191, 3), rep(20192, 3), rep(20193, 3), rep(20194, 3), rep(20201, 3),rep(20202, 3))
Condition <- rep(c("Value1", "Value2", "Value3"), 6)
Values <- c(100, 150, 125, 200, 185, 300, 400, 100, 150, 200, 225, 300, 100, 150, 125, 400, 350, 300)

dataset <- data.frame(Quartal, Condition, Values)
# 将Quartal转为因子，保持原有顺序
dataset$Quartal <- factor(dataset$Quartal, levels = unique(dataset$Quartal))

ggplot(dataset, aes(Quartal, Values, group= Condition, colour=Condition, fill=Condition))+
  geom_bar(stat="identity", position = position_dodge())

方案2：将季度转换为日期类型（保留时间逻辑） #

如果需要保留季度的时间间隔逻辑（比如后续可能添加更多季度、需要时间轴扩展），可以把季度数值转为对应的季度日期，这样ggplot会按实际时间间隔显示X轴，2019Q4到2020Q1的间隔和其他季度一致。

修改后的完整代码：

# 生成数据集
Quartal <- c(rep(20191, 3), rep(20192, 3), rep(20193, 3), rep(20194, 3), rep(20201, 3),rep(20202, 3))
Condition <- rep(c("Value1", "Value2", "Value3"), 6)
Values <- c(100, 150, 125, 200, 185, 300, 400, 100, 150, 200, 225, 300, 100, 150, 125, 400, 350, 300)

dataset <- data.frame(Quartal, Condition, Values)
# 将季度数值转为日期：提取年份和季度，转换为对应季度的第一天
dataset$Quartal_Date <- as.Date(paste0(substr(as.character(dataset$Quartal), 1, 4), "-", 
                                       (as.integer(substr(as.character(dataset$Quartal), 5, 5))-1)*3 + 1, "-01"))

ggplot(dataset, aes(Quartal_Date, Values, group= Condition, colour=Condition, fill=Condition))+
  geom_bar(stat="identity", position = position_dodge())+
  # 自定义X轴标签为原季度格式
  scale_x_date(date_labels = "%Y%q", date_breaks = "3 months")

方案对比 #

• 方案1简单直接，适合仅需展示现有季度的场景，X轴为离散类别。
• 方案2保留了时间维度的逻辑，适合后续需要扩展时间序列的场景，X轴为连续时间轴，间隔准确。

内容的提问来源于stack exchange，提问作者USER12345