colSums(), na.rm = TRUE의 특별한 사용은 하나 이하가 누락 된 경우에만 TRUE가됩니다.

Question

data.frame의 일부 열을 더한다면 합이 NA 인 규칙이 필요합니다. 아무 관측도 누락되면 누락 된 경우에만 NA 누락됩니다.

는

dfn <- data.frame(
a = c(3, 3, 0, 3), 
b = c(1, NA, 0, NA), 
c = c(0, 3, NA, 1)) 

dfn 
    a b c 
1 3 1 0 
2 3 NA 3 
3 0 0 NA 
4 3 NA 1 

, 나는이 같은 일부 데이터가 말해 내가 미만 2 NA 누락 된 열을 내 규칙을 적용하고, 요약. 그래서 나는 이와 같은 것을 얻습니다.

a b c 
1 3 1 0 
2 3 NA 3 
3 0 0 NA 
4 3 NA 1 
5 9 NA 4 

나는 colSums(dfn, na.rm = FALSE)과 colSums(dfn, na.rm = TRUE)와 주변 연주했습니다. 내 실제 데이터에는 3 개 이상의 열이 있고 4 개 이상의 행이 있습니다. 내가 잃어버린 것을 어떤 식으로 계산하고 그것을 규칙적으로 사용한다고 상상할 수 있습니까?

Answer 1

나는 당신이 혼자 colSums이 할 수 있다고 생각하지 않습니다,하지만 당신은 ifelse 사용하여 결과를 추가 할 수 있습니다 : @ 제임스 '응답 문제

colSums(dfn,na.rm=TRUE) + ifelse(colSums(is.na(dfn)) > 1, NA, 0) 
a b c 
9 NA 4 

Answer 2

아무것도를, 그러나 여기에서 약간 청소기 방법이있다 :

를

colSums(apply(dfn, 2, function(col) replace(col, match(NA, col), 0))) 
# a b c 
# 9 NA 4 

match(NA, col) 는 replace이 0으로 대체하고 새 열을 반환, COL에서 처음으로 NA의 인덱스를 반환하고, apply는을 반환에는 모든 새 열이 있습니다.