##R$-$ Coding Question

libraryProblem $7$ Create a new plot that shows sepal width as a function of sepal length, facets based on species,

adds a regression trend line $($use linear, not loess; include error boundaries$),$ and removes the gray plot

background as shown below. In addition to producing the plot, include the web search you used to

remove the gray background and a link to a website that showed you how to do this. $($Even if you knew

how to do this, humor me$,$ do a search, and provide a link.$)("$ggplot$2")$

ggplot$($iris$,$ aes$($x $=$ Sepal.Length, y $=$ Sepal.Width$))+$

geom$\_$point$()+$

geom$\_$smooth$($method $=$ lm$,$ se $=$ FALSE$)+$

facet$\_$grid$(.$ ~ Species$)+$

labs$($x $=$ "Sepal Length $($in cm$)",$

y $=$ "Sepal Width $($in cm$)")$

theme$\_$bw$()$