Write an R script to create a scatter plot,incorporating categorical analysis through color-coded data points representing different groups, using ggplot2.
#Create a scatter plot using ggplot2ggplot(data, aes(x = Sepal.Length, y = Sepal.Width, color = Species))+geom_point(size =3, alpha =0.7) +#Increase point size and transaprencylabs(title ="Scatter Plot of Sepal Dimensions",x ="Sepal Length",y ="Sepal Width",color ="Species") +#Legend titletheme_minimal()+#Clean layouttheme(legend.position ="top") #Move legend to the top