r - ggplot特定粗线

Question

如何才能绘制出比另一条线更粗的线。我尝试使用 geom_line(size=X) ，但这会增加两条线的粗细。假设我想增加第一列的厚度，如何才能实现这一点？

a <- (cbind(rnorm(100),rnorm(100)))  #nav[,1:10]
sa <- stack(as.data.frame(a))
sa$x <- rep(seq_len(nrow(a)), ncol(a))
require("ggplot2") 
p<-qplot(x, values, data = sa, group = ind, colour = ind, geom = "line")
p + theme(legend.position = "none")+ylab("Millions")+xlab("Age")+
geom_line( size = 1.5)

Answer 1

您需要将线条粗细映射到变量:

p + geom_line(aes(size = ind))

要控制厚度，请使用scale_size_manual():

p + geom_line(aes(size = ind)) +
  scale_size_manual(values = c(0.1, 1))