iris%>%ggplot(aes(x=Sepal.Length,y=Sepal.Width))+ geom_point()+ geom_text(aes(label=Species,size=Sepal.Length))