ggplot2大量条形图缩放时部分条形消失的问题求助

用ggplot2绘制包含1000+条的条形图，想要把其中一部分条形设为黑色高亮显示，但因为条形数量过多，出现了疑似屏幕分辨率相关的显示异常：缩放时部分黑色条形会莫名出现或消失，底部的rug图短线也有同样的问题，甚至还会出现不该有的白色条形。试过在条形图上叠加点来标记，但美观性极差且不够直观，急需能保证所有黑色条形正常显示的解决方案。

解决方案 #

方法1：导出为矢量格式 #

屏幕显示的位图分辨率有限，缩放时容易丢失细节，直接导出为PDF、SVG这类矢量格式，用矢量阅读器（比如Adobe Reader、Inkscape）查看就能保证所有元素正常显示，不会出现缩放失真：

# 导出为PDF矢量图
ggsave("testPlot1.pdf", testPlot1, width = 12, height = 8)
# 导出为SVG矢量图
ggsave("testPlot1.svg", testPlot1, width = 12, height = 8)

方法2：调整条形宽度与绘图分辨率 #

如果需要在屏幕上直接查看，可通过设置条形宽度避免元素被合并，同时提高绘图分辨率：

# 修改绘图代码，强制设置条形宽度为1（填满x轴刻度间隔）
testPlot1 <- ggplot(a, aes(x = order, y = graph)) + 
  geom_bar(aes(fill=col), stat = "identity", na.rm=T, width = 1) +
  theme_classic() + 
  ggtitle('Plot A with facets') +
  scale_fill_manual(values=c(`FALSE`='lightgrey',`TRUE`='black')) +
  geom_rug(sides='b', aes(color=col), size = 0.5) +  # 增大rug线粗细，避免被忽略
  scale_color_manual(values=c(`FALSE`='white',`TRUE`='black')) + 
  guides(color='none',x='none') +
  facet_wrap(~facet, scales='free_x')

# 高分辨率打印到屏幕
print(testPlot1, dpi = 600)

# 或者导出高分辨率位图
ggsave("testPlot1_highres.png", testPlot1, width = 12, height = 8, dpi = 600)

方法3：用geom_tile替代geom_bar #

geom_tile的渲染逻辑更适合高密度的小元素，能有效避免条形合并的问题：

testPlot1 <- ggplot(a, aes(x = order, y = graph)) + 
  geom_tile(aes(fill=col), height = 1) +  # height设为1对应原条形的高度
  theme_classic() + 
  ggtitle('Plot A with facets') +
  scale_fill_manual(values=c(`FALSE`='lightgrey',`TRUE`='black')) +
  geom_rug(sides='b', aes(color=col), size = 0.5) +
  scale_color_manual(values=c(`FALSE`='white',`TRUE`='black')) + 
  guides(color='none',x='none') +
  facet_wrap(~facet, scales='free_x')

print(testPlot1)

方法4：分层绘制高亮条形 #

先绘制所有灰色条形，再单独绘制黑色高亮条形，确保高亮元素在最上层，不会被灰色条形覆盖或合并：

# 拆分数据为灰色组和高亮组
grey_data <- dplyr::filter(a, !col)
black_data <- dplyr::filter(a, col)

testPlot1 <- ggplot() +
  # 先画灰色条形作为底层
  geom_bar(data = grey_data, aes(x = order, y = graph), fill = 'lightgrey', stat = "identity", na.rm=T) +
  # 再画黑色高亮条形，确保在顶层
  geom_bar(data = black_data, aes(x = order, y = graph), fill = 'black', stat = "identity", na.rm=T) +
  theme_classic() + 
  ggtitle('Plot A with facets') +
  geom_rug(data = black_data, sides='b', color='black', size = 0.5) +  # 只绘制高亮对应的rug线
  guides(x='none') +
  facet_wrap(~facet, scales='free_x')

print(testPlot1)

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