budget_2019 <- budget_2019 %>%
transform(X2 = as.numeric(X2)) %>%
transform(X2414675130 = as.numeric(X3)) %>%
transform(X4 = as.numeric(X4)) %>%
transform(X5 = as.numeric(X5)) %>%
transform(X6 = as.numeric(X6)) %>%
transform(X7 = as.numeric(X7))

budget_2019 %>%
transform([.2:7] = as.numeric([.2:7]))

budget_2019[.2:7] %>%
  mutate_if(is.character, as.numeric)