ggplot2绘制日历周图表时坐标轴标签异常问题求助

嘿Johnny，作为R和ggplot2新手遇到这种问题很正常，我帮你梳理下代码里的几个关键问题，以及对应的修复方案：

问题分析 #

你的图表异常主要来自三个地方：

• 数据融合（melt）时错误包含了Artikel列，导致数据结构混乱
• y轴范围设置过小，直接截断了大部分高值数据（比如你的P2有7000的数值，ylim=c(1,300)会把这些点完全隐藏）
• x轴的日历周是字符类型，折线会按字符顺序排列（比如"10"会排在"2"前面），不符合时间逻辑

修复后的完整代码 #

# 加载所需包
library(readxl)
library(reshape2)
library(ggplot2)
library(scales) # 用于处理y轴的超出范围数据

# 读取数据
istvolumen_data <- read_excel("~/Dropbox/5. Semester/WI3/KOMPLETT.xlsx", 
                              sheet = "Programmplanung", 
                              range = "B41:BC49")

# 修正数据融合：只选择除Artikel外的日历周列作为measure.vars
dat_m <- melt(istvolumen_data, 
              id.vars = "Artikel", 
              measure.vars = setdiff(names(istvolumen_data), "Artikel"))

# 处理x轴：将日历周变量转为数值型（假设列名是数字，比如"1","2"...；如果是"CW1"格式，用sub("CW", "", variable)提取数字）
dat_m$week <- as.numeric(as.character(dat_m$variable))

# 绘制折线图
ggplot(dat_m, aes(x = week, y = value, colour = Artikel)) +
  geom_point() +
  geom_line(aes(group = Artikel)) +
  # 可选：如果想保留高值数据同时聚焦小范围，用squish压缩超出范围的点；如果要看完整数据，直接删掉这行
  scale_y_continuous(limits = c(1, 300), oob = squish) +
  labs(x = "日历周（CW）", y = "数值", colour = "条目（Artikel）") + # 添加清晰的轴标签
  theme_minimal() # 可选：美化主题

关键修复点说明 #

• 数据融合修正：setdiff(names(istvolumen_data), "Artikel")确保只把日历周列作为数值列融合，避免混入Artikel列导致数据错误
• x轴类型转换：把字符型的日历周转为数值型，保证折线按时间顺序正确排列
• y轴优化：用scale_y_continuous配合oob = squish，既可以聚焦你想要的1-300范围，又不会让高值点消失（它们会被显示在y轴上限位置）；如果想查看完整数据，直接移除这一行即可
• 添加标签：通过labs让图表更易读，符合可视化规范

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