展开ggplot2中的线型图例

Question

我正在使用ggplot在时间轴上显示我的数据，并且我希望每种处理使用不同的线型。一个也有不同的颜色，但这不相关。

我的问题是，图例仅显示该行的一小部分，这使得难以区分线型。在网上找到的一些示例中，我在图例中看到了更长的行（例如lty =“ dotted”的3-4点），但是我没有注意到其代码中的任何特定内容。

如何更改图例以使线型更清晰？

我需要一个分辨率为600ppi的TIFF文件，因此几乎无法区分。我上传的图片的分辨率为res = 100，在这里或多或少都可以。分辨率较高时，左右差异会变得很小。

这里有一些伪代码。

library(ggplot2)

# dummy dataset
treat <- rep(c("A","B","C","D"),times=6)
day <- rep(c(0,1,2,3,4,5),each=4)
nr <- sample(5:20,size=24,replace = T)
df <- data.frame(treat,day,nr)

# plot
test <- ggplot(df, aes(day, nr, lty=treat, colour=treat)) + 
  geom_line(size=1.2) +
  scale_linetype_manual(labels=c("A","B","C","D"), values=c("dotted","dotdash","dashed","solid")) +
  scale_colour_manual(labels=c("A","B","C","D"), values=c("black","black","darkgrey","black"))
test

# save as TIFF
tiff('test.tiff', units="in", width=8, height=6, res=600)
test
dev.off()