ggplot 2中奇怪的x / y轴标签 - 绘制日历周

Question

我的表看起来像这样：

Article     1      2      3     ....
P1          100    3000   300
P2          0      7000   200   .....
...

所以有文章和日历周（直到53）。

我想在x轴上绘制CW，在y轴上绘制值，并为每一条第一行绘制。

我的代码：

library(readxl)##data
istvolumen_data <- read_excel("~/Dropbox/5. Semester/WI3/KOMPLETT.xlsx", sheet = "Programmplanung", range = "B41:BC49")


library(reshape2) ##melting
dat_m <- melt(istvolumen_data, id.vars = "Artikel", 
              measure.vars = grep("^", names(istvolumen_data), value = TRUE))

library(ggplot2)##plotting
ggplot(dat_m, aes(y = value, x = variable, colour = as.factor(Artikel))) +
  geom_point() +
  geom_line(aes(group = Artikel)) +
  coord_cartesian(ylim = c(1, 300))

。

但是这给了我一些奇怪的情节：

非常感谢您的帮助。我是ggplot2和R的新手！

编辑：这里回应MKRS问题......

dput used

...更好地用y轴可视化我的问题：

y-axis problematic