Заменить значения в Tidy Table

Question

У меня есть таблица с данными счета: я пытаюсь удалить все ненулевые значения с одним.

Вот что я пробовал:

div.summary<- raw.data %>% select (Site, 5:55) %>% 
  group_by(Site) %>% summarise_all(sum) %>%  mutate_if(replace(2:52, >0, 1))

Answer 1

Попробуйте:

div.summary<- raw.data %>% 
  select (Site, 5:55) %>% 
  group_by(Site) %>% 
  summarise_all(sum) %>%  
  mutate_at(vars(2:52),
            funs(if_else(. == 0, 1, .)))