Economics of Money and Banking / Perry G Mehrling / Ders 1

R Studio ve ggplot2() : geom_smooth() geom_point() geom_line()

ggplot2() için öncelikle "tidyverse" paketini yüklemelisiniz.
  • Tidyverse'i açıp, college veritabanını indirelim.


library(tidyverse)

college <- read_csv('http://672258.youcanlearnit.net/college.csv')


  • College veritabanındaki iki değişkenin grafiğini çizelim.


ggplot(data=college) +
  geom_point(mapping=aes(x=tuition, y=sat_avg))


  • Yukarıda oluşturduğumuz grafiğe yaklaşık 3 farklı boyut daha ekleyebiliriz. Bunlar sırasıyla, "shape", "size" ve "color" özellikleridir.


ggplot(data=college) +
  geom_point(mapping=aes(x=tuition, y=sat_avg, shape=control))


ggplot(data=college) +
  geom_point(mapping=aes(x=tuition, y=sat_avg, color=control))


ggplot(data=college) +
  geom_point(mapping=aes(x=tuition, y=sat_avg, size=control))

  • Yukarıda oluşturduğumuz grafiğe yaklaşık 3 farklı boyut daha ekleyebiliriz. Bunlar sırasıyla, "shape", "size" ve "color" özellikleridir.Bu özellikler farklı değişkenlere de eklenebilinir.


ggplot(data=college) +
  geom_point(mapping=aes(x=tuition, y=sat_avg, shape=region, color=control, size=undergrads))




  • Daha önce plot olarak çizdiğimiz grafiği "line" olarak çizelim "geom_point" yerine "geom_line" yazalım.


ggplot(data=college) +
  geom_point(mapping=aes(x=tuition, y=sat_avg, color=control))

YERİNE

ggplot(data=college) +
  geom_line(mapping=aes(x=tuition, y=sat_avg, color=control))

YAZALIM.






  • "geom_point" ile "geom_line" birlikte olsun.


ggplot(data=college) +
  geom_line(mapping=aes(x=tuition, y=sat_avg, color=control)) +
  geom_point(mapping=aes(x=tuition, y=sat_avg, color=control))

YA DA

ggplot(data=college, mapping=aes(x=tuition, y=sat_avg, color=control)) +
  geom_line() +
  geom_point()

YAZALIM.






  • geom_smooth() ile ilişkinin özünü görelim


ggplot(data=college) +
+   geom_smooth(mapping=aes(x=tuition, y=sat_avg, color=control))






  • geom_smooth() ile geom_point() ilişkinin ayrı özünü görelim


ggplot(data=college, mapping=aes(x=tuition, y=sat_avg, color=control)) +
  geom_smooth() +
  geom_point()






  • geom_smooth() ile geom_point() ilişkinin ayrı özünü görelim. Alpha fonksiyonunu kullanarak görüntüyü yumuşatalım.Dikkat


ggplot(data=college, mapping=aes(x=tuition, y=sat_avg, color=control)) +
  geom_smooth() +
geom_point(alpha=1/5)






  • Güven aralıklarını kaldıralım.


ggplot(data=college, mapping=aes(x=tuition, y=sat_avg, color=control)) +
  geom_smooth(se=FALSE) +
  geom_point(alpha=1/5)






Yorumlar