paketler
3lü fonksiyon
2li fonksiyon
m1 m2 m3 para arzları (bintl)
para_arz <- evds_csv3_demo(anahtar = anahtar,"TP.PR.ARZ01",
veriseti2 = "TP.PR.ARZ13",
veriseti3 = "TP.PR.ARZ22",
baslangic_tarihi = "01-01-2006",bitis_tarihi = format(Sys.Date(),"%d-%m-%Y"))
para_arz
## # A tibble: 2,688 × 4
## Tarih YEARWEEK seri deger
## <date> <chr> <chr> <dbl>
## 1 2006-01-06 2006-1 TP_PR_ARZ01 62548071
## 2 2006-01-06 2006-1 TP_PR_ARZ13 241027834
## 3 2006-01-06 2006-1 TP_PR_ARZ22 264487928
## 4 2006-01-13 2006-2 TP_PR_ARZ01 62351482
## 5 2006-01-13 2006-2 TP_PR_ARZ13 241014925
## 6 2006-01-13 2006-2 TP_PR_ARZ22 265022854
## 7 2006-01-20 2006-3 TP_PR_ARZ01 59765950
## 8 2006-01-20 2006-3 TP_PR_ARZ13 236040781
## 9 2006-01-20 2006-3 TP_PR_ARZ22 259422151
## 10 2006-01-27 2006-4 TP_PR_ARZ01 57885531
## # … with 2,678 more rows
vadeli tl ve vadeli yp verileri (bintl)
vadeli_tl_yp <- evds_csv2_demo(anahtar = anahtar,"TP.PR.ARZ14",
veriseti2 = "TP.PR.ARZ18",
baslangic_tarihi = "01-01-2006",bitis_tarihi = format(Sys.Date(),"%d-%m-%Y"))
vadeli_tl_yp
## # A tibble: 1,792 × 4
## Tarih YEARWEEK seri deger
## <date> <chr> <chr> <dbl>
## 1 2006-01-06 2006-1 TP_PR_ARZ14 116691908
## 2 2006-01-06 2006-1 TP_PR_ARZ18 61787856
## 3 2006-01-13 2006-2 TP_PR_ARZ14 117072766
## 4 2006-01-13 2006-2 TP_PR_ARZ18 61590676
## 5 2006-01-20 2006-3 TP_PR_ARZ14 114683003
## 6 2006-01-20 2006-3 TP_PR_ARZ18 61591828
## 7 2006-01-27 2006-4 TP_PR_ARZ14 115898280
## 8 2006-01-27 2006-4 TP_PR_ARZ18 63569625
## 9 2006-02-03 2006-5 TP_PR_ARZ14 116883338
## 10 2006-02-03 2006-5 TP_PR_ARZ18 63165705
## # … with 1,782 more rows
para piyasasi fonları ve ihraç edilen menkul değerler (bintl)
veri baslangic tarihi uygun olmazsa error veriyor
ppf_iemd <- evds_csv2_demo(anahtar = anahtar,"TP.PR.ARZ24",
veriseti2 = "TP.PR.ARZ25",
baslangic_tarihi = "01-01-2011",bitis_tarihi = format(Sys.Date(),"%d-%m-%Y"))
ppf_iemd
## # A tibble: 1,270 × 4
## Tarih YEARWEEK seri deger
## <date> <chr> <chr> <dbl>
## 1 2011-01-07 2011-1 TP_PR_ARZ24 23898562
## 2 2011-01-07 2011-1 TP_PR_ARZ25 1089456.
## 3 2011-01-14 2011-2 TP_PR_ARZ24 24187620
## 4 2011-01-14 2011-2 TP_PR_ARZ25 1244134.
## 5 2011-01-21 2011-3 TP_PR_ARZ24 24088855
## 6 2011-01-21 2011-3 TP_PR_ARZ25 1262485.
## 7 2011-01-28 2011-4 TP_PR_ARZ24 23728556
## 8 2011-01-28 2011-4 TP_PR_ARZ25 1283381.
## 9 2011-02-04 2011-5 TP_PR_ARZ24 24179734
## 10 2011-02-04 2011-5 TP_PR_ARZ25 2644170.
## # … with 1,260 more rows
taslak grafikler
ggplot(para_arz,aes(x = Tarih), group = seri)+
geom_line(aes(y = deger, color = seri))+
scale_color_manual(values = c("TP_PR_ARZ01"="blue" ,
"TP_PR_ARZ13" ="red",
"TP_PR_ARZ22" = "green"))+
labs(title = "Para arzları",
fill = "Seriler",
y = "Bin TL",caption = "BFRC")+
theme_linedraw()
ggplot(vadeli_tl_yp,aes(x = Tarih), group = seri)+
geom_line(aes(y = deger, color = seri))
ggplot(ppf_iemd,aes(x = Tarih), group = seri)+
geom_line(aes(y = deger, color = seri))
