The sampleStorms data set contains information on three hurricanes: Sandy, Joaquin, and Humberto. Below is code to make a scatterplot of TS_diameter and Pressure for these three storms. Adjust this code so the color of the points reflects the Name of the storm and the transparency of the points reflects their wind speed (the variable "Wind"). Your plot will be saved as CQ1. ```{r, echo=FALSE} CQ1<- ggplot(data = sampleStorms, aes(x = TS_diameter, y = Pressure)) + geom_point()