Troca valores dos votos faltantes pela categoria "abs"

Abstention.R

# Carrega pacote para ler arquivos arff
install.packages("foreign")
library("foreign")

# Seta diretorio de trabalho
setwd("D:/House-Votes/")

# Lê base de dados
data <- read.arff("house-votes-84.arff")

# Troca valores faltantes pela categoria abstention (abs)
data$`handicapped-infants` <- fct_explicit_na(data$`handicapped-infants`, "abs")
data$`water-project-cost-sharing` <- fct_explicit_na(data$`water-project-cost-sharing`, "abs")
data$`adoption-of-the-budget-resolution` <- fct_explicit_na(data$`adoption-of-the-budget-resolution`, "abs")
data$`physician-fee-freeze` <- fct_explicit_na(data$`physician-fee-freeze`, "abs")
data$`el-salvador-aid` <- fct_explicit_na(data$`el-salvador-aid`, "abs")
data$`religious-groups-in-schools` <- fct_explicit_na(data$`religious-groups-in-schools`, "abs")
data$`anti-satellite-test-ban` <- fct_explicit_na(data$`anti-satellite-test-ban`, "abs")
data$`aid-to-nicaraguan-contras` <- fct_explicit_na(data$`aid-to-nicaraguan-contras`, "abs")
data$`mx-missile` <- "abs" <- fct_explicit_na(data$`mx-missile`, "abs")
data$`immigration` <- fct_explicit_na(data$`immigration`, "abs")
data$`synfuels-corporation-cutback` <- fct_explicit_na(data$`synfuels-corporation-cutback`, "abs")
data$`education-spending` <- fct_explicit_na(data$`education-spending`, "abs")
data$`superfund-right-to-sue` <- fct_explicit_na(data$`superfund-right-to-sue`, "abs")
data$crime <- fct_explicit_na(data$crime, "abs")
data$`duty-free-exports` <- fct_explicit_na(data$`duty-free-exports`, "abs")
data$`export-administration-act-south-africa` <- fct_explicit_na(data$`export-administration-act-south-africa`, "abs")

# Exibe dados
summary(data)

# Salva em outro arquivo arff
write.arff(data, "house-votes-84-3c.arff")