R SOFTWARE #GGPLOT2 #BOXPLOT DATASET APLICATIONS YAEM'16
Download as PPTX, PDF
1 like421 views
TRK BANKACILIK S聴STEM聴NDE R TABANLI VER聴 GRSELLET聴RME ANAL聴Z聴: ENERJ聴 KRED聴LER聴N聴N R聴SK ve TEMERRT HAR聴TASI T端rkiye'de Tar脹m ve G脹da Deer Zincirinde #YAEM16 Y旦neylem Arat脹rmas脹 ve End端stri >M端hendislii 36.Ulusal Kongresi, Yaar niversitesi 13-15 Temmuz 2016, 聴zmir
R SOFTWARE #GGPLOT2 #BOXPLOT DATASET APLICATIONS YAEM'16
- 1. R GGPLOT2 DATASET APLICATIONS FATMA INAR Temmuz 2016
- 2. YAEM16 library(readxl) dkrd<-read_excel("DATAFINS/LOANS_TR1.xls",sheet="DATA") ggk<-ggplot(dkrd) gj<-geom_jitter() gx<-geom_boxplot() gh<-geom_hex() lx<-scale_x_log10() # x scale logaritmik(10) ly<-scale_y_log10() # y scale logaritmik(10)
- 3. library(ggplot2) ggplot() komutu ile grafik moduna girmek library(ggplot2) ggk<-ggplot(dkrd) ggks<-ggplot(dks) gbd<-geom_bar(position="dodge") gbs<-geom_bar(position="stack") tlb<-theme(legend.position="bottom")
- 4. geom_...() ve theme_...() katmanlar脹 gp<-geom_point() gd<-geom_density(alpha=0.7) gv<-geom_violin(alpha=0.7) gj<-geom_jitter() gb<-geom_bar() gx<-geom_boxplot() gh<-geom_hex() tlb<-theme(legend.position="bottom") # legend alta yerlestirilir te<-theme_economist() # ggthemes temalar脹 tx<-theme_excel() # ggthemes temalar脹 tw<-theme_wsj() # ggthemes temalar脹 lx<-scale_x_log10() # x scale logaritmik(10) ly<-scale_y_log10() # y scale logaritmik(10)
- 5. geom_boxplot() + fill=factor(NYIL) TakipAlacaklar脹n NUTS1 B旦lge Baz脹nda Quartile Da脹l脹m脹 ggk<-ggplot(dkrd) bxkrd<-aes(NUTS1BOLGE, TAKIPENERJI, fill=factor(NYIL)) tit<-"Takip Enerji Kredilerinin NUTS1B旦lge Baz脹nda Quartile Da脹l脹m脹" gx<-geom_boxplot() ggk+bxkrd+gx+ggtitle(tit)+ly+ylab("Log10 TAKIPENERJI")
- 7. geom_boxplot()+fill=factor(DONEM) TakipAlacaklar脹n NUTS1 B旦lge Baz脹nda Quartile Da脹l脹m脹 ggk<-ggplot(dkrd) bxkrd<-aes(NUTS1BOLGE, TAKIPENERJI, fill=factor(DONEM)) tit<-"TakipAlacaklar脹n NUTS1 B旦lge Baz脹nda Quartile Da脹l脹m脹" ggk+bxkrd+gx+ggtitle(tit)+ly+ylab("Log10 TAKIPENERJI")
- 9. geom_boplot()+geom_jitter()+ fill=factor(DONEM) TakipAlacaklar脹n NUTS1 B旦lge Baz脹nda Quartile Da脹l脹m脹 ggk<-ggplot(dkrd) bxkrd<-aes(NUTS1BOLGE, TAKIPENERJI, fill=factor(DONEM)) tit<-"TakipAlacaklar脹n NUTS1 B旦lge Baz脹nda Quartile Da脹l脹m脹" ggk+bxkrd+gx+ggtitle(tit)+ly+ylab("Log10 TAKIPENERJI")+gj
- 11. geom_boplot()+geom_jitter()+ fill=SEKTOR TakipAlacaklar脹n NUTS1 B旦lge Baz脹nda Quartile Da脹l脹m脹 ggk<-ggplot(dkrd) bxkrd<-aes(NUTS1BOLGE, TAKIPENERJI, fill=SEKTOR) tit<-"Takip Enerji Kredilerinin NUTS1 B旦lge Baz脹nda Quartile Da脹l脹m脹" ggk+bxkrd+gx+ggtitle(tit)+ly+ylab("Log10 TAKIPENERJI")
- 13. gx<-geom_boxplot()+subset BoxPlot Graph:NUTS Ege B旦lgesi ehirlerin Log10TakipAlacak Quartile Da脹l脹m脹 ggks<-ggplot(dks) abxs<-aes(SEHIR, log10(TAKIPENERJI), fill=factor(NYIL)) ndxt<-as.character(nrow(dks)) tit<- paste("BoxPlot Graph:NUTS Ege B旦lgesi ehirlerin Log10TakipEnerji Quartile Da脹l脹m脹","dataN=",ndxt) ggks+abxs+gx+ggtitle(tit)+ly+ylab("Log10 TAKIPENERJI")
- 15. gx<-geom_boxplot()+subset +coord_flip() #yatay eksen BoxPlot Graph:NUTS Ege B旦lgesi ehirlerin Log10TakipAlacak Quartile Da脹l脹m脹 ggks<-ggplot(dks) abxs<-aes(SEHIR, log10(TAKIPENERJI), fill=factor(NYIL)) ndxt<-as.character(nrow(dks)) tit<- paste("BoxPlot Graph:NUTS Ege B旦lgesi ehirlerin Log10Takip Enerji Kredileri Quartile Da脹l脹m脹 ", "dataN=",ndxt) ggks+abxs+gx+ggtitle(tit)+ly+ylab("Log10 TAKIPENERJI")+coord_flip()
- 17. gx<-geom_boxplot()+subset+geom_jitter() BoxPlot Graph:NUTS Ege B旦lgesi ehirlerin Log10TakipAlacak Quartile Da脹l脹m脹 ggks<-ggplot(dks) abxs<-aes(SEHIR, log10(TAKIPALACAK), fill=factor(NYIL)) tit<- "BoxPlot Graph:NUTS Ege B旦lgesi ehirlerin Log10TakipAlacak Quartile Da脹l脹m脹 " ggks+abxs+gx+ggtitle(tit)+ly+ylab("Log10 TAKIPALACAK")+gj
- 19. geom_boxplot() p+theme_economist() ggks<-ggplot(dks) abxs<-aes(SEHIR, TAKIPENERJI, fill=factor(NYIL)) tit<-"Nuts Ege B旦lgesinde ehirlerin Enerji Temerr端t Profilleri Y=LogScale, Theme_Economist" p<-ggks+abxs+gx+ly+ggtitle(tit)+ylab("Log10TAKIPENERJI") p+theme_economist()
- 20. NUTS EGE BOLGESINDE SEHIRLERIN ENERJI TEMERRUT PROFILLERI Y=LOGSCALE p+theme_economist()
- 21. p+theme_wsj() ggks<-ggplot(dks) abxs<-aes(SEKTOR, TAKIPENERJI, fill=factor(NYIL) ) gj<-geom_jitter() p<-ggks+abxs+gx+ly+ggtitle(tit)+ylab("Log10TAKIPENERJI")+gj p+theme_wsj()
- 22. NUTS EGE BOLGESINDE SEHIRLERIN ENERJI TEMERRUT PROFILLERI Y=LOGSCALE p+theme_wsj()
- 23. Kaynaklar Online A巽脹k ders Social Network Analysis, Lada Adamic, Coursera, 2012 R Dilinin temellerini interaktif bi巽imde 旦reten bir web sayfas脹: tryr.codeschool.com Kitaplar Networks, Crowds and Markets: Reasoning about a highly connected world, Easley and Kleinberg, Cambridge, 2010. Network Science, Albert-Laszlo Barabasi Uzay C