R ggplot分组绘图后图表缩至半屏以下的问题排查

我从SQL Server导入带日期列的数据，转成tibble汇总后，按指定变量分组、以日期为X轴绘图时遇到两个问题：

• 未分组时图表能全屏显示，但线条无法连接
• 按颜色分组后，各组颜色分配正确，但图表缩到半屏以下

测试数据生成代码：

test_Data <- data.frame(region = sample(c("WER", "EAR", "NOR", "KCR"), 40, replace = TRUE),
                        values = sample(100:200, 40, replace = TRUE),
                        date_time = seq.Date(from = as.Date("2024-04-01"), 
                                             as.Date("2024-05-10"), by = "day"))
# 按region分组绘图
test_Data %>%
  ggplot() +
  geom_line(mapping = aes(date_time, values, colour = region))

问题根源 #

1. 分组后图表尺寸缩小 #

当用colour = region分组时，ggplot会自动生成图例，挤占了绘图区域的宽度。如果绘图设备的默认尺寸固定，图例占空间后就会压缩绘图区，导致图表看起来缩成半屏。

2. 未分组时线条断裂 #

未分组的geom_line会按X轴（日期）顺序连接数据点，但如果同一date_time对应多个不同的values（比如测试数据中同一日期有多个region的记录），ggplot无法确定连接逻辑，就会出现线条断裂或混乱。

解决方法 #

修复图表尺寸问题 #

两种方式可选：

• 调整绘图设备尺寸：导出时指定更大宽度，或手动拖大RStudio绘图窗口：

  ggsave("fullscreen_plot.png", width = 12, height = 6)
  

• 调整图例位置：将图例移至绘图区外部（顶部/底部），避免挤占宽度：

  test_Data %>%
    ggplot() +
    geom_line(aes(date_time, values, colour = region)) +
    theme(legend.position = "bottom")
  

修复未分组时的线条连接问题 #

先按日期对values做汇总（比如取均值、求和），确保每个日期仅对应一个值，再绘图：

test_Data %>%
  group_by(date_time) %>%
  summarise(values_avg = mean(values)) %>%  # 按需求选择汇总方式
  ggplot() +
  geom_line(aes(date_time, values_avg))

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