r - 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(). 有什么建议么？

标签： rggplot2