2017-2021 dönemine ilişkin çeyreklik veriler İMF’den elde edilmiştir.

library(readxl)
tge <- read_excel("C:/Users/User1/Desktop/Prices_Production_and_Labor.xlsx")

Daha sonra veri setini zaman serisine çevirmek için ts() fonksiyonu kullanılmıştır. (Veriler çeyreklik olduğundan dolayı frequency = 4 olarak yazılmıştır.

tsveri<-ts(tge, start=2017, frequency = 4)

pdfetch paketi, Kamu kaynaklarından ekonomik ve finansal zaman serilerini indirmek için bir pakettir.

library(pdfetch)
## Warning: package 'pdfetch' was built under R version 4.2.2

Daha sonra Prices_Production_and_Labor isimli veri setini date’e göre sıralamak istersek order() fonksiyonu kullanabiliriz. (df=dataframe)

df=tge[order(tge$Date),]
library(zoo)
## Warning: package 'zoo' was built under R version 4.2.2
## 
## Attaching package: 'zoo'
## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.2.2
library(stargazer)
## 
## Please cite as:
##  Hlavac, Marek (2022). stargazer: Well-Formatted Regression and Summary Statistics Tables.
##  R package version 5.2.3. https://CRAN.R-project.org/package=stargazer

Kullanılan veri seti çeyrekliktir ve df veri setini yıla göre çeyreklik yazmak istersek ismine qtr diyebiliriz.

df$qtr=as.yearqtr(df$Date)

Kullanılan veri setinden ’İşsizlik Oranı’na ait grafiğini çizersek

plot(df$qtr,df$Unemployment_Rate, type = "c", main = "İşsizlik Oranı",ylim = c(6,19),xlab = "Yıl",ylab = "İşsizlik Oranı(%)")

ggplot ile İnternational Finansal Statistic (IFS)’dan elde edilen Türkiye’nin 2017-2021 dönemine ilişkin çeyreklik veriler kullanılarak grafik oluşturulmuştur.

ggplot(data = df, aes(x=qtr,y=Unemployment_Rate))+
geom_line()+
labs(title = "Türkiye İşsizlik Oranı,2017-2021(çeyreklik)",
y="İşsizlik Oranı(%)",
x="Çeyreklik",
caption="Kaynak: İnternational Finansal Statistic (IFS)")

Merkez Bankası Başkanlarının isimleri ve başkanlık yaptıkları dönemler aşağıda gösterilmektedir.

22 Murat Çetinkaya 19 Nisan 2016 6 Temmuz 2019 23 Murat Uysal 6 Temmuz 2019 7 Kasım 24 Naci Ağbal 7 Kasım 2020 20 Mart 2021 25 Şahap Kavcıoğlu 20 Mart 2021 Görevde

terms=data.frame(months=as.yearmon(c("Ekim 2018", "Mart 2020", "Ocak 2021", "Ekim 2021")), y=24, name=c("Murat Çetinkaya","Murat Uysal","Naci Ağbal","Şahap Kavcıoğlu"))

Başkanların görev yaptığı dönemlerin başlangıç tarihleri aşağıdaki gibi gösterilmektedir.

start=c("Nis 2016","Tem 2019","Kas 2020","Mar2021")

Başkanların görev yaptığı dönemlerin bitiş tarihleri aşağıdaki gibi gösterilmektedir.

end=c("Tem 2019","Kas 2020","Mar 2021","Mar 2022")
library(dplyr)

dataframe’e n her bir satırı isimlendirmek için kullanılır

df$n<-seq(from=1, to=19)

Başkanların görevde olduğu dönemlere sarı ve kırmızı renkle gösterirsek

order=c("yellow","red","yellow","red")