1.Study the dataset and the associated description of the data (i.e. “data dictionary”).
2. Create a data frame with a subset of the columns.
+ Include the column that indicates edible or poisonous and three or four other columns. 3. Add meaningful column names
4. Replace the abbreviations used in the data—for example
5. Deliverable is the R code to perform these transformation tasks.
Mushroom_data<-read.csv(url("https://archive.ics.uci.edu/ml/machine-learning-databases/mushroom/agaricus-lepiota.data"))
Mushroom<- as.data.frame(Mushroom_data)
names(Mushroom) = c("CONSUMABLE", "CAP_SHAPE", "CAP_SURFACE", "CAP_COLOR", "BRUISES", "ODOR", "GILL_ATTACHMENT", "GILL_SPACING", "GILL_SIZE", "GILL_COLOR", "STALK_SHAPE", "STALK_ROOT", "STALK_SURFACE_ABOVE_RING", "STALK_SURFACE_BELOW_RING", "STALK_COLOR_ABOVE_RING", "STALK_COLOR_ABOVE_RING", "VEIL_TYPE", "VEIL_COLOR", "RING_NUMBER", "RING_TYPE", "SPORE_PRINT_COLOR", "POPULATION", "HABITAT")
Mushroom[] <- lapply(Mushroom, as.character)Mushroom$CONSUMABLE[Mushroom$CONSUMABLE == "e"] <- "edible"
Mushroom$CONSUMABLE[Mushroom$CONSUMABLE == "p"] <- "poisonous"Mushroom$CAP_SHAPE[Mushroom$CAP_SHAPE == "b"] <- "bell"
Mushroom$CAP_SHAPE[Mushroom$CAP_SHAPE == "x"] <- "convex"
Mushroom$CAP_SHAPE[Mushroom$CAP_SHAPE == "C"] <- "conical"
Mushroom$CAP_SHAPE[Mushroom$CAP_SHAPE == "f"] <- "flat"
Mushroom$CAP_SHAPE[Mushroom$CAP_SHAPE == "k"] <- "knobbed"
Mushroom$CAP_SHAPE[Mushroom$CAP_SHAPE == "s"] <- "sunken"Mushroom$ODOR[Mushroom$ODOR == "a"] <- "almond"
Mushroom$ODOR[Mushroom$ODOR == "l"] <- "anise"
Mushroom$ODOR[Mushroom$ODOR == "c"] <- "creosote"
Mushroom$ODOR[Mushroom$ODOR == "y"] <- "fishy"
Mushroom$ODOR[Mushroom$ODOR == "f"] <- "foul"
Mushroom$ODOR[Mushroom$ODOR == "m"] <- "musty"
Mushroom$ODOR[Mushroom$ODOR == "n"] <- "none"
Mushroom$ODOR[Mushroom$ODOR == "p"] <- "pungent"
Mushroom$ODOR[Mushroom$ODOR == "s"] <- "spicy"Mushroom$POPULATION[Mushroom$POPULATION == "a"] <- "abundant"
Mushroom$POPULATION[Mushroom$POPULATION == "c"] <- "clustered"
Mushroom$POPULATION[Mushroom$POPULATION == "n"] <- "numerous"
Mushroom$POPULATION[Mushroom$POPULATION == "s"] <- "scattered"
Mushroom$POPULATION[Mushroom$POPULATION == "v"] <- "several"
Mushroom$POPULATION[Mushroom$POPULATION == "y"] <- "solitary"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"## CONSUMABLE CAP_SHAPE ODOR
## Length:8123 Length:8123 Length:8123
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
## POPULATION HABITAT
## Length:8123 Length:8123
## Class :character Class :character
## Mode :character Mode :character## CONSUMABLE CAP_SHAPE ODOR POPULATION HABITAT
## 1 edible convex almond numerous grasses
## 2 edible bell anise numerous meadows
## 3 poisonous convex pungent scattered urban
## 4 edible convex none abundant grasses
## 5 edible convex almond numerous grasses
## 6 edible bell almond numerous meadows
## 7 edible bell anise scattered meadows
## 8 poisonous convex pungent several grasses
## 9 edible bell almond scattered meadows
## 10 edible convex anise numerous grasses
## 11 edible convex almond scattered meadows
## 12 edible bell almond scattered grasses
## 13 poisonous convex pungent several urban
## 14 edible convex none abundant grasses
## 15 edible sunken none solitary urban
## 16 edible flat none abundant grasses
## 17 poisonous convex pungent scattered grasses
## 18 poisonous convex pungent scattered urban
## 19 poisonous convex pungent scattered urban
## 20 edible bell almond scattered meadows