poke = read.csv(file = "pokemon.csv",header=TRUE,sep = ",")

Screenshot of the csv file:

Use R to

(a) Find the names of the Pok emon which are taller then 2 meters and are Legendary. Corresponding col names are "Height_m" and "isLegendary".

(b) Extract two body styles of pok emon. the x and y axes should be used for 'Attack' and 'Defense' respectively. Restrict this question to just pokemon with two body styles: head arms and serpentine body. Plot the Attack vs Defense of any Pokemon that has those body style (with head arms on the x axis and serpentine body on the y axis). Upload a .pdf of this plot.

Please give a general code. Thank you.

45 65 Number Name Type_1 Type_2 1 Bulbasaur Grass Poison 2 Ivysaur Grass Poison 3 Venusaur Grass Poison 4 Charmander Fire 5 Charmeleon Fire 6 Charizard Fire Flying 7 Squirtle Water 8 Wartortle Water 9 Blastoise Water 10 Caterpie Bug 11 Metapod Bug 12 Butterfree Bug Flying 13 Weedle Bug Poison 14 Kakuna Bug Poison 15 Beedrill Bug Poison 16 Pidgey Normal Flying 17 Pidgeotto Normal Flying 18 Pidgeot Normal Flying 19 Rattata Normal 20 Raticate Normal 21 Spearow Normal Flying 22 Fearow Normal Flying 23 Ekans Poison Total HP Attack Defense Sp_Atk Sp_Def Speed Generation isLegendary Color hasGender Pr_Male Egg_G 318 49 1 FALSE Green TRUE 0.875 Monste 405 60 62 63 80 80 60 1 FALSE Green TRUE 0.875 Monste 525 80 82 83 100 100 1 FALSE Green TRUE 0.875 Monste 309 39 52 4 3 60 50 65 1 FALSE Red TRUE 0.875 Monste 405 58 64 5 8 80 65 80 FALSE Red TRUE 0.875 Monste 534 78 84 78 109 1 FALSE Red TRUE 0.875 Monste 314 44 46 65 FALSE Blue TRUE 0.875 Monste 405 59 63 80 65 80 1 FALSE Blue TRUE 0.875 Monste 530 79 83 100 85 105 1 FALSE Blue TRUE 0.875 Monste 195 45 30 35 20 20 1 FALSE Green TRUE 0.5 Bug 205 50 20 55 25 25 1 FALSE Green TRUE 0.5 Bug 395 1 FALSE White TRUE 0.5 Bug 195 40 35 30 20 20 1 FALSE Brown TRUE 0.5 Bug 205 45 25 | 25 25 1 FALSE Yellow TRUE 0.5 Bug 395 45 80 75 FALSE Yellow TRUE 0.5 Bug 251 FALSE Brown TRUE 0.5 Flying 349 63 60 1 FALSE Brown TRUE 0.5 Flying 70 70 101 1 FALSE Brown TRUE 0.5 Flying 253 30 56 35 25 35 1 FALSE Purple TRUE 0.5 Field 413 55 81 60 50 70 97 FALSE Brown TRUE 0.5 Field 262 40 60 30 31 31 70 1 FALSE Brown TRUE 0.5 Flying 442 65 90 65 61 61 100 1 FALSE Brown TRUE 0.5 Flying 288 35 60 4 4 40 54 55 FALSE Purple TRUE 0.5 Field - CALOR TU 100 45 65 Number Name Type_1 Type_2 1 Bulbasaur Grass Poison 2 Ivysaur Grass Poison 3 Venusaur Grass Poison 4 Charmander Fire 5 Charmeleon Fire 6 Charizard Fire Flying 7 Squirtle Water 8 Wartortle Water 9 Blastoise Water 10 Caterpie Bug 11 Metapod Bug 12 Butterfree Bug Flying 13 Weedle Bug Poison 14 Kakuna Bug Poison 15 Beedrill Bug Poison 16 Pidgey Normal Flying 17 Pidgeotto Normal Flying 18 Pidgeot Normal Flying 19 Rattata Normal 20 Raticate Normal 21 Spearow Normal Flying 22 Fearow Normal Flying 23 Ekans Poison Total HP Attack Defense Sp_Atk Sp_Def Speed Generation isLegendary Color hasGender Pr_Male Egg_G 318 49 1 FALSE Green TRUE 0.875 Monste 405 60 62 63 80 80 60 1 FALSE Green TRUE 0.875 Monste 525 80 82 83 100 100 1 FALSE Green TRUE 0.875 Monste 309 39 52 4 3 60 50 65 1 FALSE Red TRUE 0.875 Monste 405 58 64 5 8 80 65 80 FALSE Red TRUE 0.875 Monste 534 78 84 78 109 1 FALSE Red TRUE 0.875 Monste 314 44 46 65 FALSE Blue TRUE 0.875 Monste 405 59 63 80 65 80 1 FALSE Blue TRUE 0.875 Monste 530 79 83 100 85 105 1 FALSE Blue TRUE 0.875 Monste 195 45 30 35 20 20 1 FALSE Green TRUE 0.5 Bug 205 50 20 55 25 25 1 FALSE Green TRUE 0.5 Bug 395 1 FALSE White TRUE 0.5 Bug 195 40 35 30 20 20 1 FALSE Brown TRUE 0.5 Bug 205 45 25 | 25 25 1 FALSE Yellow TRUE 0.5 Bug 395 45 80 75 FALSE Yellow TRUE 0.5 Bug 251 FALSE Brown TRUE 0.5 Flying 349 63 60 1 FALSE Brown TRUE 0.5 Flying 70 70 101 1 FALSE Brown TRUE 0.5 Flying 253 30 56 35 25 35 1 FALSE Purple TRUE 0.5 Field 413 55 81 60 50 70 97 FALSE Brown TRUE 0.5 Field 262 40 60 30 31 31 70 1 FALSE Brown TRUE 0.5 Flying 442 65 90 65 61 61 100 1 FALSE Brown TRUE 0.5 Flying 288 35 60 4 4 40 54 55 FALSE Purple TRUE 0.5 Field - CALOR TU 100