R xkcd包xkcdline颜色

Question

我正在尝试使用xkcd包自定义R中xkcd样式图的外观。我想反转颜色，使所有文本和线条变白。我能够使用theme()更改文本。我可以用同样的方式改变轴和刻度线，但我想不出办法改变用xkcdline绘制的模糊线的线颜色（和尺寸）。

data <- data.frame(x1=c(1,2), y1=c(10,20), xend=c(2.5,0.5),
yend=c(20,10), model=c("low","high"))

ggplot() + xkcdline(mapping=aes(xbegin=x1 +y1, ybegin=y1, 
xend =xend, yend= yend, color = model), data=data) +
xkcdaxis(range(0:20),range(10:20))

这可以根据映射的美感改变线条的颜色，但如果我想要所有的线条都是蓝色怎么办？我以为这会起作用

ggplot() + xkcdline(mapping=aes(xbegin=x1 +y1, ybegin=y1, 
xend =xend, yend= yend), data=data, color = "blue") +
xkcdaxis(range(0:20),range(10:20), color = "blue")

但它似乎忽略了颜色分配，结果是黑线。我可以使用虚拟变量并手动更改颜色，但该技巧不适用于xkcdaxis()。有什么建议吗？