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))