トップ
新規
一覧
単語検索
最終更新
ヘルプ
ログイン
アールメカブ
R_Tips0
をテンプレートにして作成
開始行:
[[Rの備忘録]]
R で2種類のグラフィックスを作成するとする．片方にはカテゴ...
#ref(colorPlot.png)
思い出さないなぁ．
もっと簡単な方法があったはずだが，とりあえず，こんな方法...
まず二つの組に登場するカテゴリを一緒くたにしてベクトル z ...
x <- c("A","C", "D")
y <- c("A","B","C")
z <- unique(c(x,y))
#y の各要素がzの何番目にあるか知りたい
y %in% z #意味無し
# 添字番号を取るためにループする?こんな厄介な処理が必要な...
xcol <- NULL
ycol <- NULL
for( i in 1:length(x)){
for(j in 1:length(z)){
if(x[i] == z[j]){
cat(j, "\n")
xcol <- c(xcol, j)
}
}
}
for( i in 1:length(y)){
for(j in 1:length(z)){
if(y[i] == z[j]){
cat(j, "\n")
ycol <- c(ycol, j)
}
}
}
xx <- sample(x, 100, rep = T)
xx.n <- sample(1:5, 100, rep = T)
xx.l <- sample(x,100, rep = T)
yy <- sample(y,100, rep = T)
yy.n <- sample(1:5, 100, rep = T)
yy.l <- sample(y,100, rep = T)
par(mfrow = c(1,2))
matplot(prop.table(table(xx.n, xx.l)), type = "l",
col = xcol, lwd = 3)
legend(1,.1, legend = x, col = xcol, lwd = 3)
matplot(prop.table(table(yy.n, yy.l)), type = "l",
col = ycol, lwd = 3)
legend(1,.1, legend = y, col = ycol, lwd = 3)
# いや，絶対もっと簡単な方法があったはず
終了行:
[[Rの備忘録]]
R で2種類のグラフィックスを作成するとする．片方にはカテゴ...
#ref(colorPlot.png)
思い出さないなぁ．
もっと簡単な方法があったはずだが，とりあえず，こんな方法...
まず二つの組に登場するカテゴリを一緒くたにしてベクトル z ...
x <- c("A","C", "D")
y <- c("A","B","C")
z <- unique(c(x,y))
#y の各要素がzの何番目にあるか知りたい
y %in% z #意味無し
# 添字番号を取るためにループする?こんな厄介な処理が必要な...
xcol <- NULL
ycol <- NULL
for( i in 1:length(x)){
for(j in 1:length(z)){
if(x[i] == z[j]){
cat(j, "\n")
xcol <- c(xcol, j)
}
}
}
for( i in 1:length(y)){
for(j in 1:length(z)){
if(y[i] == z[j]){
cat(j, "\n")
ycol <- c(ycol, j)
}
}
}
xx <- sample(x, 100, rep = T)
xx.n <- sample(1:5, 100, rep = T)
xx.l <- sample(x,100, rep = T)
yy <- sample(y,100, rep = T)
yy.n <- sample(1:5, 100, rep = T)
yy.l <- sample(y,100, rep = T)
par(mfrow = c(1,2))
matplot(prop.table(table(xx.n, xx.l)), type = "l",
col = xcol, lwd = 3)
legend(1,.1, legend = x, col = xcol, lwd = 3)
matplot(prop.table(table(yy.n, yy.l)), type = "l",
col = ycol, lwd = 3)
legend(1,.1, legend = y, col = ycol, lwd = 3)
# いや，絶対もっと簡単な方法があったはず
ページ名:
