myscratchpad

いまさらながら…

1,2,3,4,5のいずれか、という感じで反応が分かっているとき
# データの用意
## 60項目の質問紙に200人が答えた、という仮想データ
dat <- data.frame(matrix(data=sample(x=5, size=12000, replace=T), nrow=200, ncol=60))
dat[,61] <- sample(x=c(6,8,NA,NaN,Inf), size=200, replace=T) ## 変なデータをつけてみる

# table関数を利用するやりかた。マジお勧め。NAとかもわかる
#datx <- factor(as.table(as.matrix(dat))) # データフレームを行列にしてtableにしてfactorにする
summary(factor(as.matrix(dat))) # 集計。as.tableはいらない
## NaNの数がわからない。Rjpwikiの記事のときとは使用が変わったようだ
sum(sapply(dat, is.nan)) # これで調べる。使わんと思うけど

# プロットして調べる
plot(as.vector(as.matrix(dat))) # 行列にしてベクトルにしてプロット。これが一番楽かも

##　どのへんのデータから表示する。これはExcelの方が楽かも
sapply(dat, function(x) which(x==6))

# 他のやりかた1
sapply(dat, table, exclude=NULL)

# 他のやりかた2
cdat <- na.omit(dat)
cdat[cdat!=5&cdat!=4&cdat!=3&cdat!=2&cdat!=1]