ggplot(dane, aes(x=państwo, y=całkowiteZarobki)) +
geom_point(aes(col=rodzajSportu, size=całkowiteZarobki)) +
geom_smooth(method="loess", se=F) +
labs(subtitle="Area Vs Population",
y="Population",
x="Area",
title="Scatterplot",
caption = "Source: midwest")+
theme(text = element_text(size=15),axis.text.x = element_text(angle=90, hjust=1))
PS. Any idea why it says 100 milion dollars is the lowest value? It clearly should be on top of y axis yet it stays at the bottom.