summaryBy無法正常工作

Question

我要計算變量Comment的空行數。 有兩個空單元格，因此行數應為2。

下面是我關於示例數據的腳本。

Temp data:
 Comment       Prob
1      fa 0.40768666
2     fsa 0.61956024
3                 NA
4         0.12916298
5   fasdf 0.09724928
6     rew 0.47395962

c_fun <- function(x){c(example=head(x,n=1),mcnt=sum(as.character(x)==""))}
summaryBy(Comment~., data= temp, FUN= c_fun)

結果mcnt給我0。但是，如果我分別運行sum（as.character（x）==“”），我可以得到2的空行數。我要實現的另一件事是打印第一行。 我也稱無法正常運行的head函數。

Answer 1

我猜問題可能是由R​​在創建數據幀時將字符編碼為因素引起的。 請參閱以下比較。

temp <- data.frame(Comment=c("fa", "fsa", "", "", "fasdf", "rew"), 
                   Prob=c(0.40768666, 0.61956024, NA, 0.12916298, 0.09724928, 0.47395962), 
                   stringsAsFactors = TRUE)

c_fun <- function(x){c(example=head(x,n=1),mcnt=sum(as.character(x)==""))}
summaryBy(Comment~., data= temp, FUN= c_fun)
#   Comment.example Comment.mcnt
# 1               2            0

temp <- data.frame(Comment=c("fa", "fsa", "", "", "fasdf", "rew"), 
                   Prob=c(0.40768666, 0.61956024, NA, 0.12916298, 0.09724928, 0.47395962), 
                   stringsAsFactors = FALSE)
summaryBy(Comment~., data= temp, FUN= c_fun)
#   Comment.example Comment.mcnt
# 1              fa            2