Goal of dataset is to create a dataframe with a subset of columns Upload the Mushroom Dataset
#Upload the Mushroom Dataset
mushroom <- read.csv(url("https://archive.ics.uci.edu/ml/machine-learning-databases/mushroom/agaricus-lepiota.data"), header = FALSE)Select Several Columns of Data
#Select Columns 1,3,4,23
mushroom <- mushroom[c(1,3,4,23)]Rename Uploaded Columns of Data
#Rename columns of data to reflect data dictionary
names(mushroom) <- c("Classification","Cap-Surface","Cap-Color","Habitat")Convert Abbreviated Data Into Meaningful Data
#Classification AKA Column 1
levels(mushroom$`Classification`) <- c(levels(mushroom$`Classification`), c("Poisonous","Edible"))
mushroom$`Classification`[mushroom$`Classification` == "p"] <- "Poisonous"
mushroom$`Classification`[mushroom$`Classification` == "e"] <- "Edible"
#Cap-Surface AKA Column 3
levels(mushroom$`Cap-Surface`) <- c(levels(mushroom$`Cap-Surface`), c("Fibrous", "Grooves", "Scaly", "Smooth"))
mushroom$`Cap-Surface`[mushroom$`Cap-Surface` == "f"] <- "Fibrous"
mushroom$`Cap-Surface`[mushroom$`Cap-Surface` == "g"] <- "Grooves"
mushroom$`Cap-Surface`[mushroom$`Cap-Surface` == "y"] <- "Scaly"
mushroom$`Cap-Surface`[mushroom$`Cap-Surface` == "s"] <- "Smooth"
#Cap-Color AKA Column 4
levels(mushroom$`Cap-Color`) <- c(levels(mushroom$`Cap-Color`), c("Brown", "Buff", "Cinnamon", "Gray", "Green", "Pink", "Purple", "Red", "White", "Yellow"))
mushroom$`Cap-Color`[mushroom$`Cap-Color` == "n"] <- "Brown"
mushroom$`Cap-Color`[mushroom$`Cap-Color` == "b"] <- "Buff"
mushroom$`Cap-Color`[mushroom$`Cap-Color` == "c"] <- "Cinnamon"
mushroom$`Cap-Color`[mushroom$`Cap-Color` == "g"] <- "Gray"
mushroom$`Cap-Color`[mushroom$`Cap-Color` == "r"] <- "Green"
mushroom$`Cap-Color`[mushroom$`Cap-Color` == "p"] <- "Pink"
mushroom$`Cap-Color`[mushroom$`Cap-Color` == "u"] <- "Purple"
mushroom$`Cap-Color`[mushroom$`Cap-Color` == "e"] <- "Red"
mushroom$`Cap-Color`[mushroom$`Cap-Color` == "w"] <- "White"
mushroom$`Cap-Color`[mushroom$`Cap-Color` == "y"] <- "Yellow"
#Habitat AKA Column 23
levels(mushroom$`Habitat`) <- c(levels(mushroom$`Habitat`), c("Grasses", "Leaves", "Meadows", "Paths","Urban","Waste","Woods"))
mushroom$`Habitat`[mushroom$`Habitat` == "g"] <- "Grasses"
mushroom$`Habitat`[mushroom$`Habitat` == "l"] <- "Leaves"
mushroom$`Habitat`[mushroom$`Habitat` == "m"] <- "Meadows"
mushroom$`Habitat`[mushroom$`Habitat` == "p"] <- "Paths"
mushroom$`Habitat`[mushroom$`Habitat` == "u"] <- "Urban"
mushroom$`Habitat`[mushroom$`Habitat` == "w"] <- "Waste"
mushroom$`Habitat`[mushroom$`Habitat` == "d"] <- "Woods"