mr<- read.csv("./mushrooms.csv")
sub_names <- c("class","cap.shape","cap.surface","cap.color","bruises")
mr_sub <- mr[sub_names]
mr_sub <- mr_sub %>%
mutate(class = recode(class,'e'='edible',
'p'='poisonous'))%>%
mutate(cap.shape = recode(cap.shape,
'b'='bell',
'c'='conical',
'x'='convex',
'f'= 'flat',
'k'= 'knobbed',
's'= 'sunken')) %>%
mutate(cap.surface = recode(cap.surface,
'f'='fibrous',
'g'='grooves',
'y'='scaly',
's'='smooth'))%>%
mutate(cap.color = recode(cap.color,
'n'='brown',
'b'='buff',
'b'='cinnamon',
'g'='gray',
'r'='green',
'p'='pink',
'u'='purple',
'e'='red',
'w'='white',
'y'='yellow'))%>%
mutate(bruises = recode(bruises,
't'='bruises',
'f'='no'))
colnames(mr_sub) <- c('mushroom_class'
,'mushroom_cap_shape'
,'mushroom_cap_surface'
,'mushroom_cap_color'
,'mushroom_bruises')
summary(mr_sub)
## mushroom_class mushroom_cap_shape mushroom_cap_surface
## edible :4208 bell : 452 fibrous:2320
## poisonous:3916 conical: 4 grooves: 4
## flat :3152 smooth :2556
## knobbed: 828 scaly :3244
## sunken : 32
## convex :3656
##
## mushroom_cap_color mushroom_bruises
## brown :2284 no :4748
## gray :1840 bruises:3376
## red :1500
## yellow :1072
## white :1040
## buff : 168
## (Other): 220