![3嵐レコ`ドのM貌ミクロデ`タ
# fg1を弼蛍けフラグとして聞喘する
fg1 <- rep(1, length(S1_Shuugyou)) # デ`タ方と揖じLさのフラグ を恬り、1をセット
fg1[which(S1_Shuugyou == levels(S1_Shuugyou)[2])] <- 2 # S1_Shuugyouは咀徨デ`タ
fg1[which(S1_Shuugyou == levels(S1_Shuugyou)[3])] <- 3
par(mfrow=c(1,2)) # 1佩2双に鮫中蛍護
plot(Youto003, Youto037, col=c("black", "red", "yellow")[fg1],
xlab=cd1$koumoku[which(cd1$namae == "Youto003")],
ylab=cd1$koumoku[which(cd1$namae == "Youto037")], main="M貌ミクロgS" )
plot(log10(Youto003), log10(Youto037), col=c("black", "red", "yellow")[fg1],
xlab=cd1$koumoku[which(cd1$namae == "Youto003")],
ylab=cd1$koumoku[which(cd1$namae == ＾Youto037￣)] , main=＾M貌ミクロ┳Ｓ方
S￣)
プロットに喘いたRのコ`ド(2)
xlabとylabは、cd1に根まれているYouto003式び037に鬉垢h忖の篳兆
をセットしている。](https://image.slidesharecdn.com/slideshare20130702-130702063801-phpapp01/85/R-5-320.jpg)
![ちょっとした匯つの垢健
方の富ないデ`タを朕羨たせる
4.0 4.5 5.0 5.5 6.0 6.5 7.0
4.55.05.56.06.57.0
M貌ミクロ┳Ｓ方S
g秘
M屶竃
plot(log10(Youto003), log10(Youto037), col=c("black", "red", "yellow")[fg1],
xlab=cd1$koumoku[which(cd1$namae == "Youto003")],
ylab=cd1$koumoku[which(cd1$namae == "Youto037")] , main="M貌ミクロ┳Ｓ方S")
points(log10(Youto003[fg1==2]), log10(Youto037[fg1==2]), col="red")
points(log10(Youto003[fg1==3]), log10(Youto037[fg1==3]), col="yellow")
方の富ない弼のプ
ロット泣を瘁から壅
業宙きzむと、方の
謹いプロット泣に托
もれずやすいよ](https://image.slidesharecdn.com/slideshare20130702-130702063801-phpapp01/85/R-6-320.jpg)
![邑^プロット
par(mfrow=c(1,1)) # 1佩1双に鮫中蛍護をす
plot(log10(Youto003), log10(Youto037), pch=20,
col=(rgb(r=c(0,1,1)[fg1], g=c(0,0,1)[fg1], b=c(0,0,0)[fg1],
alpha=0.1)),
xlab=cd1$koumoku[which(cd1$namae == "Youto003")],
ylab=cd1$koumoku[which(cd1$namae == "Youto037")] ,
main="畠忽MgB{M貌ミクロ┳Ｓ方S")
# 音祥Iと音をH羨たせる圭隈
points(log10(Youto003[fg1==2]), log10(Youto037[fg1==2]), pch=20,
col=(rgb(r=1, g=0, b=0, alpha=0.2)))
# 仔は弼のインパクトが恷も樋く、デ`タ方が匯桑富ないので、H羨たせるために
# alphaの､鯢呂欧討い襦
points(log10(Youto003[fg1==3]), log10(Youto037[fg1==3]), pch=20,
col=(rgb(r=1, g=1, b=0, alpha=0.4)))
# 了崔峺協して群箭宙z
legend(4.1, 6.9, c("祥I", "音祥I", "音"), col = c(1,2,7),
pch = 21, bg='gray90')
プロットに喘いたRのコ`ド(3)](https://image.slidesharecdn.com/slideshare20130702-130702063801-phpapp01/85/R-8-320.jpg)
檎による寄号庁デ`タのプロット
- 2. デ`タ楚が謹いとき 仝Rによる柊下輟仭个涼茲圭々では、あやめの 雑のデ`タを聞喘している。デ`タ方は150。 もしデ`タが 方嵐レコ`ド あったら??? Sepal.Length 2.0 2.5 3.0 3.5 4.0 0.5 1.0 1.5 2.0 2.5 4.55.56.57.5 2.02.53.03.54.0 Sepal.Width Petal.Length 1234567 4.5 5.5 6.5 7.5 0.51.01.52.02.5 1 2 3 4 5 6 7 Petal.Width
- 3. 3嵐レコ`ドのM貌ミクロデ`タ 祥Iを\、音祥Iを橿、音を仔に弼蛍けしたが 謹くのデ`タが嶷なり栽うと、もはや わけがわからない 0.0e+00 5.0e+06 1.0e+07 1.5e+07 0e+004e+068e+06 M貌ミクロgS g秘 M屶竃 4.0 5.0 6.0 7.0 4.55.05.56.06.57.0 M貌ミクロ┳Ｓ方S g秘M屶竃
- 4. 3嵐レコ`ドのM貌ミクロデ`タ # 仝巷議yM貌ミクロデ`タのRへのizみ々で恬撹したデ`タ # ファイル "giji.Rdata" を聞喘。この嶄にあるdt1はデ`タ徭悶、 # cd1にはh忖篳兆吉の憲催燕の秤鵑Г瓩蕕譴討い襦 setwd("c:/test") # デ`タファイルの崔き侭を峺協 load("giji.RData") # 隠贋ファイルを_く attach(dt1) # 篳兆の岷俊歌孚が辛嬬になる # 祥I?音祥Iで弼蛍けしたいので彜r委燐 table(S1_Shuugyou) #1. 祥I 2.音祥I V.音 プロットに喘いたRのコ`ド(1) S1_Shuugyou 1 2 V 30017 1770 240 祥Iが3嵐噫、音祥Iや音はかなり富ない ╋繁參貧の輩砕瀛｡デ`タのため
- 5. 3嵐レコ`ドのM貌ミクロデ`タ # fg1を弼蛍けフラグとして聞喘する fg1 <- rep(1, length(S1_Shuugyou)) # デ`タ方と揖じLさのフラグ を恬り、1をセット fg1[which(S1_Shuugyou == levels(S1_Shuugyou)[2])] <- 2 # S1_Shuugyouは咀徨デ`タ fg1[which(S1_Shuugyou == levels(S1_Shuugyou)[3])] <- 3 par(mfrow=c(1,2)) # 1佩2双に鮫中蛍護 plot(Youto003, Youto037, col=c("black", "red", "yellow")[fg1], xlab=cd1$koumoku[which(cd1$namae == "Youto003")], ylab=cd1$koumoku[which(cd1$namae == "Youto037")], main="M貌ミクロgS" ) plot(log10(Youto003), log10(Youto037), col=c("black", "red", "yellow")[fg1], xlab=cd1$koumoku[which(cd1$namae == "Youto003")], ylab=cd1$koumoku[which(cd1$namae == ＾Youto037￣)] , main=＾M貌ミクロ┳Ｓ方 S￣) プロットに喘いたRのコ`ド(2) xlabとylabは、cd1に根まれているYouto003式び037に鬉垢h忖の篳兆 をセットしている。
- 6. ちょっとした匯つの垢健 方の富ないデ`タを朕羨たせる 4.0 4.5 5.0 5.5 6.0 6.5 7.0 4.55.05.56.06.57.0 M貌ミクロ┳Ｓ方S g秘 M屶竃 plot(log10(Youto003), log10(Youto037), col=c("black", "red", "yellow")[fg1], xlab=cd1$koumoku[which(cd1$namae == "Youto003")], ylab=cd1$koumoku[which(cd1$namae == "Youto037")] , main="M貌ミクロ┳Ｓ方S") points(log10(Youto003[fg1==2]), log10(Youto037[fg1==2]), col="red") points(log10(Youto003[fg1==3]), log10(Youto037[fg1==3]), col="yellow") 方の富ない弼のプ ロット泣を瘁から壅 業宙きzむと、方の 謹いプロット泣に托 もれずやすいよ
- 8. 邑^プロット par(mfrow=c(1,1)) # 1佩1双に鮫中蛍護をす plot(log10(Youto003), log10(Youto037), pch=20, col=(rgb(r=c(0,1,1)[fg1], g=c(0,0,1)[fg1], b=c(0,0,0)[fg1], alpha=0.1)), xlab=cd1$koumoku[which(cd1$namae == "Youto003")], ylab=cd1$koumoku[which(cd1$namae == "Youto037")] , main="畠忽MgB{M貌ミクロ┳Ｓ方S") # 音祥Iと音をH羨たせる圭隈 points(log10(Youto003[fg1==2]), log10(Youto037[fg1==2]), pch=20, col=(rgb(r=1, g=0, b=0, alpha=0.2))) # 仔は弼のインパクトが恷も樋く、デ`タ方が匯桑富ないので、H羨たせるために # alphaの､鯢呂欧討い襦 points(log10(Youto003[fg1==3]), log10(Youto037[fg1==3]), pch=20, col=(rgb(r=1, g=1, b=0, alpha=0.4))) # 了崔峺協して群箭宙z legend(4.1, 6.9, c("祥I", "音祥I", "音"), col = c(1,2,7), pch = 21, bg='gray90') プロットに喘いたRのコ`ド(3)
- 9. おわり 9