please give me the codes to do this work in R

1) We will use the "penguins" dataset in the "palmerpenguins" package for questions 26. Load the dataset and prepare it for analysis. Check the help document to understand variables in the dataset. Load the "ggplot2" package since you will be creating all the data visualizations using this package in the following questions. 2) Create a scatter plot of bill length and body mass. Then, create another scatter plot of bill length and body mass in which you set the color by species variable. Provide a short interpretation in a comment line starting with \#. 3) Create a bar chart to show the number of penguins for each species and island. Provide a short interpretation in a comment line starting with \#. 4) Create a bar chart to show the average body mass for each species. Provide a short interpretation in a comment line starting with \#. 5) Create a histogram for flipper length for each species. Provide a short interpretation in a comment line starting with \#. 6) Create a boxplot for body mass for each sex and island. Provide a short interpretation in a comment line starting with \#. 7) We will use "NAFTA.CSv" which includes the population growth rates of NAFTA countries for question 7. Read the dataset and save it as myNAFTA. To be able to create line charts for several time-series data, we need to convert this data from a "wide" format into a "long" format. Once you obtain the long format, create a line chart for the popujation growth of each country. Then, provide a short interpretation in a comment line starting with #. the retationshtp shous there is a relativly direct corelation between bill length and body mass I3) Create a bar chart to show the number of benguins ... 4) Create o bar chart to show the average body nass ... a. 5) Create a histogras for fipper length ... 6) Create a bokptet foe body nass ... 17) Woiwill use the Ma.tA csv ... B Let" convert it to a "long" fonnot? (nstoll. pocioges( "tidye") 1ibrary ( tidyr) (c(1,2), a Cather atl colunis except the country and vartable nases to - "year", I toke the coluen nases from the wide doto and put then into a colimn calted tyear" values to - "value") \& take the values from the wide data and put then into a colum catled "vatue