2017-09-11 9 views
0

私はこのようになりますデータフレームを持っています。各アイテムは100行を持っているggplot2で複数の行をプロットするには、このデータをどのように変形できますか?

lethal.y   lethal.x   resist.y   resist.x   mock.y   mock.x  
Min. :0.0000 Min. :0.0000 Min. :0.0000 Min. :0.0000 Min. :0.0000 Min. :0.0000 
1st Qu.:0.3724 1st Qu.:0.4349 1st Qu.:0.6580 1st Qu.:0.3102 1st Qu.:0.5065 1st Qu.:0.5143 
Median :0.6786 Median :0.8688 Median :0.9889 Median :0.6034 Median :0.9105 Median :0.9305 
Mean :0.5943 Mean :0.6961 Mean :0.8086 Mean :0.5645 Mean :0.7337 Mean :0.7445 
3rd Qu.:0.8229 3rd Qu.:0.9791 3rd Qu.:1.0000 3rd Qu.:0.8236 3rd Qu.:0.9863 3rd Qu.:0.9970 
Max. :1.0000 Max. :1.0000 Max. :1.0000 Max. :1.0000 Max. :1.0000 Max. :1.0000 

、および* .Xと* .Yは、Y coordsのは、私はこれら三つの条件ごとにプロットしたい、Xを示しています。

ggplot2を使用して、これらの3つを異なる色の線で同じプロットにプロットしたいとします。

variable  x  y 
lethal  .05  .01 
lethal  .03  .02 
... 
resist 
... 
mock 

私はここでデータをどのように再構成するか正確には分かりません。誰かが私を正しい方向に向けることができますか?ありがとう!要求された、dput(ヘッド(DF))として

structure(list(lethal.y = c(1, 0.96880698743694, 0.943637604878407, 
0.927797183915007, 0.913304798925335, 0.898733226540142), lethal.x = 
c(0, 
0.00188975165738148, 0.017044638907188, 0.0473993105875835, 
0.0839965839587461, 
0.123115782372135), resist.y = c(1, 1, 1, 1, 1, 1), resist.x = c(0, 
0.0270024232342251, 0.0532702535247161, 0.0802380777311505, 
0.106711277307466, 
0.131788524427236), mock.y = c(1, 0.99663149455591, 
0.994833858282874, 
0.992162832558697, 0.9898151419445, 0.98845829511382), mock.x = c(0, 
0.0422315106004306, 0.0848393643462402, 0.127812802135558, 
0.17073684383134, 
0.212410640574118)), .Names = c("lethal.y", "lethal.x", "resist.y", 
"resist.x", "mock.y", "mock.x"), row.names = c(NA, 6L), class = 
"data.frame") 
+0

コピー/サンプルデータを作成するために、あなたの質問にdput(ヘッド(yourData))の出力を貼り付けてください。 – www

+0

確かに、今追加されました。 –

+0

ありがとうございます。これにより、迅速かつ正確な答えを得ることが非常に簡単になります。 – www

答えて

1

あなたが実際にこのケースでデータを変換する必要はありません。これを試してみてください:

require(ggplot2) 

ggplot(df) + 
    geom_line(aes(x=lethal.x,y=lethal.y,col="lethal")) + 
    geom_line(aes(x=resist.x,y=resist.y,col="resist")) + 
    geom_line(aes(x=mock.x,y=mock.y,col="mock")) + 
    xlab("") + 
    ylab("") + 
    guides(col=guide_legend("Variable")) 

出力:

enter image description here

関連する問題