library(ggplot2)
?economics

library(ggplot2)
qplot(date, psavert, data=economics,
      xlab = "rok",
      ylab = "oszczędności",
      main = "Oszczędności na przełomie lat")

qplot(date, pce, data=economics,
      xlab = "rok",
      ylab = "konsumpcja",
      main = "Konsumpcja na przełomie lat")

qplot(date, pop, data=economics,
      xlab = "rok",
      ylab = "populacja",
      main = "Populacja na przełomie lat")

qplot(date, unemploy, data=economics,
      xlab = "rok",
      ylab = "bezrobocie",
      main = "Bezrobocie na przełomie lat")

qplot(economics$psavert,
      geom="bar",
      binwidth = 1,
      fill=I("blue"),
      col=I("red"),
      xlab = "oszczędności",
      ylab = "ilość",
      main = "Średnie oszczędności osobiste")

# Program 9 Budowa wykresu bąbelkowego w pakiecie ggplot2
# scale_area() - automatycznie skaluje bąbelki
# theme_bw() usuwa szare tło wykresu, które pojawia się domyślnie
# ustawienie shape 21 pozwala na zmiane atrybutów kolorystycznych bąbelków

ggplot(data = economics, aes(x=pce, y=psavert, size=pop, label=''),guide=FALSE)+
   geom_point(colour="blue", fill="red", shape=21)+
   geom_text(size=6)+
   theme_bw()

d <- economics