Rデータフレームからいくつかの回答を除外する

Question

私は長さ関数からいくつかの回答を除外する方法を探しています。 この構文は、どのように私は0を除外して4の答えを得るために

length(S.freq$freq[S.freq$freq!=0]) 

を変更します

Id <- c(1,2,3,4,5) 
ClassA <- c(1,NA,3,1,1) 
ClassB <- c(2,1,1,3,3) 
R <- c(5,5,7,NA,9) 
S <- c(3,7,NA,9,5) 
df <- data.frame(Id,ClassA,ClassB,R,S) 

ZeroTenNAScale <- c(0:10,NA); 

R.freq = setNames(nm=c('R','freq'),data.frame(table(factor(df$R,levels=ZeroTenNAScale,exclude=NULL)))); 
S.freq = setNames(nm=c('S','freq'),data.frame(table(factor(df$S,levels=ZeroTenNAScale,exclude=NULL)))); 

length(S.freq$freq[S.freq$freq!=0]) 

# 5 

考える

select * from someTable 
    where variableName not in (0, null) 

可能性があり、SQLでGetting R Frequency counts for all possible answersからの質問にフォローされとNA？

Answer 1

を使用することができます：

idx <- S.freq$freq!=0 & !is.na(S.freq$S) 
length(S.freq$freq[idx]) 

Answer 2

sumを使用して整数の合計を計算できます。列にNAが見つかった場合はna.rm()を使用できますが、NAは異なる列にあるため、最初にNAを含む行を削除する必要があります。

当社のソリューションは、以下のように、我々はS.freq[!is.na(S.freq$S),]をサブセット化により、NAを含む行を削除するが、我々はまた、第二のカラムfreq必要です：

sum(S.freq[!is.na(S.freq$S), "freq"]) 
# 4 

Answer 3

あなたが試すことができますがna.omitに（とsubset（NA Sを除去するために） ）0に等しいfreq内のすべての行をオフに取り除く：

subset(na.omit(S.freq), freq != 0) 

    S freq 
4 3 1 
6 5 1 
8 7 1 
10 9 1 

ここから、それは簡単です：

length(subset(na.omit(S.freq), freq != 0)$freq) 
[1] 4 

問題を解決しますか？あなたは他の条件でそれを拡張したい場合は、読みやすくするために最初のインデックスベクトルを作ることができ

length(S.freq$freq[S.freq$freq!=0 & !is.na(S.freq$S)]) 

：

Answer 4

私たちは第二のフィルタとして!is.na(S.freq$S)を追加colSums、

colSums(!is.na(S.freq)[S.freq$freq!=0,])[[1]] 
#[1] 4 

Answer 5

あなたはfrequencで値を探していますy> 0の場合、ユニークな値を探していることを意味します。

length(unique(df$S)) 

、あなたがして、回答4を得る脇NAを残す：その値に基づいて、アイテムの数を除外する方法についてのご質問については

length(unique(df$S[!is.na(df$S)])) 

： この情報は、ベクトルSから直接取得しますRでは、これはすでにあなたがコードで使っていたように、論理ベクトルで簡単に行えます。

1つの論理ベクトルに異なる条件を組み合わせて例えばサブセット化する。

length(S.freq$freq[S.freq$freq!=0 & !is.na(S.freq$freq)])