mushrooms <- read.csv("https://archive.ics.uci.edu/ml/machine-learning-databases/mushroom/agaricus-lepiota.data", header=FALSE, sep=",")
head(mushrooms)## V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19 V20
## 1 p x s n t p f c n k e e s s w w p w o p
## 2 e x s y t a f c b k e c s s w w p w o p
## 3 e b s w t l f c b n e c s s w w p w o p
## 4 p x y w t p f c n n e e s s w w p w o p
## 5 e x s g f n f w b k t e s s w w p w o e
## 6 e x y y t a f c b n e c s s w w p w o p
## V21 V22 V23
## 1 k s u
## 2 n n g
## 3 n n m
## 4 k s u
## 5 n a g
## 6 k n gsummary(mushrooms)## V1 V2 V3 V4 V5 V6
## e:4208 b: 452 f:2320 n :2284 f:4748 n :3528
## p:3916 c: 4 g: 4 g :1840 t:3376 f :2160
## f:3152 s:2556 e :1500 s : 576
## k: 828 y:3244 y :1072 y : 576
## s: 32 w :1040 a : 400
## x:3656 b : 168 l : 400
## (Other): 220 (Other): 484
## V7 V8 V9 V10 V11 V12 V13
## a: 210 c:6812 b:5612 b :1728 e:3516 ?:2480 f: 552
## f:7914 w:1312 n:2512 p :1492 t:4608 b:3776 k:2372
## w :1202 c: 556 s:5176
## n :1048 e:1120 y: 24
## g : 752 r: 192
## h : 732
## (Other):1170
## V14 V15 V16 V17 V18 V19
## f: 600 w :4464 w :4384 p:8124 n: 96 n: 36
## k:2304 p :1872 p :1872 o: 96 o:7488
## s:4936 g : 576 g : 576 w:7924 t: 600
## y: 284 n : 448 n : 512 y: 8
## b : 432 b : 432
## o : 192 o : 192
## (Other): 140 (Other): 156
## V20 V21 V22 V23
## e:2776 w :2388 a: 384 d:3148
## f: 48 n :1968 c: 340 g:2148
## l:1296 k :1872 n: 400 l: 832
## n: 36 h :1632 s:1248 m: 292
## p:3968 r : 72 v:4040 p:1144
## b : 48 y:1712 u: 368
## (Other): 144 w: 192names(mushrooms)=c("species", "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_below_ring", "veil_type", "veil_color", "ring_number", "ring_type", "sport_print_color", "population", "habitat")Replace the abbrev.
mushrooms$species <- as.character(mushrooms$species)
mushrooms$species[mushrooms$species == "e"] <- "edible"
mushrooms$species[mushrooms$species == "p"] <- "poisonous"
mushrooms$cap_color <- as.character(mushrooms$cap_color)
mushrooms$cap_color[mushrooms$cap_color == "n"] <- "brown"
mushrooms$cap_color[mushrooms$cap_color == "b"] <- "buff"
mushrooms$cap_color[mushrooms$cap_color == "c"] <- "cinnamon"
mushrooms$cap_color[mushrooms$cap_color == "g"] <- "gray"
mushrooms$cap_color[mushrooms$cap_color == "r"] <- "green"
mushrooms$cap_color[mushrooms$cap_color == "p"] <- "pink"
mushrooms$cap_color[mushrooms$cap_color == "u"] <- "purple"
mushrooms$cap_color[mushrooms$cap_color == "e"] <- "red"
mushrooms$cap_color[mushrooms$cap_color == "w"] <- "white"
mushrooms$cap_color[mushrooms$cap_color == "y"] <- "yellow"
mushrooms$odor <- as.character(mushrooms$odor)
mushrooms$odor[mushrooms$odor == "a"] <- "almond"
mushrooms$odor[mushrooms$odor == "l"] <- "anise"
mushrooms$odor[mushrooms$odor == "c"] <- "creosote"
mushrooms$odor[mushrooms$odor == "y"] <- "fishy"
mushrooms$odor[mushrooms$odor == "f"] <- "foul"
mushrooms$odor[mushrooms$odor == "m"] <- "musty"
mushrooms$odor[mushrooms$odor == "n"] <- "none"
mushrooms$odor[mushrooms$odor == "p"] <- "pungent"
mushrooms$odor[mushrooms$odor == "s"] <- "spicy"
mushrooms$habitat <- as.character(mushrooms$habitat)
mushrooms$habitat[mushrooms$habitat == "g"] <- "grasses"
mushrooms$habitat[mushrooms$habitat == "l"] <- "leaves"
mushrooms$habitat[mushrooms$habitat == "m"] <- "meadows"
mushrooms$habitat[mushrooms$habitat == "p"] <- "paths"
mushrooms$habitat[mushrooms$habitat == "u"] <- "urban"
mushrooms$habitat[mushrooms$habitat == "w"] <- "waste"
mushrooms$habitat[mushrooms$habitat == "d"] <- "woods"mushrooms_subset<-subset(mushrooms, species == "poisonous", select = c(species, cap_color, odor, habitat))#cap_color
mush<-table(mushrooms$species, mushrooms$cap_color)
print(mush)##
## brown buff cinnamon gray green pink purple red white yellow
## edible 1264 48 32 1032 16 56 16 624 720 400
## poisonous 1020 120 12 808 0 88 0 876 320 672#habitat
mush1<-table(mushrooms$species, mushrooms$habitat)
print(mush1)##
## grasses leaves meadows paths urban waste woods
## edible 1408 240 256 136 96 192 1880
## poisonous 740 592 36 1008 272 0 1268#odor
mush2<-table(mushrooms$species, mushrooms$odor)
print(mush2)##
## almond anise creosote fishy foul musty none pungent spicy
## edible 400 400 0 0 0 0 3408 0 0
## poisonous 0 0 192 576 2160 36 120 256 576Poisonous mushrooms tend to live in paths and woods areas. They also have an unpleasant odor predominately foul. Their cap color varies from brown, gray, red and yellow.