如何使用ggplot2在一个绘图中绘制二维数组的行？

Question

我有一个类似于以下的数据矩阵，我想要有一个重叠的行的图（即每行的一个情节，所有的情节覆盖）。

90 60 58 82 66 68 66 54 64 56 70 66 64 66 56 70 64 82 64 58 66 72 56 66 56 58 58 50 62 58 60 68 64 58 60 62 76 88 70 60 60 60 60 
30 56 56 30 62 40 62 42 68 74 38 64 52 56 38 66 56 74 58 62 62 56 40 38 76 60 74 58 64 70 28 76 40 56 56 
26 32 28 58 62 58 38 64 58 62 60 48 50 62 62 46 58 62 60 62 72 56 62 48 64 46 62 62 64 64 40 68 28 54 72 64 62 
60 42 54 46 46 48 56 46 50 44 46 52 36 36 32 48 34 46 44 46 46 48 54 54 54 52 50 50 44 52 56 68 72 62 64 
24 40 58 28 42 70 36 44 46 38 40 38 54 40 48 38 44 36 48 74 74 60 84 76 42 42 28 48 52 82 28 54 28 42 88 62 
60 84 78 56 56 60 68 48 62 60 64 58 60 60 64 68 64 46 66 64 44 54 58 62 52 68 62 56 48 54 72 74 66 84 74 
16 38 32 70 28 38 30 56 40 34 42 44 32 28 30 40 30 40 34 32 46 30 40 54 50 28 34 34 62 46 38 36 54 32 40 58 66 54 54 44 
50 56 78 70 72 44 42 42 74 38 56 46 76 46 48 42 54 70 34 42 26 62 32 42 74 54 36 46 42 54 46 54 52 52 78 74 78 78 
94 90 100 88 54 88 60 90 78 92 44 94 96 74 84 90 88 84 68 92 88 94 88 82 64 58 76 78 48 66 92 84 76 76 76 94 
60 68 66 62 62 60 40 56 62 54 50 48 56 64 56 54 52 46 40 54 48 54 66 62 44 58 52 60 68 50 74 62 52 44 48 62 62 
18 34 70 38 22 34 40 48 36 52 34 30 36 60 54 60 40 36 32 46 48 36 32 68 50 52 60 52 52 64 70 30 40 72 64 74 64 
42 46 44 76 72 40 34 34 40 32 42 44 66 36 46 74 40 28 40 34 42 64 32 44 40 62 42 38 44 70 46 46 48 46 38 46 46 46 46 46 46 46 
36 54 66 40 64 50 58 54 72 46 64 56 62 64 58 54 54 62 62 56 54 62 62 58 62 60 64 48 50 62 74 62 48 52 64 66 66 66 
34 42 66 48 60 66 42 52 68 64 66 44 30 56 64 42 48 60 74 34 62 48 50 42 50 74 72 68 44 72 58 44 30 64 60 62 64 64 78 64 

结果是这样的，但有许多不同的曲线：

我知道how to overlay plots of a few different datasets使用GGPLOT2但我的数组有20行，以便它会很麻烦逐个绘制出来的。所以我正在寻找一种方法来告诉ggplot2一次绘制所有的行。

Answer 1

没有一个可重复的例子，这有点难以回答。我假设你需要在同一个图上绘制多行，并且每行的y值对应于你显示的每行数据的值。第一个问题是，你的行并不都是相同的长度，所以我创建了您的数据相加NA一个数据帧时，不提供的数据：

df <- data.frame(c(90,60,58,82,66,68,66,54,64,56,70,66,64,66,56,70,64,82,64,58,66,72,56,66,56,58,58,50,62,58,60,68,64,58,60,62,76,88,70,60,60,60,60), 
        c(30,56,56,30,62,40,62,42,68,74,38,64,52,56,38,66,56,74,58,62,62,56,40,38,76,60,74,58,64,70,28,76,40,56,56,NA,NA,NA,NA,NA,NA,NA,NA), 
        c(26,32,28,58,62,58,38,64,58,62,60,48,50,62,62,46,58,62,60,62,72,56,62,48,64,46,62,62,64,64,40,68,28,54,72,64,62,NA,NA,NA,NA,NA,NA), 
        c(60,42,54,46,46,48,56,46,50,44,46,52,36,36,32,48,34,46,44,46,46,48,54,54,54,52,50,50,44,52,56,68,72,62,64,NA,NA,NA,NA,NA,NA,NA,NA), 
        c(24,40,58,28,42,70,36,44,46,38,40,38,54,40,48,38,44,36,48,74,74,60,84,76,42,42,28,48,52,82,28,54,28,42,88,62,NA,NA,NA,NA,NA,NA,NA), 
        c(60,84,78,56,56,60,68,48,62,60,64,58,60,60,64,68,64,46,66,64,44,54,58,62,52,68,62,56,48,54,72,74,66,84,74,NA,NA,NA,NA,NA,NA,NA,NA), 
        c(16,38,32,70,28,38,30,56,40,34,42,44,32,28,30,40,30,40,34,32,46,30,40,54,50,28,34,34,62,46,38,36,54,32,40,58,66,54,54,44,NA,NA,NA), 
        c(50,56,78,70,72,44,42,42,74,38,56,46,76,46,48,42,54,70,34,42,26,62,32,42,74,54,36,46,42,54,46,54,52,52,78,74,78,78,NA,NA,NA,NA,NA), 
        c(94,90,100,88,54,88,60,90,78,92,44,94,96,74,84,90,88,84,68,92,88,94,88,82,64,58,76,78,48,66,92,84,76,76,76,94,NA,NA,NA,NA,NA,NA,NA), 
        c(60,68,66,62,62,60,40,56,62,54,50,48,56,64,56,54,52,46,40,54,48,54,66,62,44,58,52,60,68,50,74,62,52,44,48,62,62,NA,NA,NA,NA,NA,NA), 
        c(18,34,70,38,22,34,40,48,36,52,34,30,36,60,54,60,40,36,32,46,48,36,32,68,50,52,60,52,52,64,70,30,40,72,64,74,64,NA,NA,NA,NA,NA,NA), 
        c(42,46,44,76,72,40,34,34,40,32,42,44,66,36,46,74,40,28,40,34,42,64,32,44,40,62,42,38,44,70,46,46,48,46,38,46,46,46,46,46,46,46,NA), 
        c(36,54,66,40,64,50,58,54,72,46,64,56,62,64,58,54,54,62,62,56,54,62,62,58,62,60,64,48,50,62,74,62,48,52,64,66,66,66,NA,NA,NA,NA,NA), 
        c(34,42,66,48,60,66,42,52,68,64,66,44,30,56,64,42,48,60,74,34,62,48,50,42,50,74,72,68,44,72,58,44,30,64,60,62,64,64,78,64,NA,NA,NA)) 

# rename columns 
colnames(df) <- 1:14 
# reshape dataframe to have only one value column 
library(reshape) 
df <- melt(df) 
# create a x vector from 1 to the number of value for each variable (here 43) 
df$x <- rep(1:length(df$value[df$variable==1])) 

# Use the dataframe in ggplot 
ggplot(data=df, aes(x=x, y=value, color=variable)) + 
    geom_line() 

给予以下情节：