하나의 줄 플롯을 여러 개 만드는 방법

Question

R (ggplot2)을 사용하여 그림을 그립니다. 여기 my.data 이미지 2.

같은 선 그래프를 가지고 싶습니다

B50K,B50K+1000C50K,B50K+2000C50K,B50K+4000C50K,B50K+8000C50K,gen,xaxile 
0.3795,0.4192,0.4675,0.5357,0.6217,T18-Yield,B50K 
0.3178,0.3758,0.4249,0.5010,0.5870,T20-Yield,B50K+1000C50K 
0.2795,0.3266,0.3763,0.4636,0.5583,T21-Yield,B50K+2000C50K 
0.2417,0.2599,0.2898,0.3291,0.3736,T18-Fertility,B50K+4000C50K 
0.2002,0.2287,0.2531,0.2962,0.3485,T19-Fertility,B50K+8000C50K 
0.1642,0.1911,0.2151,0.2544,0.2951,T20-Fertility 

는 *** -> 구분 기호가 ",". 그런데 도움이되거나 유용 할 유용한 .r 스크립트가 없습니다.

그림은 Microsoft에서 내 그림을 보여줍니다.

내가 인터넷하지만 그들 중 비 통해 여러 스크립트를 시도했다가 일을하지 않았습니다.

.r 스크립트를 사용하여 img1과 같은 데이터 파일을 읽고 일러스트레이션 된 그림과 같은 데이터를 플로팅 해 주시기 바랍니다.

Answer 1

트릭은 색상 및 선 종류를 gen에 쉽게 매핑 할 수 있도록 데이터 (reshape2 패키지의 melt 사용)를 재구성하는 것입니다.

# Your data - note i also added an extra comma after the fifth column in row 6. 
# It would be easier if you gave data using dput as described in comments above - thanks 
dat <- read.table(text="B50K,B50K+1000C50K,B50K+2000C50K,B50K+4000C50K,B50K+8000C50K,xaxile,gen 
0.3795,0.4192,0.4675,0.5357,0.6217,B50K,T18-Yield 
0.3178,0.3758,0.4249,0.5010,0.5870,B50K+1000C50K,T20-Yield 
0.2795,0.3266,0.3763,0.4636,0.5583,B50K+2000C50K,T21-Yield 
0.2417,0.2599,0.2898,0.3291,0.3736,B50K+4000C50K,T18-Fertility 
0.2002,0.2287,0.2531,0.2962,0.3485,B50K+8000C50K,T19-Fertility 
0.1642,0.1911,0.2151,0.2544,0.2951,,T20-Fertility", 
header=T, sep=",", na.strings="") 

# load the pckages you need 
library(ggplot2) 
library(reshape2) 

# assume xaxile column is unneeded? - did you add this column yourself? 
dat$xaxile <- NULL 

# reshape data for plotting 
dat.m <- melt(dat) 

# plot 
ggplot(dat.m, aes(x=variable, y=value, colour=gen, 
        shape=gen, linetype=gen, group=gen)) + 
        geom_point() + 
        geom_line() 

그런 다음 수동으로 줄거리가보고 싶어 방법을 지정할 수 scale_linetype_manual 및 scale_shape_manual를 사용할 수 있습니다. This post이 도움이 될 것입니다. 그러나 많은 사람들이 있습니다.