ggplot geom_line基于条件的不同行大小（错误呈现）

Question

我正在尝试在ggplot2中创建一个基于条件具有不同行大小的线图。

我用这段代码完成了这个：

library(zoo)
library(ggplot2)

dat_1 <- data.frame(
  "date" =seq(as.yearmon(Sys.Date()) - 4, as.yearmon(Sys.Date()), 1/12),
  "value" = rnorm(49),
  "ID" = "A",
  "Condition" = sample(c("AA", "AB"), size = 49, replace = TRUE)
)

dat_2 <- data.frame(
  "date" =seq(as.yearmon(Sys.Date()) - 4, as.yearmon(Sys.Date()), 1/12),
  "value" = rnorm(49),
  "ID" = "B",
  "Condition" = (sample(c("AA", "AB"), size = 49, replace = TRUE))
)

dat <- rbind(dat_1, dat_2)

ggplot(dat, aes(x = date, y = value, color = ID, group = ID)) + geom_line(aes(size = Condition)) +   scale_size_manual(values = c(0.5, 2.5))

这是我想要的（这只是一个虚拟的，所以没有优化的尺寸）。

但是，如果你仔细观察，你会发现这些线条实际上是盒子的集合，而不是流畅的线条：

我该如何解决这个问题？

也可能是因为我的x轴是yearmon。但无论如何，在这种情况下，它们会继续缩放（通过ggplot）。