同じファセット上に同じインデックスの2つのデータセットを2つ並べて表示

Question

私は何時間も何度も検索していましたが、同様の質問がありましたが、私はまだ問題を解決できませんでした。

ここは私の質問です。私は2つのデータセットが同じ列名を持っています、この例では同じ行名のどちらかです。

は、データセットがあるとしましょう：

t <- seq(1, 20, by = 0.5) 

num_of_rows <- length(t) 

df1 <- data.frame(A = runif(num_of_rows), B = runif(num_of_rows), C = runif(num_of_rows), D = runif(num_of_rows), F = runif(num_of_rows)) 

dimnames(df1)[[1]] <- t 

df2 <- data.frame(A = runif(num_of_rows), B = runif(num_of_rows), C = runif(num_of_rows), D = runif(num_of_rows), F = runif(num_of_rows)) 

dimnames(df2)[[1]] <- t 


df1<-melt(as.matrix(df1)) 
df2<-melt(as.matrix(df2)) 
colnames(df1) <- c("X1", "X2", "value") 
colnames(df2) <- c("X1", "X2", "value") 


ggplot() + geom_line(df1, aes(X1, value, color=factor(X2)), linetype=2) + geom_line(df2, aes(X1, value, color=factor(X2)) + facet_wrap(~X2) 

私が欲しいのは、面としての両方のデータセットからの同じインデックスを持つ列を持つ各ファセットを、それらのデータセットをプロットすることです。私はアナログの質問、つまり融解、データセット番号のタグの割り当てなどの答えに従うために結んでいますが、まだ10個の面があります。最初のデータセットから最初の5つ、次に2番目のデータセットから5つ。私はあなたが提供できるどんな助けにも感謝します。

ありがとうございます。

Answer 1

私は5つのファセットが必要であると仮定します。各ファセットには2つの線がデータのソースによって区別されます。そうであれば、あなたの美しさにはcolour=factor(src)（またはデータソースを指定すること）を選択し、X2でfacet_wrap（これまで通り）を設定します。

df1$src <- 1 
df2$src <- 2 
d <- rbind(df1, df2) 

ggplot(d) + 
    geom_line(aes(X1, value, colour=factor(src))) + 
    facet_wrap(~X2, ncol=5)