R ggplot2：线条的颜色部分

我绊倒了。我需要你的建议和建议。我需要为线条的部分应用不同的方案-颜色、虚线或增加“非常重要的特征”的厚度。我需要让它们在视觉上更具吸引力

dat <- rbind(
x <- sort(sample(1:1000,size = 200) + sample(1:500,size = 200, replace = T)),
y <- sort(sample(1:1000,size = 200) + sample(1:200,size = 200, replace = T)),
z <- sort(sample(1:1000,size = 200) - sample(1:100,size = 200, replace = T)))
rownames(dat) <- c("x","y","z")
#colnames(dat) <- paste("feature",1:200,sep="_")
library(reshape)
dat.m <- melt(dat)
ggplot(data=dat.m, aes(x=X2, y=value, group=X1, color = X1)) + geom_line()
very_important_features <- unique(sort(sample(dat.m$X2, 100)))

---

dat我有点不确定你想让哪个部分更引人注目，但这里有一个建议：

ggplot(data=dat.m, aes(x=X2, y=value, group=X1, color = X1)) + geom_line() +
  geom_line(data = dat.m[very_important_features, ], size = 2)

通常更好的做法是将要绘制的内容标识为数据中的一个单独列，以便将其映射到绘图/图层。以下是一个例子：

1-向数据框添加变量：

dat.m$important <- ifelse(dat.m$X2 < 60, "yes","no")

以下是输出：

现在有一个方便的图例显示了线条大小的含义

ggplot(data=dat.m)+
  aes(x=X2, y=value, group=X1, color = X1, size=important) +
  geom_line()+
  scale_size_manual(values=c("yes"=3, "no"=1))