Этот код просто работал, и я не думаю, что я что-то изменил, но теперь он показывает ошибку. Я пытаюсь создать проценты для каждой переменной, разделив foster, migrant, ell, et c. по зачислению. Помогите!
```merged_data$foster <-
as.numeric(merged_data$foster)
merged_data$migrant <-
as.numeric(merged_data$migrant)
merged_data$ell <-
as.numeric(merged_data$ell)
merged_data$homeless <-
as.numeric(merged_data$homeless)
merged_data$suspension_rate_total <-
as.numeric(merged_data$suspension_rate_total)
merged_data$enrollment <-
as.numeric(merged_data$enrollment)
merged_data[, "farms_pct"] <- merged_data[, "farms"] / merged_data[, "enrollment"]
merged_data[, "foster_pct"] <- merged_data[, "foster"] / merged_data[, "enrollment"]
merged_data[, "migrant_pct"] <- merged_data[, "migrant"] / merged_data[, "enrollment"]
merged_data[, "ell_pct"] <- merged_data[, "ell"] / merged_data[, "enrollment"]
merged_data[, "homeless_pct"] <- merged_data[, "homeless"] / merged_data[, "enrollment"]
merged_data[, "ell_pct"] <- merged_data[, "ell"] / merged_data[, "enrollment"]
merged_data[, "suspension_rate_total_pct"] <- merged_data[, "suspension_rate_total"] / merged_data[, "enrollment"]
```
Вот мои данные:
```
structure(list(schid = c("1030642", "1030766", "1030774", "1030840",
"1130103", "1230150"), schtype = c("High Schools (Public)", "K-12 Schools (Public)",
"K-12 Schools (Public)", "High Schools (Public)", "County Community",
"K-12 Schools (Public)"), enrollment = c(159, 333, 352, 430,
102, 193), farms = c("132", "116", "348", "406", "68", "130"),
foster = c(2, 0, 1, 8, 1, 4), homeless = c(14, 0, 8, 4, 1,
4), migrant = c(0, 0, 0, 0, 0, 0), ell = c(18, 12, 114, 45,
7, 4), suspension_rate_total = c(NA, 20, 0, 0, 95, 5), suspension_violent = c(NA,
9, 0, 0, 20, 2), suspension_violent_no_injury = c(NA, 6,
0, 0, 47, 1), suspension_weapon = c(NA, 0, 0, 0, 8, 0), suspension_drug = c(NA,
0, 0, 0, 9, 1), suspension_defiance = c(NA, 1, 0, 0, 9, 1
), suspension_other = c(NA, 4, 0, 0, 2, 0), homeless_pct = c(0.0880503144654088,
0, 0.0227272727272727, 0.00930232558139535, 0.00980392156862745,
0.0207253886010363)), row.names = c(NA, 6L), class = "data.frame")
```