R은 행 코드를 수정하는 방법

Question

aaa<-data.frame(x=c(1,3,1,1,2),stringsAsFactors=FALSE) 

out <- matrix(NA,ncol =2,nrow =3) 
for(i in 1:length(unique(aaa$x))) { 
    out[i,1]<-unique(aaa$x)[i] 
    out[i,2]<-sum(aaa$x==unique(aaa$x)[i]) 
} 
out 
     [,1] [,2] 
    [1,] 1 3 
    [2,] 3 1 
    [3,] 2 1 

로 계산의 계산에 다른 값처럼 취급 될 결과는

aaa<-data.frame(x=c(1,NA,1,1,2),stringsAsFactors=FALSE) 

결과가 있었다

  [,1] [,2] 
    [1,] 1 3 
    [2,] 2 1 
    [3,] 3 1 

경우했다

  [,1] [,2] 
    [1,] 1 3 
    [2,] 2 1 
    [3,] NA 1 

Stata "tab var1,missing "이 답이 될 것입니다. R에서는 루프를 사용하여 작업을 수행하려고합니다.

Answer 1

각 관찰의 발생 횟수를 계산하는 경우 간단한 table을 사용할 수 있습니다.

table(aaa$x, useNA="ifany") 

또는 출력과 비슷한 형식으로 지정하십시오.

as.matrix(as.data.frame(table(aaa$x, useNA="ifany"))) 
# Var1 Freq 
# 1 1 3 
# 2 2 1 
# 3 <NA> 1 

루프가 필요 없습니다.