모든 숫자 벡터 요약

Question

I 내가 이제

df1 = df %>% 
    group_by(city, ID ,gender) %>% 
    summarise_if(is.numeric, function(x) sum(x,na.rm = T)/4) 

아래와 같이 코드를 작성하고, 출력을 얻기 위해 4

city = c("NY","NY","NY","NY","MI","MI","MI","MI","MI","MI")  
ID = c("1","1","1","1","2","2","2","2","2","2") 
gender = c("M","M","F","F","F","F","F","F","M","M") 
val_1 = c(1, 1, NA, NA, 2, NA, NA, 4, 6, 7) 
val_2 = c(NA, 4, 4, 7, 9, 10, NA, NA, NA,NA) 
df <- data.frame(city, ID, gender, val_1, val_2) 

모든 숫자 열 및 제산을 합산 할 데이터 프레임을 가지고 문제는 값이 누락 된 경우 0 대신에 채우는 것입니다 NA

위의 코드에서 수정하려면

를 수정하십시오.

city ID gender val_1 val_2 
MI  2 F  1.5 4.75 
MI  2 M  3.25 0/NA 
NY  1 F   0/NA 2.75 
NY  1 M  0.5 1 

Answer 1

우리는 if/else이 요소가 NA

df %>% 
    group_by(city, ID ,gender) %>% 
    summarise_if(is.numeric, funs(if(all(is.na(.))) NA else sum(., na.rm = TRUE)/4)) 
    #or without the if/else 
    #summarise_if(is.numeric, funs((NA^all(is.na(.)))*sum(., na.rm = TRUE)/4)) 
# A tibble: 4 x 5 
# Groups: city, ID [?] 
# city  ID gender val_1 val_2 
# <fctr> <fctr> <fctr> <dbl> <dbl> 
#1  MI  2  F 1.50 4.75 
#2  MI  2  M 3.25 NA 
#3  NY  1  F NA 2.75 
#4  NY  1  M 0.50 1.00