ggplot绘制折线图遇group aesthetic警告，求解决及完整图表生成方案

警告触发原因 #

你的ggplot代码存在两个关键问题：

1. y轴映射错误：你把分类变量bank_financial（所有值均为"NPL %"）放在了y轴位置，但折线图需要数值型变量来展示趋势变化；
2. 分组逻辑问题：geom_line()默认按aes中的变量组合分组，每个report_year对应唯一的bank_financial值，导致每个分组仅含1个观测，无法生成连线，因此抛出警告。

修复步骤 #

1. 核心修复：修正美学映射 #

将y轴替换为实际的NPL百分比数值列amount，同时显式设置分组确保所有数据点被连起来：

convetional_npl %>% 
  ggplot(aes(x = report_year, y = amount, group = 1)) + 
  geom_line()

• group = 1强制将所有观测归为同一组，避免因默认分组逻辑导致无法连线。

2. 优化图表可读性（可选） #

为了让图表更直观，可添加数据点、将y轴转为百分比格式、补充标签：

library(scales)

convetional_npl %>% 
  ggplot(aes(x = report_year, y = amount, group = 1)) + 
  geom_line(color = "#2c3e50", linewidth = 1) +
  geom_point(color = "#e74c3c", size = 2) +
  scale_y_continuous(labels = percent_format(accuracy = 0.1)) +
  labs(
    title = "年度NPL百分比趋势",
    x = "报告年份",
    y = "NPL %"
  ) +
  theme_minimal()

简化数据处理（可选） #

你的数据处理流程可以精简，无需pivot_longer再过滤，直接保留计算后的NPL列即可：

convetional_npl <- df %>% 
  filter(
    bank_financial %in% c('Total Impaired Loan', 'Gross Loan'), 
    category == 'Universal Commercial Banks'
  ) %>%
  group_by(report_year, bank_financial) %>% 
  summarise(amount = sum(amount), .groups = 'drop') %>%
  pivot_wider(names_from = bank_financial, values_from = amount) %>%
  mutate(
    report_year = as_factor(report_year),
    amount = `Total Impaired Loan` / `Gross Loan`
  ) %>%
  select(report_year, amount)

内容的提问来源于stack exchange，提问作者Ong K.S