如何在barplot中隐藏零值条形线条并保留x轴间隙？

你可以通过以下两种方法实现：保留所有x轴标签的同时，让y值为0的位置呈现间隙而非轮廓线。

方法一：Base R 实现 #

先生成频数向量，将0值替换为NA后绘制，再手动添加完整的x轴标签：

# 原始数据
vec <- c(0, 0, 0, 1, 1, 2, 2, 2, 4, 8, 10)
# 生成包含所有levels的频数表
freq_table <- table(factor(vec, levels = seq(0, 10, 1)))
freq_vec <- as.numeric(freq_table)

# 将0值替换为NA，barplot会自动跳过这些位置
freq_vec_na <- ifelse(freq_vec == 0, NA, freq_vec)

# 绘制条形图，先不显示坐标轴
bp <- barplot(freq_vec_na, axes = FALSE, space = 1, col = "gray")
# 添加y轴
axis(2)
# 添加完整的x轴标签，对应所有预设levels
axis(1, at = bp, labels = seq(0, 10, 1))
# 可选：添加坐标轴标题
title(xlab = "数值", ylab = "频数")

方法二：ggplot2 实现（更简洁） #

利用ggplot2的子集筛选功能，仅绘制频数大于0的条形，同时强制保留所有x轴分类：

library(ggplot2)

# 构造数据框
df <- data.frame(
  x = factor(vec, levels = seq(0, 10, 1)),
  count = as.numeric(freq_table)
)

# 绘制图形
ggplot(df, aes(x = x, y = count)) +
  geom_col(data = subset(df, count > 0), fill = "gray") + # 只绘制非0频数的条形
  scale_x_discrete(drop = FALSE) + # 强制保留所有x轴标签
  labs(x = "数值", y = "频数")

这两种方法都能满足你的需求：既保留了所有x轴的取值标签，又让y值为0的位置呈现间隙，不会出现轮廓线。

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