r - 使用 ggplot2 绘制 1000 行

Question

我有 1000 个时间序列向量，并希望将它们全部绘制在 ggplot2 图形上，x 轴的范围为 (1:1000)。我还想将 alpha 设置得相对较低，以查看某些区域的密度。

有没有办法不用 1000 geom_line 语句就可以做到这一点？

Answer 1

这是一个示例，演示了如何在 R 中制作可重现的示例，并展示了如何使用 ggplot2 绘制 1000 行:

library(ggplot2)
library(reshape2)

n = 1000
set.seed(123)

mat = matrix(rnorm(n^2), ncol=n)
cmat = apply(mat, 2, cumsum)
cmat = t(cmat)
rownames(cmat) = paste("trial", seq(n), sep="")
colnames(cmat) = paste("time", seq(n), sep="")

dat = as.data.frame(cmat)
dat$trial = rownames(dat)
mdat = melt(dat, id.vars="trial")
mdat$time = as.numeric(gsub("time", "", mdat$variable))


p = ggplot(mdat, aes(x=time, y=value, group=trial)) +
    theme_bw() +
    theme(panel.grid=element_blank()) +
    geom_line(size=0.2, alpha=0.1)