Удалить значение INF, полученное в функции Tidyverse mutate

Question

Использование этого набора данных Когда я запускаю эту сводку, мое резюме выводит значение INF. Это предотвращает последующий t-тест между переменными BigBoy.size_Control и BigBoy.size_Covered. Любой совет, как избавиться от значения INF?

raw.data<- read.csv ("Fruitsize.csv") %>% 
  drop_na() %>% group_by(location.ID) %>%
  filter(sum(Big.Boy.Tomatoes.Count_Control, Big.Boy.Tomatoes.Count_Covered) != 0) %>%
  mutate (BigBoy.size_Control = Big.Boy.Tomatoes.Weight..grams._Control/ 
                                Big.Boy.Tomatoes.Count_Control,
          BigBoy.size_Covered = Big.Boy.Tomatoes.Weight..grams._Covered/ 
                                Big.Boy.Tomatoes.Count_Covered) %>%
  select (BigBoy.size_Control, BigBoy.size_Covered, location.ID ) %>% 
  gather(key=treatment, value= size, -location.ID)


summary (raw.data)