適用関数内のIfelseステートメントが値を返さない

Question

私はデフォルトのDiamondデータセットでいくつかの操作を試みていましたが、cut = idealとclarity = vs2という2つのカラム値を考慮する必要があるという問題がありました。これらの2つが真であれば、私の関数は最初のn個のサンプルからこれらの種類のダイヤモンドの総数を返します。 私のコードは次のとおりです。

idealvs2<- function(n){ 
    k<-0 
    s<-apply(head(diamonds,n),1, function(x)ifelse(diamonds$cut=="Ideal" && diamonds$clarity=="VS2",k<-k+1,k<-k+0)) 
    return(k) 
} 

idealvs2(10)は起きていない3を答えることになっています。他はuが望んでいたかを理解するよう

私たちが必要なもの

Answer 1

がsumに論理ベクトル（cut == "Ideal" | clarity == "VS2"）

f1 <- function(dat, n){ 
     tmp <- head(dat, n) 
     with(tmp, sum(cut== "Ideal" | clarity == 'VS2')) 
} 

f1(diamonds, 10) 
#[1] 3