使用ggplot绘制面板数据时连续X轴重复值问题解决

问题说明 #

用ggplot绘制面板数据折线图时，希望X轴显示每个单独的季度日期，但因Quarter列是重复的数值型数据（每个行业对应相同季度），使用scale_x_continuous(labels = as.character(Quarter), breaks=Quarter)会导致X轴刻度重复、显示混乱。

数据结构 #

structure(list(Quarter = c(2019.3, 2019.4, 2020.1, 2020.2, 2020.3, 
2020.4, 2021.1, 2019.3, 2019.4, 2020.1, 2020.2, 2020.3, 2020.4, 
2021.1, 2019.3, 2019.4, 2020.1, 2020.2, 2020.3, 2020.4, 2021.1
), Risk_exposure = c(0.931366310178586, 0.790048218420605, 0.926209779967134, 
0.948074080058149, 0.977557012231547, 0.798212439797712, 1.37986128229538, 
0.643837908999298, 0.589151809903988, 0.560347370890284, 0.610139698052225, 
0.594840529383872, 0.625698251450734, 0.647346199698159, 0.672295261900964, 
0.661018891645603, 1.12339028625562, 0.882948576808631, 0.706404636299307, 
0.929349206317779, 0.574016070848228), industry = c("Retail", 
"Retail", "Retail", "Retail", "Retail", "Retail", "Retail", "Consumer services", 
"Consumer services", "Consumer services", "Consumer services", "Consumer services", 
"Consumer services", "Consumer services", "Food beverage Tabacco", "Food beverage Tabacco", 
"Food beverage Tabacco", "Food beverage Tabacco", "Food beverage Tabacco", 
"Food beverage Tabacco", "Food beverage Tabacco")), class = "data.frame", row.names = c(NA, 
-21L))

解决方案 #

方法1：将Quarter转换为因子类型 #

把重复的数值型季度转换为因子，确保X轴只显示唯一的季度值，同时指定group=industry保证折线正确连接：

# 转换为因子，保留原始季度顺序
industry_risk_exposure_covid$Quarter <- factor(industry_risk_exposure_covid$Quarter, 
                                               levels = unique(industry_risk_exposure_covid$Quarter))

# 绘制折线图
ggplot(data = industry_risk_exposure_covid, aes(x=Quarter, y=Risk_exposure)) +
  geom_line(aes(colour=industry, group=industry)) +
  labs(x = "季度", y = "风险暴露", colour = "行业")

方法2：将Quarter转换为日期类型（更规范的时间处理） #

用lubridate包把数值型季度转换为标准日期，让ggplot正确识别时间序列：

library(lubridate)

# 转换为季度日期，例如2019.3转为2019年第三季度的起始日期
industry_risk_exposure_covid$Quarter_date <- yq(paste0(floor(industry_risk_exposure_covid$Quarter), 
                                                       "Q", substr(industry_risk_exposure_covid$Quarter, 6,6)))

# 绘制折线图
ggplot(data = industry_risk_exposure_covid, aes(x=Quarter_date, y=Risk_exposure)) +
  geom_line(aes(colour=industry)) +
  scale_x_date(date_labels = "%Y Q%q", breaks = unique(industry_risk_exposure_covid$Quarter_date)) +
  labs(x = "季度", y = "风险暴露", colour = "行业")

问题原因 #

原代码中scale_x_continuous的breaks和labels传入了整个Quarter列（包含大量重复值），导致X轴刻度被重复绘制，进而出现显示混乱。转换为因子或日期类型后，X轴只会使用唯一的刻度值，解决重复问题。

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