R语言：替换X轴标签为new_id并优化显示问题求助

你遇到的空图和警告，核心原因是错误地将离散唯一值new_id作为折线图的X轴变量：每个new_id对应唯一一条数据，geom_line默认按X轴分组后每组仅一个观测，自然无法连接成折线。

正确思路是保留原有序连续变量id作为绘图的X轴位置变量（保证折线连续性），仅替换X轴的刻度标签为对应的new_id，并只展示随机抽样的10%标签。

修正代码 #

方式1：转长格式绘图（更简洁推荐） #

library(ggplot2)
library(dplyr)
library(tidyr)

# 固定随机种子，保证抽样可重复
set.seed(123)
# 随机抽取10%的id，匹配对应的new_id作为标签
sampled_ids <- sample(final$id, size = round(0.1 * nrow(final)))
sampled_labels <- final$new_id[final$id %in% sampled_ids]

# 将宽格式数据转成长格式，简化绘图代码
final_long <- final %>%
  pivot_longer(cols = starts_with("var"), 
               names_to = "variable", 
               values_to = "value")

# 绘制折线图
ggplot(final_long, aes(x = id, y = value, color = variable)) +
  geom_line() +
  scale_x_continuous(
    breaks = sampled_ids,    # 指定要显示的刻度位置（对应抽样的id）
    labels = sampled_labels, # 替换为对应的new_id标签
    limits = c(min(final$id), max(final$id))
  ) +
  labs(title = "My Plot", x = "new_id", y = "var_value") +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5), # 垂直显示标签
    legend.title = element_blank() # 可选：去掉图例标题
  )

方式2：保留原多geom_line写法 #

如果不想转换数据格式，也可以直接修改原代码：

library(ggplot2)

set.seed(123)
sampled_ids <- sample(final$id, size = round(0.1 * nrow(final)))
sampled_labels <- final$new_id[final$id %in% sampled_ids]

ggplot(final, aes(x = id)) +
  geom_line(aes(y = var1, color = "var1")) +
  geom_line(aes(y = var2, color = "var2")) +
  geom_line(aes(y = var3, color = "var3")) +
  scale_x_continuous(
    breaks = sampled_ids,
    labels = sampled_labels,
    limits = c(min(final$id), max(final$id))
  ) +
  labs(title = "My Plot", x = "new_id", y = "var_value") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5))

关键说明 #

1. 折线图依赖连续/有序的X轴变量来连接数据点，id是天然的有序变量，不能替换为离散唯一的new_id。
2. 通过scale_x_continuous的breaks参数指定要显示的刻度位置（抽样的id），再用labels参数将这些位置的标签替换为对应的new_id。
3. axis.text.x的angle=90实现标签垂直显示，hjust=1和vjust=0.5保证标签与刻度对齐。

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