install.packages(“ggplot”) install.packages(“gapminder”) library(tidyverse) library(gapminder) data(gapminder) #Gapminder dataset contains information about countries and their life expectancy. It has _____ rows and ______ variables.# nrow(gapminder) ncol(gapminder) dim(gapminder) #print columns of gapminder dataset as html table. Use both normal output and knitr::kable output.# colnames(gapminder) install.packages(“kableExtra”) library(kableExtra) dt<-gapminder kbl(dt) dt %>% kbl(caption = “Recreating booktabs style table”) %>% kable_classic(full_width = F, html_font = “Cambria”) #Create a plot of the population vs time of France# gapminder_fra<-filter(gapminder, country == ‘France’) ggplot(gapminder_fra) + geom_point(mapping = aes(x = pop, y = year)) ggplot(gapminder_fra) + geom_line(mapping = aes(x = pop, y = year)) sessionInfo()