使用ggplot2的geom_line()时，因季度数据缺失导致部分公司时间序列不显示的解决方法

你的问题很典型——当部分公司只有年度末（Q4）的固定资产周转率数据，其余季度为NA时，geom_line() 默认无法为这些公司绘制线条，原因主要有两个：

1. time 是因子类型（离散类别），ggplot 不会自动跨越无数据的离散类别连线；
2. 大量NA值导致geom_line()无法识别有效的连续数据序列。

下面给出两种实用的解决方案：

方案1：保留原因子型x轴，筛选有效数据绘制线条 #

这种方法适合你希望保留原有季度因子标签的场景，我们同时用geom_point()显示所有存在的数据点，再用geom_line()只连接有数值的点：

library(ggplot2)
library(dplyr)

ggplot(df, aes(x = time, y = value, color = Company, group = Company)) +
  geom_point(size = 2) +  # 突出显示所有非NA的数据点
  geom_line(data = df %>% filter(!is.na(value)), linewidth = 1) +  # 仅连接有数据的点
  theme_bw() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

这样A、C公司的年末数据点会被连线，B公司的完整季度折线也能正常显示，同时所有数据点都清晰可见。

方案2：将季度转换为连续日期类型，自动跨越时间间隔连线 #

如果希望更贴合时间序列的逻辑（让折线自动跨越无数据的季度），可以先把time转换为日期格式，再绘图：

第一步：处理数据，转换季度为日期 #

library(lubridate)

df <- df %>%
  mutate(time_date = yq(time))  # 将"2019 Q1"这类格式转换为对应季度的起始日期

第二步：绘制连续时间轴的折线图 #

ggplot(df, aes(x = time_date, y = value, color = Company, group = Company)) +
  geom_line(na.rm = TRUE, linewidth = 1) +  # na.rm=TRUE忽略NA值，连接有效数据点
  geom_point(size = 2) +
  scale_x_date(
    date_labels = "%Y Q%q",  # 设置x轴标签为"YYYY Qx"格式
    date_breaks = "3 months"  # 每3个月显示一个刻度
  ) +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

这种方式下，A、C公司的两个年度末数据会被一条直线连接，直观展示年度间的变化趋势，同时B公司的季度波动也能完整呈现。

补充说明 #

• 如果你不想显示数据点，只保留折线，方案1中可以去掉geom_point()，但建议保留点来明确数据的实际存在位置；
• 方案2的日期转换依赖lubridate包的yq()函数，它能自动识别"YYYY Qx"格式的字符串并转换为日期。

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