Question
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
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"])
Step by Step Solution
There are 3 Steps involved in it
Step: 1
Get Instant Access to Expert-Tailored Solutions
See step-by-step solutions with expert insights and AI powered tools for academic success
Step: 2
Step: 3
Ace Your Homework with AI
Get the answers you need in no time with our AI-driven, step-by-step assistance
Get Started