Question 5a, (4 points): Remake the original horizontal pokemon plot with your new pokemonextra data frame, except only include pokemon taller than 1 meter and weighing more than 1kg. Hint: If your title is too long use to split your text into two lines.

A part of data set by

Number	Name	Type_1	Type_2	Total	HP	Attack	Defense	Sp_Atk	Sp_Def	Speed	Generation	isLegendary	Color	hasGender	Pr_Male	Egg_Group_1	Egg_Group_2	hasMegaEvolution	Height_m	Weight_kg	Catch_Rate	Body_Style
1	Bulbasaur	Grass	Poison	318	45	49	49	65	65	45	1	FALSE	Green	TRUE	0.875	Monster	Grass	FALSE	0.71	6.9	45	quadruped
2	Ivysaur	Grass	Poison	405	60	62	63	80	80	60	1	FALSE	Green	TRUE	0.875	Monster	Grass	FALSE	0.99	13	45	quadruped
3	Venusaur	Grass	Poison	525	80	82	83	100	100	80	1	FALSE	Green	TRUE	0.875	Monster	Grass	TRUE	2.01	100	45	quadruped
4	Charmander	Fire		309	39	52	43	60	50	65	1	FALSE	Red	TRUE	0.875	Monster	Dragon	FALSE	0.61	8.5	45	bipedal_tailed

All code that I have in Rstudio (May be some line useless):

poke = read.csv(file = "pokemon_2019.csv", ... ) head(poke) plot(poke[,"Type_1"], horiz=TRUE,las=2) poke[,"HP"]>200 poke[poke[,"HP"]>200,"HP"] which(poke[,"HP"]>200) # these are the row numbers poke[poke[,"HP"]>200,] #These are the full data rows pokenew = poke[1,]*NA pokenew$Name = "Charmandavar" pokenew$Type_1 = "student" pokenew[,"Name"] = "Lloyd" # You can use any name here. pokemonextra = rbind(pokenew,poke) dim(poke) dim(pokenew) summary(poke) summary(pokenew) head(poke) head(pokenew) plot(pokemonextra[,"Type_1"], las=2) is.data.frame(poke) is.data.frame(pokemonextra) is.numeric(poke[,"Type_1"]) is.numeric(pokemonextra[,"Type_1"]) is.factor(poke[,"Type_1"]) is.factor(pokemonextra[,"Type_1"]) poke[1:5,"Type_1"] pokemonextra[1:5,"Type_1"] unique(poke[,"Type_1"]) pokemonextra[,"Type_1"] = factor(pokemonextra[,"Type_1"]) pokemonextra[1:5,"Type_1"] as.numeric(poke[,"Type_1"]) factor(poke[,"Attack"]) levels(pokemonextra[,"Type_1"]) levels(poke[,"Type_1"])