読者です 読者をやめる 読者になる 読者になる

自分用メモ

R

data.frameのNAを0に置換

バイト中にテキストの処理とかそういうの代わりにRを使っていたんだけど、さっと出てこないで自分にむかついたので、メモしておく。こんな行列があったとする(本当はdata.frameだったんだが、まあほとんど一緒)。NAを0に置き換えるというよくありがちな作業。

> matrix(c(NA,2,3,4,NA,4,1,NA),2,4)
     [,1] [,2] [,3] [,4]
[1,]   NA    3   NA    1
[2,]    2    4    4   NA

こんな感じでやってみた。replaceとかでどうにか、とか思ったがなんかうまくいかんだった。ifelseが条件とかではなく、関数というのは常識ですね。

> apply(matrix(c(NA,2,3,4,NA,4,1,NA),2,4),2,function(x){ifelse(is.na(x),0,x)})
     [,1] [,2] [,3] [,4]
[1,]    0    3    0    1
[2,]    2    4    4    0

data.frameをベクトルが要素のリストに変換

自分で書いたやつ。

> unlist(apply(matrix(seq(12),3,4),2,list),recursive=F)
[[1]]
[1] 1 2 3

[[2]]
[1] 4 5 6

[[3]]
[1] 7 8 9

[[4]]
[1] 10 11 12

id:ichanさんにtwitterで教えてもらったもの。

> as.list(data.frame(t(matrix(seq(12),3,4))))
$X1
[1]  1  4  7 10

$X2
[1]  2  5  8 11

$X3
[1]  3  6  9 12

timelineに流れていた@arboresさんのコード

> m<-lapply(1:3,function(x) matrix((1:9)*x,nrow=3))
> m
[[1]]
     [,1] [,2] [,3]
[1,]    1    4    7
[2,]    2    5    8
[3,]    3    6    9

[[2]]
     [,1] [,2] [,3]
[1,]    2    8   14
[2,]    4   10   16
[3,]    6   12   18

[[3]]
     [,1] [,2] [,3]
[1,]    3   12   21
[2,]    6   15   24
[3,]    9   18   27

> matrix(unlist(t(m)), nrow=3, byrow=T) 
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,]    1    2    3    4    5    6    7    8    9
[2,]    2    4    6    8   10   12   14   16   18
[3,]    3    6    9   12   15   18   21   24   27

> matrix(unlist(m), nrow=3) 
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,]    1    4    7    2    8   14    3   12   21
[2,]    2    5    8    4   10   16    6   15   24
[3,]    3    6    9    6   12   18    9   18   27