次のようになり、私は、データセットを持って

Question

R内のテーブルの各列の要素をカウントする方法

data <- read.csv("sample.csv")

subject gender age type satisfation  agree 
1 f 22 a yes yes 
2 f 23 b no yes 
3 f 21 b  no 
4 m 24 c yes yes 
5 f 22 b no yes 
6 m  a yes yes 
7  25 c yes no 
8 m 21 b no yes 
9 f 23 c yes yes 

私はカウントしたいと思います（実際には> 50個の列があります）各列の要素（NAを数えない）とカウントするように

subject gender age type satisfation  agree 
9 8 8 9 8 9 

私は、スクリプトを書いた

以下のレイアウトとして結果をエクスポート

それはすべて0

dput(head(data, 9))

structure(list(subject = 1:9, gender = structure(c(2L, 2L, 2L, 
3L, 2L, 3L, 1L, 3L, 2L), .Label = c("", "f", "m"), class = "factor"), 
    age = c(22L, 23L, 21L, 24L, 22L, NA, 25L, 21L, 23L), type = structure(c(1L, 
    2L, 2L, 3L, 2L, 1L, 3L, 2L, 3L), .Label = c("a", "b", "c" 
    ), class = "factor"), satisfation = structure(c(3L, 2L, 1L, 
    3L, 2L, 3L, 3L, 2L, 3L), .Label = c("", "no", "yes"), class = "factor"), 
    agree = structure(c(2L, 3L, 1L, 3L, 2L, 3L, 1L, 3L, 2L), .Label = c("no", 
    "yes", "yes "), class = "factor"), time = c(23L, 54L, 67L, 
    324L, 87L, 12L, 756L, 34L, 98L), day = c(1L, 3L, 2L, 5L, 
    7L, 4L, 3L, 1L, 4L)), .Names = c("subject", "gender", "age", 
"type", "satisfation", "agree", "time", "day"), row.names = c(NA, 
9L), class = "data.frame") 

を出したので、私はうまくいかなかった

counting <- function(x) { 
    for(i in 1:length(data)) { 
    data <- length(which(!is.na(x$i))) 
     print(data) 
    } 
    return(data) 
} 
counting(data) 

は、スクリプトの任意の勧告はplzは、ありますか？

ありがとうございました！

Answer 1

テーブルにRをロードすると、NAの代わりに空白があります。したがって、.csvファイルを読むときに、どのようにNAsがコード化されるかを指定します。 ""または多分 ""としてコードされているようです。

NAsを取得したら、このコードを実行できます。テーブルがdfとなっているとします。 @JasonAizkalnsとして

counts <- apply(df, 2, function(x) length(na.omit(x))) 

かは、示唆：

data <- read.csv("sample.csv", na.strings = "") 
sapply(data, function(x) sum(!is.na(x)) 

Answer 2

は、任意のNAトラブルを克服するように

colSums(!is.na(df)) 
# subject gender  age  type satisfation agree  time  day 
#   9  9   8   9   9  9   9   9 

が@DavidArenburg提案を追加、あなたは、単にcolSums使うNAを扱っていると仮定すると、

colSums(!is.na(df) | df != "", na.rm = TRUE)