---
title: "COVID 19-Türkiye"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    source_code: embed
    social: menu
    css: styles.css
---

Günlük Durum
=======================================================================


**COVID-19 Türkiye**


"Umutsuz durumlar yoktur, umutsuz insanlar vardır. Ben hiçbir zaman umudumu yitirmedim."

Mustafa Kemal Atatürk



**Son Güncelleme Tarihi: 02.07.2021**
```{r,warning=FALSE,message=FALSE,echo=FALSE}
library(highcharter)
library(ggplot2)
library(stringr)
library(tidyverse)
library(flexdashboard)
```

## 11.05.2020 Verileri {.no-mobile}


### Bugünkü Test Sayısı {.no-mobile}

```{r,include=FALSE}
d1<-read.csv("corona1.csv",sep=";")
colnames(d1)<-c("Tarih","Toplam_Vaka","Günlük_Vaka","Test_Sayısı","Toplam_Test","Toplam_Ölüm","Günlük_Ölüm","Toplam_İyileşen","Günlük_İyileşen","Toplam_Entübe","Günlük_Entübe","Toplam_YogunBakim","Günlük_YogunBakim","Agir_Hasta","Zatürre_Orani","YeniGünlükVaka","ToplamVaka")
d1$Tarih <- as.Date(d1$Tarih, format="%d.%m.%Y")
d1$AktifVaka<-(d1$ToplamVaka-(d1$Toplam_İyileşen+d1$Toplam_Ölüm))
tail(d1)
```



```{r}
articles <- d1$Test_Sayısı[length(d1$Test_Sayısı)]
valueBox(articles, icon = "fa-stethoscope",color="steelblue")
```

### Dünkü Test Sayısı {.no-mobile}

```{r}
articles <- d1$Test_Sayısı[length(d1$Test_Sayısı)-1]
valueBox(articles, icon = "fa-stethoscope",color="steelblue")
```


### Bugünkü Hasta Sayısı {.no-mobile}

```{r}
articles <-d1$Günlük_Vaka[length(d1$Günlük_Vaka)]
valueBox(articles, icon = "fa-hospital",color="orange")
```

### Dünkü Hasta Sayısı {.no-mobile}

```{r}
articles <-d1$Günlük_Vaka[length(d1$Günlük_Vaka)-1]
valueBox(articles, icon = "fa-hospital",color="orange")
```


### Bugünkü Vefat Sayısı {.no-mobile}

```{r}
articles <- d1$Günlük_Ölüm[length(d1$Günlük_Ölüm)]
valueBox(articles, icon = "fa-frown-o",color="black")
```


### Dünkü Vefat Sayısı {.no-mobile}

```{r}
articles <- d1$Günlük_Ölüm[length(d1$Günlük_Ölüm)-1]
valueBox(articles, icon = "fa-frown-o",color="black")
```


### Bugünkü Vaka Sayısı {.no-mobile}

```{r}
articles <-d1$YeniGünlükVaka[length(d1$Günlük_Vaka)]
valueBox(articles, icon = "fa-hospital",color="orange")
```


### Dünkü Vaka Sayısı {.no-mobile}

```{r}
articles <-d1$YeniGünlükVaka[length(d1$Günlük_Vaka)-1]
valueBox(articles, icon = "fa-hospital",color="orange")
```

## .

### Bugünkü İyileşen Sayısı {.no-mobile}

```{r}
articles <- d1$Günlük_İyileşen[length(d1$Günlük_İyileşen)]
valueBox(articles, icon = "fa-smile-o",color="darkgreen")
```

### Dünkü İyileşen Sayısı {.no-mobile}

```{r}
articles <- d1$Günlük_İyileşen[length(d1$Günlük_İyileşen)-1]
valueBox(articles, icon = "fa-smile-o",color="darkgreen")
```


### Bugünkü Ağır Hasta Sayısı {.no-mobile}

```{r}
articles <- d1$Agir_Hasta[length(d1$Agir_Hasta)]
valueBox(articles, icon = "fa-user-md",color="darkred")
```


### Dünkü Ağır Hasta Sayısı {.no-mobile}

```{r}
articles <- d1$Agir_Hasta[length(d1$Agir_Hasta)-1]
valueBox(articles, icon = "fa-user-md",color="darkred")
```

### Hastalarda Zatürre Oranı (%) -Bugün {.no-mobile}

```{r}
articles <- d1$Zatürre_Orani[length(d1$Zatürre_Orani)]
valueBox(articles, icon = "fa-user-md",color="darkred")
```

### Hastalarda Zatürre Oranı (%) -Dün {.no-mobile}

```{r}
articles <- d1$Zatürre_Orani[length(d1$Zatürre_Orani)-1]
valueBox(articles, icon = "fa-user-md",color="darkred")
```

## Genel Durum {.no-mobile}

### Toplam Test Sayısı {.no-mobile}


```{r}
articles <-d1$Toplam_Test[length(d1$Toplam_Test)]
valueBox(articles, icon = "fa-stethoscope",color="steelblue")
```


### Toplam Hasta Sayısı {.no-mobile}

```{r}
articles <-d1$Toplam_Vaka[length(d1$Toplam_Vaka)]
valueBox(articles, icon = "fa-hospital",color="orange")
```


### Toplam Vefat Sayısı {.no-mobile}

```{r}
articles <-d1$Toplam_Ölüm[length(d1$Toplam_Ölüm)]
valueBox(articles, icon = "fa-frown-o",color="black")
```

### Toplam İyileşen Sayısı {.no-mobile}

```{r}
articles <- d1$Toplam_İyileşen[length(d1$Toplam_İyileşen)]
valueBox(articles, icon = "fa-smile-o",color="darkgreen")
```

### Toplam Vaka Sayısı {.no-mobile}

```{r}
articles <- d1$ToplamVaka[length(d1$Toplam_İyileşen)]
valueBox(articles, icon = "fa-hospital",color="orange")
```


### Toplam Aktif Hasta Sayısı {.no-mobile}

```{r}
articles <-d1$AktifVaka[length(d1$AktifVaka)]
valueBox(articles, icon = "fa-hospital",color="orange")
```




## 11.05.2020 Verileri {.no-mobile}

### Bugünkü Test Sayısı {.mobile}

```{r,include=FALSE}
d1<-read.csv("corona1.csv",header=T,sep=";")
colnames(d1)<-c("Tarih","Toplam_Vaka","Günlük_Vaka","Test_Sayısı","Toplam_Test","Toplam_Ölüm","Günlük_Ölüm","Toplam_İyileşen","Günlük_İyileşen","Toplam_Entübe","Günlük_Entübe","Toplam_YogunBakim","Günlük_YogunBakim","Agir_Hasta","Zatürre_Orani","YeniGünlükVaka","ToplamVaka")
d1$Tarih <- as.Date(d1$Tarih, format="%d.%m.%Y")
d1$AktifVaka<-(d1$Toplam_Vaka-(d1$Toplam_İyileşen+d1$Toplam_Ölüm))
tail(d1)
```



```{r}
articles <- d1$Test_Sayısı[length(d1$Test_Sayısı)]
valueBox(articles, icon = "fa-stethoscope",color="steelblue")
```


### Bugünkü Vaka Sayısı {.mobile}

```{r}
articles <-d1$Günlük_Vaka[length(d1$Günlük_Vaka)]
valueBox(articles, icon = "fa-hospital",color="orange")
```

### Bugünkü Vefat Sayısı {.mobile}

```{r}
articles <- d1$Günlük_Ölüm[length(d1$Günlük_Ölüm)]
valueBox(articles, icon = "fa-frown-o",color="black")
```

### Bugünkü İyileşen Sayısı {.mobile}

```{r}
articles <- d1$Günlük_İyileşen[length(d1$Günlük_İyileşen)]
valueBox(articles, icon = "fa-smile-o",color="darkgreen")
```

## Genel Durum {.mobile}

### Toplam Test Sayısı {.mobile}


```{r}
articles <-d1$Toplam_Test[length(d1$Toplam_Test)]
valueBox(articles, icon = "fa-stethoscope",color="steelblue")
```


### Toplam Vaka Sayısı {.mobile}

```{r}
articles <-d1$Toplam_Vaka[length(d1$Toplam_Vaka)]
valueBox(articles, icon = "fa-hospital",color="orange")
```


### Toplam Vefat Sayısı {.mobile}

```{r}
articles <-d1$Toplam_Ölüm[length(d1$Toplam_Ölüm)]
valueBox(articles, icon = "fa-frown-o",color="black")
```

### Toplam İyileşen Sayısı {.mobile}

```{r}
articles <- d1$Toplam_İyileşen[length(d1$Toplam_İyileşen)]
valueBox(articles, icon = "fa-smile-o",color="darkgreen")
```


## Yeniler {.mobile}

### Toplam Aktif Vaka Sayısı {.mobile}

```{r}
articles <-d1$AktifVaka[length(d1$AktifVaka)]
valueBox(articles, icon = "fa-hospital",color="orange")
```


### Ağır Hasta Sayısı {.mobile}

```{r}
articles <- d1$Agir_Hasta[length(d1$Agir_Hasta)]
valueBox(articles, icon = "fa-user-md",color="darkred")
```

### Hastalarda Zatürre Oranı (%) {.mobile}

```{r}
articles <- d1$Zatürre_Orani[length(d1$Zatürre_Orani)]
valueBox(articles, icon = "fa-user-md",color="darkred")
```


### Toplam Yoğun Bakım Hasta Sayısı {.mobile}

```{r}
articles <- d1$Toplam_YogunBakim[length(d1$Toplam_YogunBakim)]
valueBox(articles, icon = "fa-user-md",color="darkred")
```

### Toplam Entübe Hasta Sayısı {.mobile}

```{r}
articles <- d1$Toplam_Entübe[length(d1$Toplam_Entübe)]
valueBox(articles, icon = "fa-user-md",color="darkred")
```

### Duyuru

**29 Temmuz tarihinden itibaren yoğun bakım ve entübe hasta sayısı bakanlık tarafından açıklanmamaktadır. **

## Türkiye COVID-19 Veri Seti

```{r,echo=FALSE,warning=FALSE,message=FALSE}
oco<-read.csv("corona1.csv",header=T,sep=";")
colnames(oco)<-c("Tarih","Toplam Hasta","Günlük Hasta","Test Sayısı","Toplam Test","Toplam Ölüm","Günlük Ölüm","Toplam İyileşen","Günlük İyileşen","Toplam Entübe","Günlük Entübe","Toplam Yogun Bakim ","Günlük Yogun Bakim","Ağır Hasta","Zatürre Oranı","YeniGünlükVaka","ToplamVaka")
oco$AktifVaka<-(oco[,2]-(oco[,8]+oco[,6]))
library(knitr)
library(tidyr)
library(kableExtra)
library(DT)
oco1=oco[,-c(10:13)]
oco1=oco1[nrow(oco1):1,]
datatable(oco1,options = list(c(scrollY="200px", scrollX="300px", pageLength = 150)),  filter = 'top')
#kable(tail(oco,7)) %>%
 # kable_styling(bootstrap_options = "striped", full_width = F,font_size =12) %>% kable_styling(bootstrap_options = "striped", full_width = F,font_size =10)
#scroll_box(height="100%",width="250px")
```

## . 

**Son bir haftanın verileri gösterilmiştir.**


```{r,include=FALSE}
data<-read.csv("corona.csv",header=T,sep=";")
colnames(data)<-c("Tarih","Toplam_Vaka","Günlük_Vaka","Test_Sayısı","Toplam_Test","Toplam_Ölüm","Günlük_Ölüm","Toplam_İyileşen","Günlük_İyileşen","Toplam_Entübe","Günlük_Entübe","Toplam_YogunBakim","Günlük_YogunBakim")
#data$Tarih <- as.Date(data$Tarih, format="%d.%m.%Y")
data$AktifVaka<-c((data$Toplam_Vaka[1:276]-(data$Toplam_İyileşen[1:276]+data$Toplam_Ölüm[1:276])),(oco$ToplamVaka[277:nrow(oco)]-(oco$`Toplam İyileşen`[277:nrow(oco)]+oco$`Toplam Ölüm`[277:nrow(oco)])))
#data$GünlükAktifVaka<-(data$Günlük_Vaka-(data$Günlük_İyileşen+data$Günlük_Ölüm))
data$PozitifOranı<-round((data$Toplam_Vaka/data$Toplam_Test)*100,4)
data$GunlukPozitifOranı<-round((data$Günlük_Vaka/data$Test_Sayısı)*100,4)
data$OlumOranı<-round((data$Toplam_Ölüm/data$Toplam_Vaka)*100,4)
data$AktifOlumOranı<-round((data$Günlük_Ölüm/data$AktifVaka)*100,4)
data$IyilesmeOrani<-round((data$Toplam_İyileşen/data$Toplam_Vaka)*100,4)
data$AktifIyilesmeOrani<-round((data$Günlük_İyileşen/data$AktifVaka)*100,4)
data$TestOrani<-round((data$Toplam_Vaka/cumsum(data$Test_Sayısı))*100,4)
data$YogunBakimOrani<-round((data$Toplam_YogunBakim/data$Toplam_Vaka)*100,4)
data$AktifYogunBakimOrani<-round((data$Toplam_YogunBakim/data$AktifVaka)*100,4)
data$Entube<-round((data$Toplam_Entübe/data$Toplam_Vaka)*100,4)
data$AktifEntube<-round((data$Toplam_Entübe/data$AktifVaka)*100,4)
data$BirMilyonaDüsenVaka<-round(((data$Toplam_Vaka*1000000)/83154997),4)
data$BirMilyonaDüsenTest<-round(((data$Toplam_Test*1000000)/83154997),4)
data$Asemptomatik_EvdeKarantina_OrtaSeviye<-data$AktifVaka-(data$Toplam_YogunBakim+data$Toplam_Entübe)
data$Asemptomatik_EvdeKarantina_OrtaSeviye1<-data$AktifVaka-(oco$`Ağır Hasta`)
data$digeraktiforan<-round(((data$Asemptomatik_EvdeKarantina_OrtaSeviye*100)/data$AktifVaka),4)
data$yogunbakimaktiforan<-round(((data$Toplam_YogunBakim*100)/data$AktifVaka),4)
data$entübeaktiforan<-round(((data$Toplam_Entübe*100)/data$AktifVaka),4)
data$AğırHasta<-oco$`Ağır Hasta`
data$digeraktiforan1<-round(((data$Asemptomatik_EvdeKarantina_OrtaSeviye1*100)/data$AktifVaka),4)
data$agirhastaaktiforan<-round(((data$AğırHasta*100)/data$AktifVaka),4)
```


```{r,include=F}
library(stringr)
library(tidyr)
c<-data%>%gather(Kategori,Deger,names(data)[-1])
```


```{r,include=FALSE}
#############Vaka Artış Hızı############

new<-data$Toplam_Vaka
new1<-data$Toplam_Ölüm
tarih<-data$Tarih[2:length(data$Tarih)]
vakaartışyüzdesi<-c()
ölümartışyüzdesi<-c()
for(i in 1:length(new)-1){
  vakaartışyüzdesi[i]<-round((((new[i+1]-new[i])*100)/new[i]),4)
  ölümartışyüzdesi[i]<-round((((new1[i+1]-new1[i])*100)/new1[i]),4)
}

artış<-data.frame(tarih,vakaartışyüzdesi,ölümartışyüzdesi)
library(stringr)
library(tidyr)
artış1<-artış%>%gather(Sınıf,Oran,names(artış)[-1])

```


```{r,include=FALSE}
#############Hasta Artış Hızı############
tv<-data$Toplam_Vaka
to<-data$Toplam_Ölüm
vakakatlanmasüresi_Günn<-c()
for(i in 1:(length(tv)-1)){
  vakakatlanmasüresi_Günn[i]<-round(1/log2(tv[i+1]/tv[i]),2)
}
ölümkatlanmasüresi_Günn<-c()
for(i in 1:(length(to)-1)){
  ölümkatlanmasüresi_Günn[i]<-round(1/log2(to[i+1]/to[i]),2)
}

katlanma<-data.frame(Tarih=data$Tarih[2:length(data$Tarih)],HastaKatlanmaSüresi=vakakatlanmasüresi_Günn,ÖlümKatlanmaSüresi=ölümkatlanmasüresi_Günn)
katlanma1<-katlanma%>%gather(Tip,Günn,names(katlanma)[-1])

```



```{r,include=FALSE}
##kapanan ve toplam vakada ölüm oranı
tv<-data$Toplam_Vaka
to<-data$Toplam_Ölüm
ti<-data$Toplam_İyileşen
toplamölüm<-round((to*100)/tv,2)
kapananölüm<-round((to*100)/(ti+to),2)
toplamkapanan<-data.frame(Tarih=data$Tarih[1:length(data$Tarih)],ToplamÖlümOranı=toplamölüm,KapananÖlümOranı=kapananölüm)
toplamkapanan1<-toplamkapanan%>%gather(Sınıf,Oran,names(toplamkapanan)[-1])


```


```{r,include=F}
#büyümefaktörü
büyümefaktörü<-c()
for(i in 1:(length(data$Günlük_Vaka)-1)){
  büyümefaktörü[i]=data$Günlük_Vaka[i+1]/data$Günlük_Vaka[i]
}
büyümefaktörü[2]=0
bfdf<-data.frame(büyümefaktörü,sınır=rep(1,length(büyümefaktörü)),Gün=1:length(büyümefaktörü))
bfdf1<-bfdf%>%gather(Faktör,Deger,names(bfdf)[-3])
```


```{r,include=F}
#haftalık büyüme faktörü
büyümefaktörühaftalıkortalama<-c()
for(i in 1:(length(büyümefaktörü)-6)){
  büyümefaktörühaftalıkortalama[i]=mean(büyümefaktörü[i:(i+6)])
}


bfdf_haftalık<-data.frame(büyümefaktörühaftalıkortalama,sınır=rep(1,length(büyümefaktörühaftalıkortalama)),Gün=1:length(büyümefaktörühaftalıkortalama))
bfdf_haftalık1<-bfdf_haftalık%>%gather(Faktör,Deger,names(bfdf_haftalık)[-3])

```



```{r,include=FALSE}
##kapanan ve toplam vakada iyileşen oranı
tv<-data$Toplam_Vaka
to<-data$Toplam_Ölüm
ti<-data$Toplam_İyileşen
toplamiyilesen<-round((ti*100)/tv,4)
kapananiyilesen<-round((ti*100)/(ti+to),4)
toplamkapananiyilesen<-data.frame(Tarih=data$Tarih[1:length(data$Tarih)],ToplamİyileşenOranı=toplamiyilesen,KapananİyileşenOranı=kapananiyilesen)
toplamkapananiyilesen1<-toplamkapananiyilesen%>%gather(Sınıf,Oran,names(toplamkapananiyilesen)[-1])
```

```{r,include=F}
library(highcharter)
veripie_thm<- hc_theme(
  colors = c("#85C4CB",'#8B0000','#5068A8', '#E74632','#F88C99','#FFB923'),
  chart = list(
    backgroundColor = NULL,divBackgroundImage = "https://scontent.fesb4-1.fna.fbcdn.net/v/t1.0-9/s960x960/100382526_10222513176408301_180354726255132672_o.jpg?_nc_cat=105&_nc_sid=8024bb&_nc_ohc=G2cABzOeuWAAX-oCA7K&_nc_ht=scontent.fesb4-1.fna&_nc_tp=7&oh=43eee68d8a2b873265306e91d4897c70&oe=5EF079AF"
  ),
  title = list(
    style = list(
      color = 'black',
      font='bold 20px "Trebuchet MS"'
    )
  ), xAxis=list(list(
    lineWidth=1,
    minorGridLineWidth=1,
    lineColor="transparent",
    tickColor="#737373"
    )),
  
  yAxis=list(list(lineWidth=1,
             minorGridLineWidth=1,
             lineColor="transparent",
             tickColor="#737373",
             tickWidth=1)),
  
  subtitle = list(
    style = list(
      color = 'black',
      fontFamily = "Trebuchet MS"
    )
  ),
  legend = list(
    itemStyle = list(
      fontFamily="Trebuchet MS",
      color = 'black'
    ),
    itemHoverStyle = list(
      color = 'black',font='bold 5px Cardo'
    )   
  )
)




```


```{r,warning=FALSE,message=FALSE,echo=F}
#c$Tarih <- as.Date(c$Tarih, format="%d.%m.%Y")

cvaka <- c %>%filter(str_detect(Kategori, "Günlük_Vaka") | str_detect(Kategori, "Toplam_Vaka"))

cvaka1 <- c %>%
  filter(str_detect(Kategori, "Günlük_Vaka"))

ctest <- c %>%
  filter(str_detect(Kategori, "Test_Sayısı") | str_detect(Kategori, "Toplam_Test"))

colum <- c %>%
  filter(str_detect(Kategori, "Günlük_Ölüm") | str_detect(Kategori, "Toplam_Ölüm"))

ciyilesen <- c %>%
  filter(str_detect(Kategori, "Günlük_İyileşen") | str_detect(Kategori, "Toplam_İyileşen"))



colum1 <- c %>% filter(str_detect(Kategori, "Günlük_Ölüm"))


centube <- c %>%
  filter(str_detect(Kategori, "Günlük_Entübe") | str_detect(Kategori, "Toplam_Entübe"))

cyb <- c %>%
  filter(str_detect(Kategori, "Günlük_YogunBakim") | str_detect(Kategori, "Toplam_YogunBakim"))

coran<-c %>%
  filter(str_detect(Kategori, "GunlukPozitifOranı") | str_detect(Kategori, "PozitifOranı"))


cooran<-c %>%
  filter(str_detect(Kategori, "AktifkOlumOranı") | str_detect(Kategori, "OlumOranı"))

ciyilesme<-c %>%
  filter(str_detect(Kategori, "AktifIyilesmeOrani") | str_detect(Kategori, "IyilesmeOrani"))

cyob<-c %>%
  filter(str_detect(Kategori, "AktifYogunBakimOrani") | str_detect(Kategori, "YogunBakimOrani"))

centubee<-c %>%
  filter(str_detect(Kategori, "AktifEntube") | str_detect(Kategori, "Entube"))

caktif<-c %>% filter(str_detect(Kategori, "AktifVaka")| str_detect(Kategori, "Toplam_İyileşen"))

cdiger<-c %>% 
  filter(str_detect(Kategori, "Asemptomatik_EvdeKarantina_OrtaSeviye") | str_detect(Kategori, "Toplam_Entübe") | str_detect(Kategori, "Toplam_YogunBakim") )

cdiger1<-c %>% 
  filter(str_detect(Kategori, "Asemptomatik_EvdeKarantina_OrtaSeviye1") | str_detect(Kategori, "AğırHasta") )


cdigeroran<-c %>% 
  filter(str_detect(Kategori, "digeraktiforan") | str_detect(Kategori, "entübeaktiforan") | str_detect(Kategori, "yogunbakimaktiforan") )

cdigeroran1<-c %>% 
  filter(str_detect(Kategori, "digeraktiforan1") | str_detect(Kategori, "agirhastaaktiforan") )

ciyilesenvaka<-c %>% 
  filter(str_detect(Kategori, "Günlük_Vaka") | str_detect(Kategori, "Günlük_İyileşen"))
```

Türkiye- Sayısal Grafikler {data-navmenu="İzlem Ekranı"}
=======================================================================

## Sayısal Grafikler

### Günlük ve Toplam Hasta Sayısı

```{r,warning=FALSE,message=FALSE,echo=F}
cvaka %>% 
  hchart(., type = "line", hcaes(x = Tarih, y = Deger, group = Kategori)) %>%
  hc_yAxis(text = "Kisi Sayisi")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Türkiye Açiklanan Vaka Sayilari") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir & Tolga Kurtulus",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)
```

### Günlük ve Toplam Vefat Eden Hasta Sayısı

```{r,warning=FALSE,message=FALSE,echo=F}
colum %>% 
  hchart(., type = "line", hcaes(x = Tarih, y = Deger, group = Kategori)) %>%
  hc_yAxis(text = "Kisi Sayisi")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Türkiye Açiklanan Koronavirüs Kaynakli Ölüm Sayisi") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)%>%hc_add_series()
```

## .

### Testi Pozitif Belirti Gösteren Hasta Sayısı Ortalaması (Son 7 Gün)

```{r,echo=F}
haftalıkGünlükvaka<-c()
for(i in 1:(length(data$Günlük_Vaka)-6)){
  haftalıkGünlükvaka[i]=mean(data$Günlük_Vaka[i:(i+6)])
}
haftalıkortvaka<-data.frame(haftalıkGünlükvaka,Tarih=data$Tarih[7:length(data$Tarih)])
haftalıkortvaka %>% 
  hchart(., type = "spline", hcaes(x = Tarih, y =haftalıkGünlükvaka)) %>%
  hc_yAxis(text = "Ortalama Hasta Sayısı")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Belirti Gösteren Hasta Sayısı Ortalaması (Son 7 Gün)") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)%>%hc_add_series()
```

### Haftalık Vefat Ortalaması (7 Gün)


```{r,echo=F}
haftalıkGünlükölüm<-c()
for(i in 1:(length(data$Günlük_Ölüm)-6)){
  haftalıkGünlükölüm[i]=mean(data$Günlük_Ölüm[i:(i+6)])
}
haftalıkortvaka<-data.frame(haftalıkGünlükölüm,Tarih=data$Tarih[7:length(data$Tarih)])
haftalıkortvaka %>% 
  hchart(., type = "spline", hcaes(x = Tarih, y =haftalıkGünlükölüm)) %>%
  hc_yAxis(text = "Haftalık Vefat Ortalaması")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Haftalık Vefat Ortalaması (7 Gün)") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)%>%hc_add_series()
```

## . 

### Günlük Hasta Sayısı Grafiği

```{r,echo=F}
cvaka1 %>% 
  hchart(., type = "spline", hcaes(x = Tarih, y =Deger)) %>%
  hc_yAxis(text = "Günlük Hasta Sayısı")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Günlük Hasta Sayısı") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)%>%hc_add_series()
```


### Günlük Vefat Grafiği

```{r,echo=F}
colum1 %>% 
  hchart(., type = "line", hcaes(x = Tarih, y =Deger)) %>%
  hc_yAxis(text = "Günlük Ölüm Sayısı")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Günlük Ölüm Sayısı") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)%>%hc_add_series()
```

## .

### Günlük Vaka Sayısı Grafiği 

```{r,echo=F}
oco%>%  hchart(., type = "line", hcaes(x = Tarih, y =YeniGünlükVaka)) %>%
  hc_yAxis(text = "Günlük Vaka Sayısı")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Günlük Vaka Sayısı") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)%>%hc_add_series()
```


### Toplam Vaka Sayısı Grafiği 

```{r,echo=F}
oco%>%  hchart(., type = "line", hcaes(x = Tarih, y =ToplamVaka)) %>%
  hc_yAxis(text = "Toplam Vaka Sayısı")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Toplam Vaka Sayısı") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)%>%hc_add_series()
```

## .

### Günlük Açıklanan Hasta ve Günlük Açıklanan İyileşen Hasta Sayısı

```{r,warning=FALSE,message=FALSE,echo=F}
ciyilesenvaka %>% 
  hchart(., type = "line", hcaes(x = Tarih, y = Deger, group = Kategori)) %>%
  hc_yAxis(text = "Kisi Sayisi")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Günlük Açıklanan Vaka ve Günlük Açıklanan İyileşen Hasta Sayısı") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)
```


### Toplam İyileşen Hasta ve Testi Pozitif Belirti Gösteren Aktif Hasta Sayısı

```{r,warning=FALSE,message=FALSE,echo=F}
caktif %>% 
  hchart(., type = "line", hcaes(x = Tarih, y = Deger, group = Kategori)) %>%
  hc_yAxis(text = "Kisi Sayisi")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Toplam Aktif Vaka ve Toplam İyileşen Hasta Sayısı ") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)
```


## . 

### Toplam Ağır Hasta Sayısı ve Günlük Ağır Hasta Sayısı

```{r,warning=FALSE,message=FALSE,echo=F}
Günlük=c()
s=141:length(oco$Tarih)
Günlük[1]=0
for(i in 1:length(s)){
  Günlük[i+1]=oco$`Ağır Hasta`[141+i]-oco$`Ağır Hasta`[141+(i-1)]
}
highchart()%>%
  hc_xAxis(oco$Tarih[141:length(oco$Tarih)])%>%
  hc_yAxis_multiples(list(title = list(text = "Toplam Ağır Hasta Sayısı"),max=300),list(title = list(text = "Günlük Ağır Hasta Sayısı"),
                          opposite = TRUE)
  )%>%hc_series(
    list(yAxis = 1, data=as.vector(oco$`Ağır Hasta`[141:length(oco$Tarih)]), name = "Toplam Ağır Hasta Sayısı"),
    list(yAxis = 0, data=as.vector(Günlük), name = "Günlük Ağır Hasta Sayısı"))%>%
  hc_title(text = "Toplam Ağır Hasta Sayısı ve Günlük Ağır Hasta Sayısı
") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)
```


```{r,warning=FALSE,message=FALSE,echo=F}

### Aktif Vaka Sayısına Göre Ağır Hasta ve Diğer (Evde, Asempotmatik, Orta Şiddetli vs. ) Hasta Sayısı
#cdiger1 %>% 
#  hchart(., type = "line", hcaes(x = Tarih, y = Deger, group = Kategori)) %>%
#  hc_yAxis(text="Kisi Sayisi")%>% 
 # hc_xAxis(text = "Tarih") %>%
 # hc_title(text = "Aktif Vaka Sayısına Göre Hastaların Sayısı") %>%
 # hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
 # hc_credits(
  #  enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
  #  href = "http://users.metu.edu.tr/ozancan/",
  #  style = list(fontSize = "10px")
 # ) %>%hc_add_theme(veripie_thm)


#hasta<-c("Diğer(Asemptomatik,Evde Karantina,Orta Seviye)","Yoğun Bakım","Entübe")
#Diger<-data$AktifVaka[length(data$AktifVaka)]-(data$Toplam_YogunBakim[length(data$AktifVaka)]+data$Toplam_Entübe[length(data$AktifVaka)])
#deger<-c(round((Diger*100)/data$AktifVaka[length(data$AktifVaka)],4),round((data$Toplam_YogunBakim[length(data$AktifVaka)]*100)/data$AktifVaka[length(data$AktifVaka)],4),round((data$Toplam_Entübe[length(data$AktifVaka)]*100)/data$AktifVaka[length(data$AktifVaka)],4))
#xx<-data.frame(hasta,deger)
#library(highcharter)
#hchart('column', hcaes(x = 'Hasta', y = 'Deger'),colorByPoint = TRUE)%>%
 # hc_title(text = "Aktif Vaka Sayısına Göre Hastaların Durumu")%>%
  #hc_subtitle(text = paste0("Son Veri Tarihi: ", max(data$Tarih)), header=TRUE) %>% 
  #hc_credits(
  #  enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
  #  href = "http://users.metu.edu.tr/ozancan/",
   # style = list(fontSize = "10px"))%>%
  #hc_yAxis(
  #  title = list(text = "Yüzdelik"),
   # labels = list(format = "{value}%")
  #) 

```


### Son 10 Günün Büyüme Faktörü Ortalaması

```{r}
büyümefaktörü<-c(bfdf_haftalık1[(nrow(data)-16):(nrow(data)-7),3],bfdf_haftalık1[((2*(nrow(data)-7))-9):(2*(nrow(data)-7)),3])
kategori<-c(rep("Haftalık Büyüme Faktörü",10),rep("Sınır",10))
Tarih<-c(seq(as.Date("2021/03/24"),as.Date("2021/04/02"),by="day"),
         seq(as.Date("2021/03/24"),as.Date("2021/04/02"),by="day"))
d3<-data.frame(büyümefaktörü,kategori,Tarih)
data_ends<-d3[c(10,20),]


d3 %>% 
  hchart(., type = "line", hcaes(x = Tarih, y = büyümefaktörü, group = kategori)) %>%
  hc_yAxis(text = "Faktör Değeri")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Türkiye Son 10 Günün Büyüme Faktörü Ortalaması") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)

```

## . 

```{r,warning=FALSE,message=FALSE,echo=F}
### Hasta ve Ölüm Katlanma Süresi
#katlanma1 %>% 
 # hchart(., type = "line", hcaes(x = Tarih, y = Günn, group = Tip)) %>%
 # hc_yAxis(text = "Katlanma Hızı (Gün)")%>% 
 # hc_xAxis(text = "Tarih") %>%
#  hc_title(text = "Vaka ve Ölüm Katlanma Süresi") %>%
#  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
#  hc_credits(
  #  enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
  #  href = "http://users.metu.edu.tr/ozancan/",
   # style = list(fontSize = "10px")
#  ) %>%hc_add_theme(veripie_thm)
```

```{r,warning=FALSE,message=FALSE,echo=F}
## Aktif Vaka Sayısı
#caktif %>% 
#  hchart(., type = "line", hcaes(x = Tarih, y = Deger, group = Kategori)) %>%
 # hc_yAxis(text = "Kisi Sayisi")%>% 
  #hc_xAxis(text = "Tarih") %>%
  #hc_title(text = "Aktif Vaka Sayısı") %>%
  #hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  #hc_credits(
   # enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
  #  href = "http://users.metu.edu.tr/ozancan/",
   # style = list(fontSize = "10px")
  #) %>%hc_add_theme(veripie_thm)
```




### Haftalık Büyüme Faktörü

```{r,echo=FALSE}
bfdf_haftalık1 %>% 
  hchart(., type = "line", hcaes(x = Gün, y = Deger, group = Faktör)) %>%
  hc_yAxis(text = "Faktör Değeri")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Türkiye Haftalık Büyüme Faktörü Değer Grafiği") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)

```




```{r,echo=FALSE}
### Günlük Büyüme Faktörü
#bfdf1 %>% 
 # hchart(., type = "line", hcaes(x = Gün, y = Deger, group = Faktör)) %>%
 # hc_yAxis(text = "Faktör Değeri")%>% 
#  hc_xAxis(text = "Tarih") %>%
#  hc_title(text = "Türkiye Günlük Büyüme Faktörü Değer Grafiği") %>%
 # hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
 # hc_credits(
 #   enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
  #  href = "http://users.metu.edu.tr/ozancan/",
 #   style = list(fontSize = "10px")
 # ) %>%hc_add_theme(veripie_thm)

```



### Türkiye'de 1 Milyon Başına Düşen Hasta ve Test Sayısı

```{r,echo=FALSE}
cmilyon<-c %>%
  filter(str_detect(Kategori, "BirMilyonaDüsenVaka") | str_detect(Kategori, "BirMilyonaDüsenTest"))
cmilyon %>% 
  hchart(., type = "line", hcaes(x = Tarih, y = Deger, group = Kategori)) %>%
  hc_yAxis(text = "Sayi")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "1 Milyon Kişi Başına Hasta Sayısı ve Test Sayısı") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)

```

## .

### Günlük ve Toplam Yapılan Test Sayısı

```{r,warning=FALSE,message=FALSE,echo=F}
ToplamTest<-ctest%>%filter(str_detect(Kategori, "Toplam_Test"))
GünlükTest<-ctest%>%filter(str_detect(Kategori, "Test_Sayısı"))
highchart()%>%
  hc_xAxis(ToplamTest$Tarih)%>%
  hc_yAxis_multiples(list(title = list(text = "Günlük Test Sayısı"),max=500000),
                     list(title = list(text = "Toplam Test Sayısı"), opposite = TRUE)
  )%>%hc_series(
    list(yAxis = 1, data=as.vector(ToplamTest$Deger), name = "Günlük Test Sayısı"),
    list(yAxis = 0, data=as.vector(GünlükTest$Deger), name = "Toplam Test Sayısı")) %>%
  hc_title(text = "Türkiye Açiklanan Test Sayilari") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  )%>%hc_add_theme(veripie_thm)

```



### Günlük ve Toplam İyileşen Hasta Sayısı

```{r,warning=FALSE,message=FALSE,echo=F}
ciyilesen %>% 
  hchart(., type = "line", hcaes(x = Tarih, y = Deger, group = Kategori)) %>%
  hc_yAxis(text = "Kisi Sayisi")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Türkiye Açiklanan Iyilesen Hasta Sayisi") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir & Tolga Kurtulus",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)
```

## .

### Tahmini Zatürre Hasta Sayısı

```{r,warning=FALSE,message=FALSE,echo=F}

Tarih=d1$Tarih[141:length(d1$Tarih)]
AV=data$AktifVaka[141:length(data$AktifVaka)]
z=d1$Zatürre
z<-gsub(",",".",z)
z<- as.numeric(as.character(z))
ZY=z[141:length(d1$Tarih)]
ZHS=round((AV*ZY/100),0)
zatürrehastası<-data.frame(Tarih=d1$Tarih[141:length(d1$Tarih)],`Zatürre Hasta Sayısı`=ZHS)
zatürrehastası %>% hchart(., type = "line", hcaes(x = Tarih, y =Zatürre.Hasta.Sayısı))%>%
  hc_title(text = " Zatürre Hasta Sayısı")%>% hc_xAxis(text = "Tarih")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = " Zatürre Hasta Sayısı "))%>%hc_add_theme(veripie_thm)
```

###  Hasta ve Ölüm Katlanma Süresi

```{r,warning=FALSE,message=FALSE,echo=F}
katlanma1 %>% 
  hchart(., type = "line", hcaes(x = Tarih, y = Günn, group = Tip)) %>%
  hc_yAxis(text = "Katlanma Hızı (Gün)")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Hasta ve Ölüm Katlanma Süresi") %>%
 hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
 hc_credits(
   enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
   href = "http://users.metu.edu.tr/ozancan/",
   style = list(fontSize = "10px")
) %>%hc_add_theme(veripie_thm)
```









```{r,warning=FALSE,message=FALSE,echo=F}
#



#YBS=round((25466*c_oran[,3]/100),0)
#ybhastası<-data.frame(Tarih=c_oran$Tarih,`Yoğun Bakım Hasta Sayısı`=YBS)
#ybhastası %>% hchart(., type = "line", hcaes(x = Tarih, y =Yoğun.Bakım.Hasta.Sayısı))%>%
#  hc_title(text = " Tahmini Yoğun Bakım Hasta Sayısı")%>% hc_xAxis(text = "Tarih")%>%
#  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]))  %>%
#  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
 #            href = "http://users.metu.edu.tr/ozancan/",
 #            style = list(fontSize = "10px"))%>%
#  hc_yAxis(title = list(text = " Yoğun Bakım "))%>%hc_add_theme(veripie_thm)
```


## . 

### Vaka Katlanma Süresi

```{r,echo=FALSE}
tvv<-oco$ToplamVaka[257:nrow(oco)]
vks<-c()
for(i in 1:(length(tvv)-1)){
  vks[i]<-round(1/log2(tvv[i+1]/tvv[i]),2)
}
vkatlanma<-data.frame(Tarih=oco$Tarih[258:nrow(oco)],VakaKatlanmaSüresi=vks)
vkatlanma1<-vkatlanma%>%gather(Tip,Gün,names(vkatlanma)[-1])
vkatlanma1 %>% 
  hchart(., type = "line", hcaes(x = Tarih, y = Gün, group = Tip)) %>%
  hc_yAxis(text = "Katlanma Hızı (Gün)")%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Vaka Katlanma Süresi") %>%
 hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
 hc_credits(
   enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
   href = "http://users.metu.edu.tr/ozancan/",
   style = list(fontSize = "10px")
) %>%hc_add_theme(veripie_thm)
```






### Tahmini Entübe Hasta Sayısı

``````{r,warning=FALSE,message=FALSE,echo=F}
c_oran<-read.csv("c_oran.csv",header=T,sep=";")
colnames(c_oran)<-c("Tarih","Yatak Doluluk Oranı","Erişkin YB Oranı","Ventilatör Doluluk Oranı","Filyasyon","Ortalama Temaslı Tespit Süresi")
c_oran[,2]<-gsub(",",".",c_oran[,2])
c_oran[,3]<-gsub(",",".",c_oran[,3])
c_oran[,4]<-gsub(",",".",c_oran[,4])
c_oran[,5]<-gsub(",",".",c_oran[,5])
c_oran[,2]<-as.numeric(c_oran[,2])
c_oran[,3]<-as.numeric(c_oran[,3])
c_oran[,4]<-as.numeric(c_oran[,4])
c_oran[,5]<-as.numeric(c_oran[,5])
ES=round((17000*c_oran[,4]/100),0)
ybhastası<-data.frame(Tarih=c_oran$Tarih,`Entübe Hasta Sayısı`=ES)
ybhastası %>% hchart(., type = "line", hcaes(x = Tarih, y =Entübe.Hasta.Sayısı))%>%
  hc_title(text = " Tahmini Entübe Hasta Sayısı")%>% hc_xAxis(text = "Tarih")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = " Entübe "))%>%hc_add_theme(veripie_thm)
```


 

``````{r,warning=FALSE,message=FALSE,echo=F}

### Filyasyon Yüzdesi
#f<-data.frame(Tarih=c_oran$Tarih,Filyasyon=c_oran$Filyasyon)
#f%>% hchart(., type = "line", hcaes(x = Tarih, y =Filyasyon))%>%
# hc_title(text = " Filyasyon  Yüzdesi")%>% hc_xAxis(text = "Tarih")%>%
 # hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]))  %>%
#  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
 #            href = "http://users.metu.edu.tr/ozancan/",
 #            style = list(fontSize = "10px"))%>%
 # hc_yAxis(title = list(text = " Entübe "))%>%hc_add_theme(veripie_thm)
```




```{r,warning=FALSE,message=FALSE,echo=F}

### Günlük ve Toplam Entübe Edilen Hasta Sayısı
#centube %>% 
#  hchart(., type = "line", hcaes(x = Tarih, y = Deger, group = Kategori)) %>%
#  hc_yAxis(text = "Kisi Sayisi")%>% 
#  hc_xAxis(text = "Tarih") %>%
#  hc_title(text = "Türkiye Açiklanan Entübe Edilmis Hasta Sayisi") %>%
 # hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
 # hc_credits(
   # enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir & Tolga Kurtulus",
  #  href = "http://users.metu.edu.tr/ozancan/",
  #  style = list(fontSize = "10px")
#  ) %>%hc_add_theme(veripie_thm)
```



```{r,warning=FALSE,message=FALSE,echo=F}
### Günlük ve Toplam Yoğun Bakım Hasta Sayısı
#cyb %>% 
#  hchart(., type = "line", hcaes(x = Tarih, y = Deger, group = Kategori)) %>%
 # hc_yAxis(text = "Kisi Sayisi")%>% 
#  hc_xAxis(text = "Tarih") %>%
#  hc_title(text = "Türkiye Açiklanan Yogun Bakim'daki Hasta Sayisi") %>%
#  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
 # hc_credits(
 #   enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir & Tolga Kurtulus",
  #  href = "http://users.metu.edu.tr/ozancan/",
 #   style = list(fontSize = "10px")
 # ) %>%hc_add_theme(veripie_thm)


     
```

Türkiye- Oransal Grafikler {data-navmenu="İzlem Ekranı"}
=======================================================================

## .


### Günlük ve Toplam Pozitif (Hasta/Test) Hasta Oranı

```{r,echo=FALSE,warning=FALSE,message=FALSE}

coran %>% 
  hchart(., type = "line", hcaes(x = Tarih, y = Deger, group = Kategori)) %>%
  hc_yAxis(text = "Pozitif Hasta Oranı",labels = list(format = "{value}%"))%>% 
             hc_xAxis(text = "Tarih") %>%
             hc_title(text = "Günlük ve Toplam Pozitif Hasta Oranı") %>%
             hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
             hc_credits(
               enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
               href = "http://users.metu.edu.tr/ozancan/",
               style = list(fontSize = "10px")
             ) %>%hc_add_theme(veripie_thm)
```


### Günlük ve Toplam Vaka Sayısına Göre Pozitiflik Oranı

```{r,echo=FALSE,warning=FALSE,message=FALSE}
vtpozitif<-round((oco$ToplamVaka[260:nrow(oco)]/oco$`Toplam Test`[260:nrow(oco)])*100,4)
vpozitif<-round((oco$YeniGünlükVaka[260:nrow(oco)]/oco$`Test Sayısı`[260:nrow(oco)])*100,4)
t<-oco$Tarih[260:nrow(oco)]
pdata<-data.frame(Tarih=t,ToplamPozitif=vtpozitif,GünlükPozitif=vpozitif)
vpdata<-pdata%>%gather(Kategori,Oran,names(pdata)[-1])
vpdata %>% 
  hchart(., type = "line", hcaes(x = Tarih, y = Oran, group = Kategori)) %>%
  hc_yAxis(text = "Pozitif Hasta Oranı",labels = list(format = "{value}%"))%>% 
             hc_xAxis(text = "Tarih") %>%
             hc_title(text = "Günlük ve Toplam Vaka Sayısına Göre Pozitiflik Oranı") %>%
             hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
             hc_credits(
               enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
               href = "http://users.metu.edu.tr/ozancan/",
               style = list(fontSize = "10px")
             ) %>%hc_add_theme(veripie_thm)
```


## .

### Toplam ve Kapanan Hasta Sayısına Göre Vefat Oranı

```{r,echo=FALSE,warning=FALSE,message=FALSE}
toplamkapanan1%>% 
  hchart(., type = "line", hcaes(x = Tarih, y = Oran, group = Sınıf)) %>%
  hc_yAxis(text = "Ölüm Oranı",labels = list(format = "{value}%"),max=5)%>% 
             hc_xAxis(text = "Tarih") %>%
             hc_title(text = "Toplam ve Kapanan Hasta Sayısına Göre Vefat Oranı") %>%
             hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
             hc_credits(
               enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
               href = "http://users.metu.edu.tr/ozancan/",
               style = list(fontSize = "10px")
             ) %>%hc_add_theme(veripie_thm)
```


### Günlük ve Toplam Vaka Sayısına Göre Vefat Oranı


```{r,echo=FALSE,warning=FALSE,message=FALSE}
vetpozitif<-round((oco$`Toplam Ölüm`[260:nrow(oco)]/oco$ToplamVaka[260:nrow(oco)])*100,4)
vepozitif<-round((oco$`Günlük Ölüm`[260:nrow(oco)]/oco$YeniGünlükVaka[260:nrow(oco)])*100,4)
t<-oco$Tarih[260:nrow(oco)]
vedata<-data.frame(Tarih=t,ToplamVefatOranı=vetpozitif,GünlükVefatOranı=vepozitif)
veppdata<-vedata%>%gather(Kategori,Oran,names(vedata)[-1])

veppdata%>% 
  hchart(., type = "line", hcaes(x = Tarih, y = Oran, group = Kategori)) %>%
  hc_yAxis(text = "Ölüm Oranı",labels = list(format = "{value}%"),max=5)%>% 
             hc_xAxis(text = "Tarih") %>%
             hc_title(text = "Günlük ve Toplam Vaka Sayısına Göre Vefat Oranı") %>%
             hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
             hc_credits(
               enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
               href = "http://users.metu.edu.tr/ozancan/",
               style = list(fontSize = "10px")
             ) %>%hc_add_theme(veripie_thm)
```




## .

### Bir Önceki Güne Göre Hasta ve Ölüm Artış Oranı

```{r,warning=FALSE,message=FALSE,echo=F}
         artış1 %>% 
             hchart(., type = "line", hcaes(x = tarih, y = Oran, group = Sınıf)) %>%
             hc_yAxis(text = "Bir önceki Güne göre artış",labels = list(format = "{value}%"),max=5)%>% 
                        hc_xAxis(text = "Tarih") %>%
                        hc_title(text = "Bir Önceki Güne Göre Vaka ve Ölüm Artış Oranı") %>%
                        hc_subtitle(text = paste0("Son Veri Tarihi: ", max(artış1$Tarih)), header=TRUE) %>% 
                        hc_credits(
                          enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
                          href = "http://users.metu.edu.tr/ozancan/",
                          style = list(fontSize = "10px")
                        )   %>%hc_add_theme(veripie_thm) 
```

### Aktif Hasta Sayısına Göre Hastaların Durumlarının Oranı

```{r,warning=FALSE,message=FALSE,echo=F}
           cdigeroran1 %>% 
  hchart(., type = "line", hcaes(x = Tarih, y = Deger, group = Kategori)) %>%
  hc_yAxis(text="Hasta Orani",labels = list(format = "{value}%"))%>% 
  hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Aktif Vaka Sayısına Göre Hastaların Durumlarının Oranı") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)

```

## .

### Kapanan ve Toplam Hasta Sayısına Göre İyileşme Oranı

```{r,warning=FALSE,message=FALSE,echo=F}

toplamkapananiyilesen1%>% 
  hchart(., type = "line", hcaes(x = Tarih, y = Oran, group = Sınıf)) %>%
  hc_yAxis(text = "Ölüm Oranı",labels = list(format = "{value}%"))%>% 
             hc_xAxis(text = "Tarih") %>%
             hc_title(text = "Toplam ve Kapanan Vakada İyileşen Hasta Oranı") %>%
             hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
             hc_credits(
               enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
               href = "http://users.metu.edu.tr/ozancan/",
               style = list(fontSize = "10px")
             ) %>%hc_add_theme(veripie_thm)
           
                      #ciyilesme %>% 
                         #hchart(., type = "line", hcaes(x = Tarih, y = Deger, group = Kategori)) %>%
                        #hc_yAxis(text = "İyilesme Oranı",labels = list(format = "{value}%"))%>% 
                                   #hc_xAxis(text = "Tarih") %>%
                                   #hc_title(text = "Günlük ve Toplam İyilesme Oranı") %>%
                                   #hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
                                   #hc_credits(
                                     #enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
                                     #href = "http://users.metu.edu.tr/ozancan/",
                                     #style = list(fontSize = "10px")
                                   #) %>%hc_add_theme(veripie_thm)
```

### Hastalarda Zatürre Oranı

```{r,warning=FALSE,message=FALSE,echo=F}
z=d1$Zatürre
z<-gsub(",",".",z)
z<- as.numeric(as.character(z))
zatürre<-data.frame(Tarih=d1$Tarih[141:length(d1$Tarih)],`Zatürre Yüzdesi`=z[141:length(d1$Tarih)])
zz<-zatürre%>%gather(Hasta,Sayı,names(zatürre)[-1])
zz$Hasta<-gsub("Zatürre.Yüzdesi","Zatürre Yüzdesi",zz$Hasta)
zz %>% hchart(., type = "line", hcaes(x = Tarih, y = Sayı, group = Hasta)) %>%
hc_yAxis(text = "Hastalarda Zatürre Oranı",labels = list(format = "{value}%"))%>% 
hc_xAxis(text = "Tarih") %>% hc_title(text = "Hastalarda Zatürre Oranı") %>%
hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
href = "http://users.metu.edu.tr/ozancan/",style = list(fontSize = "10px"))%>%hc_add_theme(veripie_thm)
```


```{r,warning=FALSE,message=FALSE,echo=F}
## Günlük ve Toplam Vefat Oranı
           #cooran %>% 
             #hchart(., type = "line", hcaes(x = Tarih, y = Deger, group = Kategori)) %>%
             #hc_yAxis(text = "Ölüm Oranı",labels = list(format = "{value}%"))%>% 
                        #hc_xAxis(text = "Tarih") %>%
                        #hc_title(text = "Günlük ve Toplam Ölüm Oranı") %>%
                        #hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
                        #hc_credits(
                          #enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
                          #href = "http://users.metu.edu.tr/ozancan/",
                          #style = list(fontSize = "10px")
                        #) #%>%hc_add_theme(veripie_thm)
```

```{r,warning=FALSE,message=FALSE,echo=F}

### Aktif ve Toplam Vakaya Göre Entübe Edilen Oranı
 ##                                           centubee %>% 
 ##                                             hchart(., type = "line", hcaes(x = ####Tarih, y = Deger, group = Kategori)) %>%
  ##                                            hc_yAxis(text = "Entübe Edilmis Hasta ##Oranı",labels = list(format = "{value}%"))%>% 
##hc_xAxis(text = "Tarih") %>%
    ##                                                     hc_title(text = "Aktif ve ##Toplam Vakaya Göre Entube Edilmis Hasta Orani") %>%
##                                                    hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
##hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",href = "http://users.metu.edu.tr/ozancan/",style = list(fontSize = "10px") ) %>%hc_add_theme(veripie_thm)
                                                  
```

## .

### Erişkin Yoğun Bakım Doluluk Oranı

```{r,warning=FALSE,message=FALSE,echo=F}

c_oran %>% hchart(., type = "line", hcaes(x = Tarih, y =`Erişkin YB Oranı`))%>%
  hc_title(text = " Erişkin Yoğun Bakım Doluluk Oranı")%>% hc_xAxis(text = "Tarih")%>%
hc_yAxis(text = "Erişkin Yoğun Bakım Doluluk Oranı",labels = list(format = "{value}%"))%>% 
hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
href = "http://users.metu.edu.tr/ozancan/",style = list(fontSize = "10px"))%>%hc_add_theme(veripie_thm)
```

### Ventilatör Doluluk Oranı

``````{r,warning=FALSE,message=FALSE,echo=F}

c_oran %>% hchart(., type = "line", hcaes(x = Tarih, y =`Ventilatör Doluluk Oranı`))%>%
  hc_title(text = " Ventilatör Doluluk Oranı")%>% hc_xAxis(text = "Tarih")%>%
hc_yAxis(text = "Ventilatör Doluluk Oranı",labels = list(format = "{value}%"))%>% 
hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
href = "http://users.metu.edu.tr/ozancan/",style = list(fontSize = "10px"))%>%hc_add_theme(veripie_thm)
```



```{r,warning=FALSE,message=FALSE,echo=F}
## Aktif ve Toplam Vakaya Göre Yoğun Bakım Hastası Oranı
 #                                cyob %>% 
 #                                  hchart(., type = "line", hcaes(x = Tarih, y = Deger, group = Kategori)) %>%
                              #     hc_yAxis(text = "Yogun Bakim Hastasi Oranı",labels #= list(format = "{value}%"))%>% 
     #                                         hc_xAxis(text = "Tarih") %>%
  #                                            hc_title(text = "Aktif ve Toplam Vakaya #Göre Yoğun Bakım Hastası Oranı") %>%
                               #               hc_subtitle(text = paste0("Son Veri #Tarihi: ", c$Tarih[length(c$Tarih)]), header=TRUE) %>% 
                          #                    hc_credits(
                     #                           enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",#
                       #                         href = #"http://users.metu.edu.tr/ozancan/",
                                           #     style = list(fontSize = "10px")
                                           #   ) %>%hc_add_theme(veripie_thm)
```                                           


Durum Raporu
=======================================================================
## Bölgeler 

### Bölgelere Göre Güncel Hasta Sayısı Dağılımı
```{r,echo=FALSE}
bölgeler<-read.csv("bölge.csv",header=T,sep=";")
colnames(bölgeler)<-c("Tarih","Sayı","Bölge")
bölgeler$Tarih <- as.Date(bölgeler$Tarih, format="%d.%m.%Y")
bölgeler$Bölge<-gsub("Bat\u008dı Anadolu","Batı Anadolu",bölgeler$Bölge)
bölgeler$Bölge<-gsub("Batı\u008d Karadeni","Batı Karadeniz",bölgeler$Bölge)
bölgeler$Bölge<-gsub("Batı\u008d Marmara","Batı Marmara",bölgeler$Bölge)
bölgeler$Bölge<-gsub("Doğu\u008d Marmara","Doğu Marmara",bölgeler$Bölge)
bölgeler$Bölge<-gsub("Batı Karadenizz","Batı Karadeniz",bölgeler$Bölge)
b1<-bölgeler[(nrow(bölgeler)-11):nrow(bölgeler),]
hchart(b1, type = "column", hcaes(x = Bölge, y = Sayı),colorByPoint=T) %>%
  hc_yAxis(text = "Vaka Sayısı")%>% hc_xAxis(text = "Bölge") %>%
  hc_title(text = "Bölgelere Göre Güncel Hasta Sayısı Dağılımı") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", max(b1$Tarih)), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  )  %>%hc_add_theme(veripie_thm)
```


### Zamana Bağlı Bölgelerin Hasta Sayıları

```{r,echo=FALSE}
bölgeler<-read.csv("bölge.csv",header=T,sep=";")
colnames(bölgeler)<-c("Tarih","Sayı","Bölge")
bölgeler$Tarih <- as.Date(bölgeler$Tarih, format="%d.%m.%Y")
bölgeler$Bölge<-gsub("Bat\u008dı Anadolu","Batı Anadolu",bölgeler$Bölge)
bölgeler$Bölge<-gsub("Batı\u008d Karadeni","Batı Karadeniz",bölgeler$Bölge)
bölgeler$Bölge<-gsub("Batı\u008d Marmara","Batı Marmara",bölgeler$Bölge)
bölgeler$Bölge<-gsub("Doğu\u008d Marmara","Doğu Marmara",bölgeler$Bölge)
bölgeler$Bölge<-gsub("Batı Karadenizz","Batı Karadeniz",bölgeler$Bölge)
library(highcharter)
hchart(bölgeler, type = "line", hcaes(x = Tarih, y = Sayı, group =Bölge))%>%
   hc_yAxis(text = "Vaka Sayısı")%>% hc_xAxis(text = "Tarih") %>%
                                              hc_title(text = "Zamana Bağlı Bölgelerin Hasta Sayıları") %>%
                                              hc_subtitle(text = paste0("Son Veri Tarihi: ", max(bölgeler$Tarih)), header=TRUE) %>% 
                                              hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",href = "http://users.metu.edu.tr/ozancan/",style = list(fontSize = "10px") ) %>%hc_add_theme(veripie_thm)
```

## . 

### Bölgelerdeki Toplam Hasta Sayısı

```{r,echo=F}
böl<-bölgeler%>%group_by(Bölge)%>%summarise(Toplam=sum(Sayı))
hchart(böl, type = "bar", hcaes(x = Bölge, y = Toplam)) %>%
  hc_yAxis(text = "Vaka Sayısı")%>% hc_xAxis(text = "Bölge") %>%
  hc_title(text = "Bölgelerdeki Toplam Hasta Sayısı") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", max(bölgeler$Tarih)), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)
```

### Bölgeler ve İçerdiği İller

```{r, kable_long,message=FALSE,warning=FALSE}
ilbölge<-read.table("ilbölge.txt",header=T,sep="\t")
library(DT)
datatable(ilbölge ,options = list(c(scrollY="200px", scrollX="300px", pageLength = 100)),  filter = 'top')
```


## Cinsiyet 

### Cinsiyete Göre Hasta Sayıları Dağılımı (Son Bir Hafta)
```{r,echo=F}
yascinsiyet<-read.csv("yascinsiyet.csv",sep=";",header=T)
colnames(yascinsiyet)<-c("Tarih","Yaş Grubu","Cinsiyet","Sayı")
yascinsiyet$Tarih <- as.Date(yascinsiyet$Tarih, format="%d.%m.%Y")
library(tidyverse)
yascinsiyet1<-yascinsiyet%>%filter(str_detect(Cinsiyet, "Erkek") | str_detect(Cinsiyet, "Kadın"))
yascinsiyet2<-yascinsiyet1%>%group_by(Tarih,Cinsiyet)%>%summarise(Toplam=sum(Sayı))
library(highcharter)
yascinsiyet3<-yascinsiyet2[(nrow(yascinsiyet2)-13):nrow(yascinsiyet2),]
hchart(yascinsiyet3, type = "column", hcaes(x = Tarih, y = Toplam,group=Cinsiyet)) %>%
  hc_yAxis(text = "Vaka Sayısı")%>% hc_xAxis(text = "Bölge") %>%
  hc_title(text = "Cinsiyete Göre Hasta Sayıları Dağılımı (Son Bir Hafta)") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", max(yascinsiyet3$Tarih)), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)
```

### Cinsiyete Göre Hasta Sayıları Dağılımı

```{r,echo=F}
hchart(yascinsiyet2, type = "line", hcaes(x = Tarih, y = Toplam, group =Cinsiyet))%>%
  hc_yAxis(text = "Vaka Sayısı")%>% hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Cinsiyete Göre Hasta Sayıları Dağılımı") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", max(yascinsiyet2$Tarih)), header=TRUE) %>% 
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",href = "http://users.metu.edu.tr/ozancan/",style = list(fontSize = "10px") ) %>%hc_add_theme(veripie_thm)

```

## Yaş

### Hasta Sayısının Yaş Gruplarına Göre Dağılımı (Güncel)

```{r,echo=F}


yascinsiyet22<-yascinsiyet1%>%group_by(Tarih,`Yaş Grubu`)%>%summarise(Toplam=sum(Sayı))
library(highcharter)
yascinsiyet33<-yascinsiyet22[(nrow(yascinsiyet22)-6):nrow(yascinsiyet22),]
hchart(yascinsiyet33, type = "column", hcaes(x = Tarih, y = Toplam,group=`Yaş Grubu`)) %>%
  hc_yAxis(text = "Vaka Sayısı")%>% hc_xAxis(text = "Bölge") %>%
  hc_title(text = "Hasta Sayısının Yaş Gruplarına Göre Dağılımı") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", max(yascinsiyet3$Tarih)), header=TRUE) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)
```

### Hasta Sayılarının Yaş Gruplarına Göre Dağılımı

```{r,echo=F}
hchart(yascinsiyet22, type = "line", hcaes(x = Tarih, y = Toplam, group =`Yaş Grubu`))%>%
  hc_yAxis(text = "Vaka Sayısı")%>% hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Hasta Sayılarının Yaş Gruplarına Göre Dağılımı") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", max(yascinsiyet2$Tarih)), header=TRUE) %>% 
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",href = "http://users.metu.edu.tr/ozancan/",style = list(fontSize = "10px") ) %>%hc_add_theme(veripie_thm)
```


## .

### Hasta Sayılarının Cinsiyete Göre Dağılımı(Durum Raporu)

```{r,echo=F}
yascinsiyet_c<-yascinsiyet%>%group_by(Cinsiyet)%>%summarise(Toplam=sum(Sayı))
hchart(yascinsiyet_c, type = "column", hcaes(x = Cinsiyet, y = Toplam))%>%
  hc_yAxis(text = "Vaka Sayısı")%>% hc_xAxis(text = "Tarih") %>%
  hc_title(text = "Hasta Sayılarının Cinsiyete Göre Dağılımı(Durum Raporu)") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", max(yascinsiyet2$Tarih)), header=TRUE) %>% 
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",href = "http://users.metu.edu.tr/ozancan/",style = list(fontSize = "10px") ) %>%hc_add_theme(veripie_thm)
yascinsiyet_y<-yascinsiyet%>%group_by(`Yaş Grubu`)%>%summarise(Toplam=sum(Sayı))

```

### Hasta Sayılarının Yaş Gruplarına Göre Dağılımı(Durum Raporu)

```{r,echo=F}
yascinsiyet_y<-yascinsiyet%>%group_by(`Yaş Grubu`)%>%summarise(Toplam=sum(Sayı))
hchart(yascinsiyet_y, type = "column", hcaes(x = `Yaş Grubu`, y = Toplam))%>%
  hc_yAxis(text = "Vaka Sayısı")%>% hc_xAxis(text = "Tarih") %>%
  hc_title(text = " Hasta Sayılarının Yaş Gruplarına Göre Dağılımı(Durum Raporu") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", max(yascinsiyet2$Tarih)), header=TRUE) %>% 
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",href = "http://users.metu.edu.tr/ozancan/",style = list(fontSize = "10px") ) %>%hc_add_theme(veripie_thm)


```


Türkiye İllere Göre Pandemi İzlemi {data-navmenu="İzlem Ekranı"}
=======================================================================

```{r,echo=F}
#**Sağlık Bakanlığı'nın 14.04.2020 Günü Açıkladığı Harita**
#knitr::include_graphics("harita1.jpg")
```

 

## İllere Göre Haftalık Vaka Sayısı (100 binde)

```{r,include=F}
#03.04.2020 Tarihinde Açıklanan Verilere Göre Hazırlanan İnteraktif Vaka ve Risk Haritası
library(tidyverse)
library(sp) # Konumsal (Spatial) veri için
tur<- readRDS("turkey.rds") # reading a spatial data
#plot(tur)


tur@data %>% as_tibble() 



#ggplot(tur,aes(x=long,y=lat))+geom_polygon()

#ggplot(tur, aes(x = long, y = lat)) + geom_polygon(aes(group = group)) + coord_fixed()



tur_for <- fortify(tur)  # Bu fonksiyon 'sp' paketinin içinde.



#head(tur_for) # her ilin lattitude ve longitude değerleri gösterililyor



#ggplot(tur_for) + geom_polygon(aes(x = long, y = lat,group = group),color = "white",fill = "red") +theme_void() + coord_fixed()


ozan=read.csv("ucnisan.csv",header=T,sep=";")
ozan$vakasayisi <- gsub(",",".", ozan$vakasayisi)
ozan$vakasayisi<-as.numeric(ozan$vakasayisi)
head(ozan)
ozan<-ozan[,1:5]




#head(tur@data$NAME_1)



#head(ozan$sehir)


#x <- "Ozancan"
#gsub("an","on",x)



turkceden_ingilizceye <- function(dataset){
  turkce_harfler<- c("Ç","Ş","Ğ","İ","Ü","Ö","ç","ş","ğ","ı","ü","ö")
  ingilizce_harfler<- c("C","S","G","I","U","O","c","s","g","i","u","o")
  dataset=mgsub(turkce_harfler,ingilizce_harfler,dataset)
  return(dataset)
}



#  Multiple gsub function

mgsub <- function(pattern, replacement, x, ...) {
  n = length(pattern)
  if (n != length(replacement)) {
    stop("pattern and replacement do not have the same length.")
  }
  result = x
  for (i in 1:n) {
    result <- gsub(pattern[i],replacement[i],result)
  }
  return(result)
}

tur@data$NAME_1 <- turkceden_ingilizceye(tur@data$NAME_1 )
tur@data$NAME_1 <- gsub("K. Maras", "Kahramanmaras",tur@data$NAME_1 )
tur@data$NAME_1 <- gsub("Kinkkale","Kirikkale",tur@data$NAME_1 )
tur@data$NAME_1 <- gsub("Zinguldak", "Zonguldak", tur@data$NAME_1 )
tur@data$NAME_1 <- gsub("Afyon","Afyonkarahisar", tur@data$NAME_1 )


ozan$sehir=turkceden_ingilizceye(ozan$sehir)

#View(ozan$sehir)



ozan%>%as_tibble



id_and_cities<- data_frame(id = rownames(tur@data), sehir = tur@data$NAME_1) %>% left_join(ozan, by = "sehir")




#head(id_and_cities)


final_map <- left_join(tur_for, id_and_cities, by = "id")






#head(final_map)


ozan1<-read.csv("ucnisan.csv",header=T,sep=";")
ozan1$sehir=ozan$sehir
ozan1$lat <- gsub(",",".", ozan1$lat)
ozan1$lng <- gsub(",",".", ozan1$lng)
ozan1$vakasayisi <- gsub(",",".", ozan1$vakasayisi)
str(ozan1)
ozan1$lat<-as.numeric(ozan1$lat)
ozan1$lng<-as.numeric(ozan1$lng)
ozan1$vakasayisi<-as.numeric(ozan1$vakasayisi)

colnames(final_map)[9]="Vaka Sayısı"
colnames(ozan1)[2]="Vaka Sayısı"
colnames(ozan1)[1]="şehir"
ozan2<-ozan1[,-2]

x<-ggplot(final_map) +geom_polygon( aes(x = long, y = lat.x, group = group, fill =`Vaka Sayısı`), color = "white")+coord_fixed(ratio = 1.3)+theme_void() + labs(title="İllere Göre Haftalık Vaka Sayısı (100 binde)",subtitle="8-14 Şubat 2021",caption = "Kaynak: T.C Sağlık Bakanlığı (1 Nisan 2020 Günü açıklanan veriler)",fill="Vaka Sayısı") +scale_fill_gradient(low = "pink", high = "red")  +theme(plot.title = element_text(hjust = 0.5),plot.subtitle = element_text(hjust = 0.5))+geom_point(data=ozan1, aes(x=lng, y=lat,size=`Vaka Sayısı`,label = şehir), color="yellow", alpha=0.5)+scale_size(range = c(1, 11))+geom_text(data=ozan1,aes(label = şehir, x =lng, y = lat),size=2.13,family="NimbusRom")+coord_map()
library(plotly)
f5<-plotly_build(x)
f<-ggplotly(x,tooltip = c("Vaka Sayısı", "şehir"))
t <- list(family = "NimbusRom",size = 2.12,color = 'black')
f1<-layout(f,font=t,yaxis = list(autorange = FALSE),xaxis = list(autorange = FALSE),dragmode = "select",autosize=F) 
# height=950,width=768



```



```{r,echo=F}
f1
```




Türkiye Aylara Göre Pandemi İzlemi {data-navmenu="İzlem Ekranı"}
=======================================================================

## .

### Aylara Göre Toplam Hasta Sayısı Grafiği

```{r,echo=FALSE,message=FALSE,warning=FALSE}
aydatası<-read.csv("aydatası.csv",header=T,sep=";")
colnames(aydatası)<-c("Tarih","Toplam_Vaka","Günlük_Vaka","Test_Sayısı","Toplam_Test",
                      "Toplam_Ölüm","Günlük_Ölüm","Toplam_İyileşen","Günlük_İyileşen",
                      "Toplam_Entübe","Günlük_Entübe","Toplam_YogunBakim","Günlük_YogunBakim",
                      "Agir_Hasta","Zatürre_Orani","YeniGünlükVaka","ToplamVaka","Ay")
aydatası$Ay<-gsub("May\u0011ds","Mayıs",aydatası$Ay)
aydatası$Ay<-gsub("A§ustos","Ağustos",aydatası$Ay)
aydatası$Ay<-gsub("Eyl\u00111l","Eylül",aydatası$Ay)
aydatası$Ay<-gsub("Aral\u0011dk","Aralık",aydatası$Ay)
aydatası$Ay= factor(aydatası$Ay, levels = c("Mmart","Nnisan","Mmayıs","Haziran","Temmuz","Ağustos","Eylül","Ekim","Kasım","Aralık","Ocak","Şubat","Mart","Nisan","Mayıs"), ordered = T) 



aydatası%>%hchart(., type = "line", hcaes(x = Tarih, y = Toplam_Vaka,group = Ay))%>%
  hc_title(text = "Aylara Göre Toplam Hasta Sayısı")%>% hc_xAxis(text = "Tarih")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = " Toplam Vaka Sayısı "))%>%hc_add_theme(veripie_thm)

```

### Aylara Göre Hasta Sayısı Dağılımı 

```{r,echo=FALSE,message=FALSE,warning=FALSE}
toplam=aydatası%>%group_by(Ay)%>%summarise(Toplam=sum(Günlük_Vaka))
toplam%>%hchart(., type = "column", hcaes(x = Ay, y = Toplam))%>%
  hc_title(text = "Aylara Göre Hasta Sayısı Dağılımı")%>% hc_xAxis(text = "Ay")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = " Toplam Vaka Sayısı "))%>%hc_add_theme(veripie_thm)
```

## . 

### Aylara Göre Toplam Vefat Sayısı

```{r,echo=FALSE,message=FALSE,warning=FALSE}
aydatası%>%hchart(., type = "line", hcaes(x = Tarih, y = Toplam_Ölüm,group = Ay))%>%
  hc_title(text = "Aylara Göre Toplam Vefat Sayısı")%>% hc_xAxis(text = "Tarih")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = " Toplam Vefat Sayısı "))%>%hc_add_theme(veripie_thm)

```

### Aylara Göre Vefat Sayısı Dağılımı 

```{r,echo=FALSE,message=FALSE,warning=FALSE}
toplam1=aydatası%>%group_by(Ay)%>%summarise(Toplam=sum(Günlük_Ölüm))
toplam1%>%hchart(., type = "column", hcaes(x = Ay, y = Toplam))%>%
  hc_title(text = "Aylara Göre Vefat Sayısı Dağılımı")%>% hc_xAxis(text = "Ay")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = " Toplam Vefat Sayısı "))%>%hc_add_theme(veripie_thm)
```

## . 


### Aylara Göre Vaka Sayısı Dağılımı

```{r,echo=F,message=FALSE,warning=FALSE}
vakatop=aydatası%>%group_by(Ay)%>%summarise(Toplam=sum(YeniGünlükVaka))
vakatop%>%hchart(., type = "column", hcaes(x = Ay, y = Toplam))%>%
  hc_title(text = "Aylara Göre Vaka Sayısı Dağılımı")%>% hc_xAxis(text = "Ay")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = " Toplam Vefat Sayısı "))%>%hc_add_theme(veripie_thm)
```


### Aylara Göre Ağır Hasta Sayısı Dağılımı

```{r,echo=F,message=FALSE,warning=FALSE}
Günlük=c()
s=141:length(oco$Tarih)
Günlük[1]=0
for(i in 1:length(s)){
  Günlük[i+1]=oco$`Ağır Hasta`[141+i]-oco$`Ağır Hasta`[141+(i-1)]
}
ayagir<-data.frame(Ay=aydatası$Ay[141:nrow(aydatası)],GünlükAğırHasta=Günlük[2:length(Günlük)])
ayagir1=ayagir%>%group_by(Ay)%>%summarise(Toplam=sum(GünlükAğırHasta,na.rm=T))
ayagir1%>%hchart(., type = "column", hcaes(x = Ay, y = Toplam))%>%
  hc_title(text = "Aylara Göre Ağır Hasta Sayısı Dağılımı")%>% hc_xAxis(text = "Ay")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = " Toplam Vefat Sayısı "))%>%hc_add_theme(veripie_thm)
```



## . 

### Aylara Göre İlk 21  Gün Vaka/Hasta Ortalaması

```{r,echo=F,message=FALSE,warning=FALSE}

Mart2020<-aydatası%>%subset(Ay=="Mmart")
Nisan2020<-aydatası%>%subset(Ay=="Nnisan")
Mayıs2020<-aydatası%>%subset(Ay=="Mmayıs")
Haziran2020<-aydatası%>%subset(Ay=="Hhaziran")
Temmuz<-aydatası%>%subset(Ay=="Temmuz")
Ağustos<-aydatası%>%subset(Ay=="Ağustos")
Eylül<-aydatası%>%subset(Ay=="Eylül")
Ekim<-aydatası%>%subset(Ay=="Ekim")
Kasım<-aydatası%>%subset(Ay=="Kasım")
Aralık<-aydatası%>%subset(Ay=="Aralık")
Ocak<-aydatası%>%subset(Ay=="Ocak")
Şubat<-aydatası%>%subset(Ay=="Şubat")
Mart<-aydatası%>%subset(Ay=="Mart")
Nisan<-aydatası%>%subset(Ay=="Nisan")
Mayıs<-aydatası%>%subset(Ay=="Mayıs")
Haziran<-aydatası%>%subset(Ay=="Haziran")
Ay<-c("Nnisan","Mmayıs","Hhaziran","Temmuz","Ağustos","Eylül","Ekim",
      "Kasım","Aralık","Ocak","Şubat","Mart","Nisan","Mayıs","Haziran")
Ortalama<-c(mean(Nisan2020$Günlük_Vaka[1:10],na.rm=T),mean(Mayıs2020$Günlük_Vaka[1:10]),mean(Haziran2020$Günlük_Vaka[1:10]),
            mean(Temmuz$Günlük_Vaka[1:10]),mean(Ağustos$Günlük_Vaka[1:10]),mean(Eylül$Günlük_Vaka[1:10]),
            mean(Ekim$Günlük_Vaka[1:10]),mean(Kasım$Günlük_Vaka[1:10]),mean(Aralık$YeniGünlükVaka[1:10]),
            mean(Ocak$YeniGünlükVaka[1:10]),mean(Şubat$YeniGünlükVaka[1:10]),
            mean(Mart$YeniGünlükVaka[1:10]),mean(Nisan$YeniGünlükVaka[1:10]),mean(Mayıs$YeniGünlükVaka[1:10]),mean(Haziran2020$Günlük_Vaka[1:10]))


d<-data.frame(Ortalama,Ay)
d$Ay<-gsub("Nnisan","Nisan20",d$Ay)
d$Ay<-gsub("Mmayıs","Mayıs20",d$Ay)
d$Ay<-gsub("Hhaziran","Haziran20",d$Ay)
d$Ay<-factor(d$Ay,levels=c("Nisan20","Mayıs20","Haziran20","Temmuz","Ağustos",
          "Eylül","Ekim","Kasım","Aralık","Ocak","Şubat","Mart","Nisan","Mayıs","Haziran"))



d %>% 
     hchart(., type = "line", hcaes(x = Ay, y =Ortalama)) %>%
     hc_yAxis(text = "Aylara Göre İlk 21 Gün Hasta Ortalaması")%>% 
     hc_xAxis(text = "Ay") %>%
     hc_title(text = "Aylara Göre İlk 21 Gün Hasta Ortalaması") %>%
     hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)])) %>% 
     hc_credits(
         enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
         href = "http://users.metu.edu.tr/ozancan/",
         style = list(fontSize = "10px")
       ) %>%hc_add_theme(veripie_thm)%>%hc_add_series()
```


### Aylara Göre İlk 21 Gün Vefat Ortalaması

```{r,echo=F,message=FALSE,warning=FALSE}



Ay<-c("Nnisan","Mmayıs","Hhaziran","Temmuz","Ağustos","Eylül","Ekim",
      "Kasım","Aralık","Ocak","Şubat","Mart","Nisan","Mayıs","Haziran")
Ortalama<-c(mean(Nisan2020$Günlük_Ölüm[1:21]),mean(Mayıs2020$Günlük_Ölüm[1:21]),mean(Haziran2020$Günlük_Ölüm[1:21]),
            mean(Temmuz$Günlük_Ölüm[1:21]),mean(Ağustos$Günlük_Ölüm[1:21]),mean(Eylül$Günlük_Ölüm[1:21]),
            mean(Ekim$Günlük_Ölüm[1:21]),mean(Kasım$Günlük_Ölüm[1:21]),mean(Aralık$Günlük_Ölüm[1:21]),
            mean(Ocak$Günlük_Ölüm[1:21]),mean(Şubat$Günlük_Ölüm[1:21]),
            mean(Mart$Günlük_Ölüm[1:21]),mean(Nisan$Günlük_Ölüm[1:21]),mean(Mayıs$Günlük_Ölüm[1:21]),mean(Haziran$Günlük_Ölüm[1:21]))
d<-data.frame(Ortalama,Ay)
d$Ay<-gsub("Nnisan","Nisan20",d$Ay)
d$Ay<-gsub("Mmayıs","Mayıs20",d$Ay)
d$Ay<-gsub("Hhaziran","Haziran20",d$Ay)
d$Ay<-factor(d$Ay,levels=c("Nisan20","Mayıs20","Haziran20","Temmuz","Ağustos",
                           "Eylül","Ekim","Kasım","Aralık","Ocak","Şubat","Mart","Nisan","Mayıs","Haziran"))

d %>% 
  hchart(., type = "line", hcaes(x = Ay, y =Ortalama)) %>%
  hc_yAxis(text = "Aylara Göre İlk 21 Gün Vefat Ortalaması")%>% 
  hc_xAxis(text = "Ay") %>%
  hc_title(text = "Aylara Göre İlk 21 Gün Vefat Ortalaması") %>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)])) %>% 
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")
  ) %>%hc_add_theme(veripie_thm)%>%hc_add_series()
```

## . 

### Aylara Göre Ağır Hasta Sayısı Ortalaması

```{r,echo=F,message=FALSE,warning=FALSE}
ayagir<-data.frame(Ay=aydatası$Ay[141:nrow(aydatası)],GünlükAğırHasta=Günlük[2:length(Günlük)])
ayagir2=ayagir%>%group_by(Ay)%>%summarise(ort=mean(GünlükAğırHasta,na.rm=T))
ayagir2%>%hchart(., type = "column", hcaes(x = Ay, y = ort))%>%
  hc_title(text = "Aylara Göre Ağır Hasta Sayısı Ortalaması")%>% hc_xAxis(text = "Ay")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = " Toplam Vefat Sayısı "))%>%hc_add_theme(veripie_thm)
```


### Aylara Göre Vaka Sayısı Ortalaması

```{r,echo=F,message=FALSE,warning=FALSE}
ayort=aydatası%>%group_by(Ay)%>%summarise(ort=mean(YeniGünlükVaka))
ayort[9,2]=29470
ayort%>%hchart(., type = "column", hcaes(x = Ay, y = ort))%>%
  hc_title(text = "Aylara Göre Vaka Sayısı Ortalaması")%>% hc_xAxis(text = "Ay")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", c$Tarih[length(c$Tarih)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = " Toplam Vefat Sayısı "))%>%hc_add_theme(veripie_thm)
```


```{r,echo=F,message=FALSE,warning=FALSE}
## Türkiye'de Günlük Hasta \nSayısına Göre Renklendirilmiş Takvim
#library(calendR)
#günlük=data$Günlük_Vaka
#s<-rep(NA,366)
#for (i in 2:length(günlük)){
#        s[72+i]=günlük[i]
#}

#s2=scale(s,center = T)
#s2=as.vector(s2)
#s3=s2+2.6
#s3[which(is.na(s3))]=0



#calendR(year=2048,start="M",special.days =s3,gradient=T, special.col = rgb(2, 0, 0, alpha = 0.9),
  #      low.col = "white",
  #      title = "Türkiye'de Günlük Vaka \nSayısına Göre Renklendirilmiş Takvim",
   #     title.size=20, font.family = "sans",                           
  #      font.style = "bold", mbg.col = "darkred", months.col = "white",papersize #= "A4")

```

Dünya İzlem Ekranı {data-navmenu="İzlem Ekranı"}
=======================================================================

## .

```{r,echo=FALSE,message=FALSE,warning=FALSE}
### Dünya'daki Genel Durum - Harita
library(tidyverse)
library(ggplot2)
library(readr)
library(maps)
library(viridis)

## get the COVID-19 data
#datacov <- read_csv("time_series_covid19_confirmed_global.csv")
## get the world map
#world <- map_data("world")
# cutoffs based on the number of cases
#mybreaks <- c(1, 20, 100, 1000, 50000)

#zz=ggplot() +
 # geom_polygon(data = world, aes(x=long, y = lat, group = group), fill="grey", alpha=0.3) +
#  geom_point(data=datacov, aes(x=Long, y=Lat, size=`4/12/20`, color=`4/12/20`,label=`Country/Region`),stroke=F, alpha=0.7)+
#scale_size_continuous(name="Cases", trans="log", range=c(1,7),breaks=mybreaks, labels = c("1-19", "20-99", #"100-999", "1,000-49,999", "50,000+")) +
#  # scale_alpha_continuous(name="Cases", trans="log", range=c(0.1, 0.9),breaks=mybreaks) +
 # scale_color_viridis_c(option="inferno",name="Cases", trans="log",breaks=mybreaks, labels = c("1-19", #"20-99", "100-999", "1,000-49,999", "50,000+")) +
#  theme_void() + 
#  guides( colour = guide_legend()) +
#  labs(caption = "Data Repository provided by Johns Hopkins CSSE. Visualization by DataScience+ ") +
#  theme(
#    legend.position = "bottom",
 #   text = element_text(color = "#22211d"),
#    plot.background = element_rect(fill = "#ffffff", color = NA), 
#    panel.background = element_rect(fill = "#ffffff", color = NA), 
#    legend.background = element_rect(fill = "#ffffff", color = NA)
 # )

#library(plotly)
#ggplotly(zz,tooltip = c("Country/Region"))%>%layout(title = list(text = paste0('Dünya Vaka Dağılımı',
#                                                                               '',
#                                                                               '',
#                                                                               'Hazırlayan: #Ozancan Ozdemir',
 #                                                                              '')))

```

### Dünya'daki Genel Durum

```{r,warning=FALSE,message=FALSE,echo=FALSE}
library(tidycovid19)
Kategori<-c("Tespit Edilen Toplam Vaka","Hayatını Kaybedenler","Aktif Vaka Sayısı","İyileşen Hasta Sayısı")
covid19_dta <- download_merged_data(silent = TRUE, cached = TRUE)
t=covid19_dta%>%subset(date=="2021-04-23")
Sayısı<-c(sum(t$confirmed,na.rm = T),sum(t$deaths,na.rm = T),(sum(t$confirmed,na.rm = T)-(sum(t$recovered,na.rm = T)+sum(t$deaths,na.rm = T))),sum(t$recovered,na.rm = T))
#Sayısı<-c(26931948,881190,7024665,19026093)
Dünya<-data.frame(Kategori,Sayısı)
Dünya%>% 
hchart('bar', hcaes(x = 'Kategori', y = 'Sayısı'),colorByPoint = TRUE)%>%
hc_title(text = "Dünya'daki Genel Durum")%>%
  hc_credits(
    enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px")) %>%  hc_subtitle(text = paste0("Son Veri Tarihi: ", t$date[1]), header=TRUE) %>%hc_add_theme(veripie_thm)
```

**Kaynak: JHU Verileri**

### Dünya'daki Ölüm ve İyileşme Oranı

```{r,warning=FALSE,message=FALSE,echo=FALSE}
library(highcharter)
library(ggplot2)
Sayısı<-c(sum(t$confirmed,na.rm = T),sum(t$deaths,na.rm = T),(sum(t$confirmed,na.rm = T)-(sum(t$recovered,na.rm = T)+sum(t$deaths,na.rm = T))),sum(t$recovered,na.rm = T))
Grup<-c("İyileşme Oranı","Ölüm Oranı")
Oran<-c(round(Sayısı[4]*100/Sayısı[1],3),round(Sayısı[2]*100/Sayısı[1],3))
Dünya1<-data.frame(Grup,Oran)
Dünya1%>% 
hchart('bar', hcaes(x = 'Grup', y = 'Oran'),colorByPoint = TRUE)%>%
hc_title(text = "Dünya'daki Ölüm ve İyileşme Oranı")%>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px"))%>%
  hc_yAxis(
    title = list(text = "Yüzdelik"),
    labels = list(format = "{value}%")
  )  %>%  hc_subtitle(text = paste0("Son Veri Tarihi: ", t$date[1]), header=TRUE)  %>%hc_add_theme(veripie_thm)


```

## .

### Ülkelerin DSÖ'ye Bildirdikleri Günlük Veriler
```{r,warning=FALSE,message=FALSE,echo=FALSE}
who<-read.csv("https://covid19.who.int/WHO-COVID-19-global-data.csv")
trial=who%>%subset(ï..Date_reported==who$ï..Date_reported[length(who$ï..Date_reported)])
datatable(trial,options = list(c(scrollY="200px", scrollX="300px", pageLength = 80)),  filter = 'top')
```

.
.

## .

### Vaka Sayısı Artışı(100. Vaka Sayısından Sonra)

```{r,echo=FALSE,warning=FALSE,message=FALSE}
library(tidyverse)
#who<-read.csv("https://covid19.who.int/WHO-COVID-19-global-data.csv")

italya<-who%>%subset(Country_code=="IT")%>%subset(Cumulative_cases>=100)%>%select(ülke=Country_code,vaka=Cumulative_cases)%>%mutate(Gün=1:length(vaka))
ispanya<-who%>%subset(Country_code=="ES")%>%subset(Cumulative_cases>=100)%>%select(ülke=Country_code,vaka=Cumulative_cases)%>%mutate(Gün=1:length(vaka))
fransa<-who%>%subset(Country_code=="FR")%>%subset(Cumulative_cases>=100)%>%select(ülke=Country_code,vaka=Cumulative_cases)%>%mutate(Gün=1:length(vaka))
almanya<-who%>%subset(Country_code=="DE")%>%subset(Cumulative_cases>=100)%>%select(ülke=Country_code,vaka=Cumulative_cases)%>%mutate(Gün=1:length(vaka))
amerika<-who%>%subset(Country_code=="US")%>%subset(Cumulative_cases>=100)%>%select(ülke=Country_code,vaka=Cumulative_cases)%>%mutate(Gün=1:length(vaka))
türkiye<-who%>%subset(Country_code=="TR")%>%subset(Cumulative_cases>=100)%>%select(ülke=Country_code,vaka=Cumulative_cases)%>%mutate(Gün=1:length(vaka))
cin<-who%>%subset(Country_code=="CN")%>%subset(Cumulative_cases>=100)%>%select(ülke=Country_code,vaka=Cumulative_cases)%>%mutate(Gün=1:length(vaka))
kore<-who%>%subset(Country_code=="KR")%>%subset(Cumulative_cases>=100)%>%select(ülke=Country_code,vaka=Cumulative_cases)%>%mutate(Gün=1:length(vaka))
ingiltere<-who%>%subset(Country_code=="GB")%>%subset(Cumulative_cases>=100)%>%select(ülke=Country_code,vaka=Cumulative_cases)%>%mutate(Gün=1:length(vaka))
hindistan<-who%>%subset(Country_code=="IN")%>%subset(Cumulative_cases>=100)%>%select(ülke=Country_code,vaka=Cumulative_cases)%>%mutate(Gün=1:length(vaka))
isveç<-who%>%subset(Country_code=="SE")%>%subset(Cumulative_cases>=100)%>%select(ülke=Country_code,vaka=Cumulative_cases)%>%mutate(Gün=1:length(vaka))
israil<-who%>%subset(Country_code=="IL")%>%subset(Cumulative_cases>=100)%>%select(ülke=Country_code,vaka=Cumulative_cases)%>%mutate(Gün=1:length(vaka)) 
  
data<-rbind(italya,ispanya,fransa,almanya,amerika,türkiye,cin,kore,ingiltere,hindistan,isveç,israil)
data$ülke<-gsub("IT","İtalya",data$ülke)
data$ülke<-gsub("ES","İspanya",data$ülke)
data$ülke<-gsub("FR","Fransa",data$ülke)
data$ülke<-gsub("DE","Almanya",data$ülke)
data$ülke<-gsub("US","Amerika",data$ülke)
data$ülke<-gsub("TR","Türkiye",data$ülke)
data$ülke<-gsub("CN","Çin",data$ülke)
data$ülke<-gsub("KR","Güney Kore",data$ülke)
data$ülke<-gsub("GB","İngiltere",data$ülke)
data$ülke<-gsub("IN","Hindistan",data$ülke)
data$ülke<-gsub("SE","İsveç",data$ülke)
data$ülke<-gsub("IL","İsrail",data$ülke)
library(highcharter)
data %>% hchart(., type = "line", hcaes(x = Gün, y = vaka, group = ülke))%>%
  hc_title(text = "Vaka Sayısı Artışı(100. Vaka Sayısından Sonra)")%>% hc_xAxis(text = "Gün")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", who$ï..Date_reported[length(who$ï..Date_reported)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = "Raporlanan Vakalar"))%>%hc_add_theme(veripie_thm) 
```

### Vaka Sayısı Artış Hızı(100. Vaka Sayısından Sonra)-Logaritmik Ölçüde

```{r,echo=FALSE,warning=FALSE,message=FALSE}

data %>% hchart(., type = "line", hcaes(x = Gün, y = log(vaka), group = ülke))%>%
  hc_title(text = "Vaka Sayısı Artış Hızı(100. Vaka Sayısından Sonra)-Logaritmik Ölçüde")%>% hc_xAxis(text = "Gün")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", who$ï..Date_reported[length(who$ï..Date_reported)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = "Raporlanan Vakalar (Logaritmik Ölçüde)"))%>%hc_add_theme(veripie_thm) 

```

## .

### Ölü Sayısı Artışı(100. Ölüm Sayısından Sonra)

```{r,echo=FALSE,warning=FALSE,message=FALSE}

italya<-who%>%subset(Country_code=="IT")%>%subset(Cumulative_deaths>=100)%>%select(ülke=Country_code,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm))
ispanya<-who%>%subset(Country_code=="ES")%>%subset(Cumulative_deaths>=100)%>%select(ülke=Country_code,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm))
fransa<-who%>%subset(Country_code=="FR")%>%subset(Cumulative_deaths>=100)%>%select(ülke=Country_code,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm))
almanya<-who%>%subset(Country_code=="DE")%>%subset(Cumulative_deaths>=100)%>%select(ülke=Country_code,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm))
amerika<-who%>%subset(Country_code=="US")%>%subset(Cumulative_deaths>=100)%>%select(ülke=Country_code,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm))
türkiye<-who%>%subset(Country_code=="TR")%>%subset(Cumulative_deaths>=100)%>%select(ülke=Country_code,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm))
cin<-who%>%subset(Country_code=="CN")%>%subset(Cumulative_deaths>=100)%>%select(ülke=Country_code,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm))
kore<-who%>%subset(Country_code=="KR")%>%subset(Cumulative_deaths>=100)%>%select(ülke=Country_code,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm))
ingiltere<-who%>%subset(Country_code=="GB")%>%subset(Cumulative_deaths>=100)%>%select(ülke=Country_code,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm))
hindistan<-who%>%subset(Country_code=="IN")%>%subset(Cumulative_deaths>=100)%>%select(ülke=Country_code,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm))
isveç<-who%>%subset(Country_code=="SE")%>%subset(Cumulative_deaths>=100)%>%select(ülke=Country_code,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm))
israil<-who%>%subset(Country_code=="IL")%>%subset(Cumulative_deaths>=100)%>%select(ülke=Country_code,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm)) 
  
data<-rbind(italya,ispanya,fransa,almanya,amerika,türkiye,cin,kore,ingiltere,hindistan,isveç,israil)
data$ülke<-gsub("IT","İtalya",data$ülke)
data$ülke<-gsub("ES","İspanya",data$ülke)
data$ülke<-gsub("FR","Fransa",data$ülke)
data$ülke<-gsub("DE","Almanya",data$ülke)
data$ülke<-gsub("US","Amerika",data$ülke)
data$ülke<-gsub("TR","Türkiye",data$ülke)
data$ülke<-gsub("CN","Çin",data$ülke)
data$ülke<-gsub("KR","Güney Kore",data$ülke)
data$ülke<-gsub("GB","İngiltere",data$ülke)
data$ülke<-gsub("IN","Hindistan",data$ülke)
data$ülke<-gsub("SE","İsveç",data$ülke)
data$ülke<-gsub("IL","İsrail",data$ülke)

data %>% hchart(., type = "line", hcaes(x = Gün, y = ölüm, group = ülke))%>%
  hc_title(text = "Ölü Sayısı Artışı(100. Ölüm Sayısından Sonra)")%>% hc_xAxis(text = "Gün")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", who$ï..Date_reported[length(who$ï..Date_reported)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = "Raporlanan Ölümler"))%>%hc_add_theme(veripie_thm) 
```


### Ölü Sayısı Artış Hızı(100. Ölüm Sayısından Sonra)-Logaritmik Ölçüde

```{r,echo=FALSE,warning=FALSE,message=FALSE}

data %>% hchart(., type = "line", hcaes(x = Gün, y = log(ölüm), group = ülke))%>%
hc_title(text = "Ölü Sayısı Artış Hızı(100. Ölüm Sayısından Sonra)-Logaritmik Ölçüde")%>% hc_xAxis(text = "Gün")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ",who$ï..Date_reported[length(who$ï..Date_reported)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = "Raporlanan Ölümler (Logaritmik Ölçüde)"))%>%hc_add_theme(veripie_thm) 
```

## .

### Bazı Ülkelerin Son 30 Gündeki Vaka-Hasta Sayıları

```{r,echo=FALSE,warning=FALSE,message=FALSE}
italya<-who%>%subset(Country_code=="IT")%>%mutate(GünlükVaka=New_cases)%>%select(ülke=Country_code,GünlükVaka=GünlükVaka)%>%mutate(Gün=1:length(GünlükVaka))%>%subset(Gün>=(length(GünlükVaka)-30))
ispanya<-who%>%subset(Country_code=="ES")%>%mutate(GünlükVaka=New_cases)%>%select(ülke=Country_code,GünlükVaka=GünlükVaka)%>%mutate(Gün=1:length(GünlükVaka))%>%subset(Gün>=(length(GünlükVaka)-30))
fransa<-who%>%subset(Country_code=="FR")%>%mutate(GünlükVaka=New_cases)%>%select(ülke=Country_code,GünlükVaka=GünlükVaka)%>%mutate(Gün=1:length(GünlükVaka))%>%subset(Gün>=(length(GünlükVaka)-30))
almanya<-who%>%subset(Country_code=="DE")%>%mutate(GünlükVaka=New_cases)%>%select(ülke=Country_code,GünlükVaka=GünlükVaka)%>%mutate(Gün=1:length(GünlükVaka))%>%subset(Gün>=(length(GünlükVaka)-30))
amerika<-who%>%subset(Country_code=="US")%>%mutate(GünlükVaka=New_cases)%>%select(ülke=Country_code,GünlükVaka=GünlükVaka)%>%mutate(Gün=1:length(GünlükVaka))%>%subset(Gün>=(length(GünlükVaka)-30))
türkiye<-who%>%subset(Country_code=="TR")%>%mutate(GünlükVaka=New_cases)%>%select(ülke=Country_code,GünlükVaka=GünlükVaka)%>%mutate(Gün=1:length(GünlükVaka))%>%subset(Gün>=(length(GünlükVaka)-30))
cin<-who%>%subset(Country_code=="CN")%>%mutate(GünlükVaka=New_cases)%>%select(ülke=Country_code,GünlükVaka=GünlükVaka)%>%mutate(Gün=1:length(GünlükVaka))%>%subset(Gün>=(length(GünlükVaka)-30))
kore<-who%>%subset(Country_code=="KR")%>%mutate(GünlükVaka=New_cases)%>%select(ülke=Country_code,GünlükVaka=GünlükVaka)%>%mutate(Gün=1:length(GünlükVaka))%>%subset(Gün>=(length(GünlükVaka)-30))
ingiltere<-who%>%subset(Country_code=="GB")%>%mutate(GünlükVaka=New_cases)%>%select(ülke=Country_code,GünlükVaka=GünlükVaka)%>%mutate(Gün=1:length(GünlükVaka))%>%subset(Gün>=(length(GünlükVaka)-30))
hindistan<-who%>%subset(Country_code=="IN")%>%mutate(GünlükVaka=New_cases)%>%select(ülke=Country_code,GünlükVaka=GünlükVaka)%>%mutate(Gün=1:length(GünlükVaka))%>%subset(Gün>=(length(GünlükVaka)-30))
isveç<-who%>%subset(Country_code=="SE")%>%mutate(GünlükVaka=New_cases)%>%select(ülke=Country_code,GünlükVaka=GünlükVaka)%>%mutate(Gün=1:length(GünlükVaka))%>%subset(Gün>=(length(GünlükVaka)-30))
israil<-who%>%subset(Country_code=="IL")%>%mutate(GünlükVaka=New_cases)%>%select(ülke=Country_code,GünlükVaka=GünlükVaka)%>%mutate(Gün=1:length(GünlükVaka))%>%subset(Gün>=(length(GünlükVaka)-30))


data<-rbind(italya,fransa,almanya,amerika,türkiye,cin,kore,ingiltere,hindistan,isveç,israil)
data$ülke<-gsub("IT","İtalya",data$ülke)
data$ülke<-gsub("ES","İspanya",data$ülke)
data$ülke<-gsub("FR","Fransa",data$ülke)
data$ülke<-gsub("DE","Almanya",data$ülke)
data$ülke<-gsub("US","Amerika",data$ülke)
data$ülke<-gsub("TR","Türkiye",data$ülke)
data$ülke<-gsub("CN","Çin",data$ülke)
data$ülke<-gsub("KR","Güney Kore",data$ülke)
data$ülke<-gsub("GB","İngiltere",data$ülke)
data$ülke<-gsub("IN","Hindistan",data$ülke)
data$ülke<-gsub("SE","İsveç",data$ülke)
data$ülke<-gsub("IL","İsrail",data$ülke)
library(highcharter)

data %>% hchart(., type = "line", hcaes(x = Gün, y = GünlükVaka, group = ülke))%>%
  hc_title(text = " Bazı Ülkelerin Son 30 Gündeki Vaka-Hasta Sayıları")%>% hc_xAxis(text = "Gün")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", who$ï..Date_reported[length(who$ï..Date_reported)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = "Raporlanan Vakalar"),max=500000)%>%hc_add_theme(veripie_thm) 

```


### Bazı Ülkelerin Son 30 Gündeki Vefat Sayıları

```{r,echo=FALSE,warning=FALSE,message=FALSE}

italya<-who%>%subset(Country_code=="IT")%>%mutate(GünlükVefat=New_deaths)%>%select(ülke=Country_code,GünlükVefat=GünlükVefat)%>%mutate(Gün=1:length(GünlükVefat))%>%subset(Gün>=(length(GünlükVefat)-30))
ispanya<-who%>%subset(Country_code=="ES")%>%mutate(GünlükVefat=New_deaths)%>%select(ülke=Country_code,GünlükVefat=GünlükVefat)%>%mutate(Gün=1:length(GünlükVefat))%>%subset(Gün>=(length(GünlükVefat)-30))
fransa<-who%>%subset(Country_code=="FR")%>%mutate(GünlükVefat=New_deaths)%>%select(ülke=Country_code,GünlükVefat=GünlükVefat)%>%mutate(Gün=1:length(GünlükVefat))%>%subset(Gün>=(length(GünlükVefat)-30))
almanya<-who%>%subset(Country_code=="DE")%>%mutate(GünlükVefat=New_deaths)%>%select(ülke=Country_code,GünlükVefat=GünlükVefat)%>%mutate(Gün=1:length(GünlükVefat))%>%subset(Gün>=(length(GünlükVefat)-30))
amerika<-who%>%subset(Country_code=="US")%>%mutate(GünlükVefat=New_deaths)%>%select(ülke=Country_code,GünlükVefat=GünlükVefat)%>%mutate(Gün=1:length(GünlükVefat))%>%subset(Gün>=(length(GünlükVefat)-30))
türkiye<-who%>%subset(Country_code=="TR")%>%mutate(GünlükVefat=New_deaths)%>%select(ülke=Country_code,GünlükVefat=GünlükVefat)%>%mutate(Gün=1:length(GünlükVefat))%>%subset(Gün>=(length(GünlükVefat)-30))
cin<-who%>%subset(Country_code=="CN")%>%mutate(GünlükVefat=New_deaths)%>%select(ülke=Country_code,GünlükVefat=GünlükVefat)%>%mutate(Gün=1:length(GünlükVefat))%>%subset(Gün>=(length(GünlükVefat)-30))
kore<-who%>%subset(Country_code=="KR")%>%mutate(GünlükVefat=New_deaths)%>%select(ülke=Country_code,GünlükVefat=GünlükVefat)%>%mutate(Gün=1:length(GünlükVefat))%>%subset(Gün>=(length(GünlükVefat)-30))
ingiltere<-who%>%subset(Country_code=="GB")%>%mutate(GünlükVefat=New_deaths)%>%select(ülke=Country_code,GünlükVefat=GünlükVefat)%>%mutate(Gün=1:length(GünlükVefat))%>%subset(Gün>=(length(GünlükVefat)-30))
hindistan<-who%>%subset(Country_code=="IN")%>%mutate(GünlükVefat=New_deaths)%>%select(ülke=Country_code,GünlükVefat=GünlükVefat)%>%mutate(Gün=1:length(GünlükVefat))%>%subset(Gün>=(length(GünlükVefat)-30))
isveç<-who%>%subset(Country_code=="SE")%>%mutate(GünlükVefat=New_deaths)%>%select(ülke=Country_code,GünlükVefat=GünlükVefat)%>%mutate(Gün=1:length(GünlükVefat))%>%subset(Gün>=(length(GünlükVefat)-30))
israil<-who%>%subset(Country_code=="IL")%>%mutate(GünlükVefat=New_deaths)%>%select(ülke=Country_code,GünlükVefat=GünlükVefat)%>%mutate(Gün=1:length(GünlükVefat))%>%subset(Gün>=(length(GünlükVefat)-30))


data<-rbind(italya,fransa,almanya,amerika,türkiye,cin,kore,ingiltere,hindistan,isveç,israil)
data$ülke<-gsub("IT","İtalya",data$ülke)
data$ülke<-gsub("ES","İspanya",data$ülke)
data$ülke<-gsub("FR","Fransa",data$ülke)
data$ülke<-gsub("DE","Almanya",data$ülke)
data$ülke<-gsub("US","Amerika",data$ülke)
data$ülke<-gsub("TR","Türkiye",data$ülke)
data$ülke<-gsub("CN","Çin",data$ülke)
data$ülke<-gsub("KR","Güney Kore",data$ülke)
data$ülke<-gsub("GB","İngiltere",data$ülke)
data$ülke<-gsub("IN","Hindistan",data$ülke)
data$ülke<-gsub("SE","İsveç",data$ülke)
data$ülke<-gsub("IL","İsrail",data$ülke)
library(highcharter)

data %>% hchart(., type = "line", hcaes(x = Gün, y = GünlükVefat, group = ülke))%>%
  hc_title(text = " Bazı Ülkelerin Son 30 Gündeki Vefat Sayıları")%>% hc_xAxis(text = "Gün")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", who$ï..Date_reported[length(who$ï..Date_reported)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = "Raporlanan Ölümler"),max=4000)%>%hc_add_theme(veripie_thm) 
```


## . 


### Bazı Ülkelerin Son 30 Gündeki Ölüm Oranları

```{r,echo=FALSE,warning=FALSE,message=FALSE}
italya<-who%>%subset(Country_code=="IT")%>%select(ülke=Country_code,vaka=Cumulative_cases,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm),oran=round((100*ölüm)/vaka,2))%>%subset(Gün>=(length(oran)-30))
ispanya<-who%>%subset(Country_code=="ES")%>%select(ülke=Country_code,vaka=Cumulative_cases,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm),oran=round((100*ölüm)/vaka,2))%>%subset(Gün>=(length(oran)-30))
fransa<-who%>%subset(Country_code=="FR")%>%select(ülke=Country_code,vaka=Cumulative_cases,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm),oran=round((100*ölüm)/vaka,2))%>%subset(Gün>=(length(oran)-30))
almanya<-who%>%subset(Country_code=="DE")%>%select(ülke=Country_code,vaka=Cumulative_cases,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm),oran=round((100*ölüm)/vaka,2))%>%subset(Gün>=(length(oran)-30))
amerika<-who%>%subset(Country_code=="US")%>%select(ülke=Country_code,vaka=Cumulative_cases,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm),oran=round((100*ölüm)/vaka,2))%>%subset(Gün>=(length(oran)-30))
türkiye<-who%>%subset(Country_code=="TR")%>%select(ülke=Country_code,vaka=Cumulative_cases,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm),oran=round((100*ölüm)/vaka,2))%>%subset(Gün>=(length(oran)-30))
cin<-who%>%subset(Country_code=="CN")%>%select(ülke=Country_code,vaka=Cumulative_cases,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm),oran=round((100*ölüm)/vaka,2))%>%subset(Gün>=(length(oran)-30))
kore<-who%>%subset(Country_code=="KR")%>%select(ülke=Country_code,vaka=Cumulative_cases,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm),oran=round((100*ölüm)/vaka,2))%>%subset(Gün>=(length(oran)-30))
ingiltere<-who%>%subset(Country_code=="GB")%>%select(ülke=Country_code,vaka=Cumulative_cases,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm),oran=round((100*ölüm)/vaka,2))%>%subset(Gün>=(length(oran)-30))
hindistan<-who%>%subset(Country_code=="IN")%>%select(ülke=Country_code,vaka=Cumulative_cases,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm),oran=round((100*ölüm)/vaka,2))%>%subset(Gün>=(length(oran)-30))
isveç<-who%>%subset(Country_code=="SE")%>%select(ülke=Country_code,vaka=Cumulative_cases,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm),oran=round((100*ölüm)/vaka,2))%>%subset(Gün>=(length(oran)-30))
israil<-who%>%subset(Country_code=="IL")%>%select(ülke=Country_code,vaka=Cumulative_cases,ölüm=Cumulative_deaths)%>%mutate(Gün=1:length(ölüm),oran=round((100*ölüm)/vaka,2))%>%subset(Gün>=(length(oran)-30))


data<-rbind(italya,fransa,almanya,amerika,türkiye,cin,kore,ingiltere,hindistan,isveç,israil)
data$ülke<-gsub("IT","İtalya",data$ülke)
data$ülke<-gsub("ES","İspanya",data$ülke)
data$ülke<-gsub("FR","Fransa",data$ülke)
data$ülke<-gsub("DE","Almanya",data$ülke)
data$ülke<-gsub("US","Amerika",data$ülke)
data$ülke<-gsub("TR","Türkiye",data$ülke)
data$ülke<-gsub("CN","Çin",data$ülke)
data$ülke<-gsub("KR","Güney Kore",data$ülke)
data$ülke<-gsub("GB","İngiltere",data$ülke)
data$ülke<-gsub("IN","Hindistan",data$ülke)
data$ülke<-gsub("SE","İsveç",data$ülke)
data$ülke<-gsub("IL","İsrail",data$ülke)
library(highcharter)

data %>% hchart(., type = "line", hcaes(x = Gün, y = oran, group = ülke))%>%
  hc_title(text = " Bazı Ülkelerin Son 30 Gündeki Ölüm Oranları")%>% hc_xAxis(text = "Gün")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", who$ï..Date_reported[length(who$ï..Date_reported)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = "Raporlanan Ölümler"))%>%hc_add_theme(veripie_thm) 

```

### Ülkelerin Nüfuslarına Göre Pozitif Hasta Yüzdeleri

```{r,echo=FALSE,warning=FALSE,message=FALSE}

italya<-covid19_dta%>%subset(iso3c=="ITA")%>%select(ülke=iso3c,vaka=confirmed,nüfus=population)%>%mutate(Gün=1:length(vaka),pozitif=((100*vaka)/nüfus))
ispanya<-covid19_dta%>%subset(iso3c=="ESP")%>%select(ülke=iso3c,vaka=confirmed,nüfus=population)%>%mutate(Gün=1:length(vaka),pozitif=((100*vaka)/nüfus))
fransa<-covid19_dta%>%subset(iso3c=="FRA")%>%select(ülke=iso3c,vaka=confirmed,nüfus=population)%>%mutate(Gün=1:length(vaka),pozitif=((100*vaka)/nüfus))
almanya<-covid19_dta%>%subset(iso3c=="DEU")%>%select(ülke=iso3c,vaka=confirmed,nüfus=population)%>%mutate(Gün=1:length(vaka),pozitif=((100*vaka)/nüfus))
amerika<-covid19_dta%>%subset(iso3c=="USA")%>%select(ülke=iso3c,vaka=confirmed,nüfus=population)%>%mutate(Gün=1:length(vaka),pozitif=((100*vaka)/nüfus))
türkiye<-covid19_dta%>%subset(iso3c=="TUR")%>%select(ülke=iso3c,vaka=confirmed,nüfus=population)%>%mutate(Gün=1:length(vaka),pozitif=((100*vaka)/nüfus))
cin<-covid19_dta%>%subset(iso3c=="CHN")%>%select(ülke=iso3c,vaka=confirmed,nüfus=population)%>%mutate(Gün=1:length(vaka),pozitif=((100*vaka)/nüfus))
kore<-covid19_dta%>%subset(iso3c=="KOR")%>%select(ülke=iso3c,vaka=confirmed,nüfus=population)%>%mutate(Gün=1:length(vaka),pozitif=((100*vaka)/nüfus))
ingiltere<-covid19_dta%>%subset(iso3c=="GBR")%>%select(ülke=iso3c,vaka=confirmed,nüfus=population)%>%mutate(Gün=1:length(vaka),pozitif=((100*vaka)/nüfus))
hindistan<-covid19_dta%>%subset(iso3c=="IND")%>%select(ülke=iso3c,vaka=confirmed,nüfus=population)%>%mutate(Gün=1:length(vaka),pozitif=((100*vaka)/nüfus))
data<-rbind(italya,ispanya,fransa,almanya,amerika,türkiye,ingiltere,hindistan)
data$ülke<-gsub("ITA","İtalya",data$ülke)
data$ülke<-gsub("ESP","İspanya",data$ülke)
data$ülke<-gsub("FRA","Fransa",data$ülke)
data$ülke<-gsub("DEU","Almanya",data$ülke)
data$ülke<-gsub("USA","Amerika",data$ülke)
data$ülke<-gsub("TUR","Türkiye",data$ülke)
data$ülke<-gsub("CHN","Çin",data$ülke)
data$ülke<-gsub("KOR","Güney Kore",data$ülke)
data$ülke<-gsub("GBR","İngiltere",data$ülke)
data$ülke<-gsub("IND","Hindistan",data$ülke)
data %>% hchart(., type = "line", hcaes(x = Gün, y = pozitif, group = ülke))%>%
  hc_title(text = "ülkelerin Nüfuslarına Göre Pozitif Hasta Yüzdeleri")%>% hc_xAxis(text = "Gün")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", who$ï..Date_reported[length(who$ï..Date_reported)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
            style = list(fontSize = "10px"))%>%
 hc_yAxis(title = list(text = "Pozitif Hasta Oranı",labels = list(format = "{value}%")))%>%hc_add_theme(veripie_thm) 


```


## .


### Dünya'da Bazı Ülkelerin Son 7 Gündeki Vefat Sayıları

```{r,echo=FALSE,warning=FALSE,message=FALSE}
italya<-who%>%subset(Country_code=="IT")%>%select(ülke=Country_code,ölüm=New_deaths)%>%mutate(günlük=ölüm)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
ispanya<-who%>%subset(Country_code=="ES")%>%select(ülke=Country_code,ölüm=New_deaths)%>%mutate(günlük=ölüm)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
fransa<-who%>%subset(Country_code=="FR")%>%select(ülke=Country_code,ölüm=New_deaths)%>%mutate(günlük=ölüm)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
almanya<-who%>%subset(Country_code=="DE")%>%select(ülke=Country_code,ölüm=New_deaths)%>%mutate(günlük=ölüm)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
amerika<-who%>%subset(Country_code=="US")%>%select(ülke=Country_code,ölüm=New_deaths)%>%mutate(günlük=ölüm)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
türkiye<-who%>%subset(Country_code=="TR")%>%select(ülke=Country_code,ölüm=New_deaths)%>%mutate(günlük=ölüm)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
cin<-who%>%subset(Country_code=="CN")%>%select(ülke=Country_code,ölüm=New_deaths)%>%mutate(günlük=ölüm)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
kore<-who%>%subset(Country_code=="KR")%>%select(ülke=Country_code,ölüm=New_deaths)%>%mutate(günlük=ölüm)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
ingiltere<-who%>%subset(Country_code=="GB")%>%select(ülke=Country_code,ölüm=New_deaths)%>%mutate(günlük=ölüm)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
hindistan<-who%>%subset(Country_code=="IN")%>%select(ülke=Country_code,ölüm=New_deaths)%>%mutate(günlük=ölüm)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
isveç<-who%>%subset(Country_code=="SE")%>%select(ülke=Country_code,ölüm=New_deaths)%>%mutate(günlük=ölüm)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
israil<-who%>%subset(Country_code=="IL")%>%select(ülke=Country_code,ölüm=New_deaths)%>%mutate(günlük=ölüm)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))


data<-rbind(italya,ispanya,fransa,almanya,amerika,türkiye,ingiltere,hindistan,isveç,israil)
data$ülke<-gsub("ITA","İtalya",data$ülke)
data$ülke<-gsub("ESP","İspanya",data$ülke)
data$ülke<-gsub("FRA","Fransa",data$ülke)
data$ülke<-gsub("DEU","Almanya",data$ülke)
data$ülke<-gsub("USA","Amerika",data$ülke)
data$ülke<-gsub("TUR","Türkiye",data$ülke)
data$ülke<-gsub("CHN","Çin",data$ülke)
data$ülke<-gsub("KOR","Güney Kore",data$ülke)
data$ülke<-gsub("GBR","İngiltere",data$ülke)
data$ülke<-gsub("IND","Hindistan",data$ülke)
data$ülke<-gsub("SE","İsveç",data$ülke)
data$ülke<-gsub("IL","İsrail",data$ülke)
data %>% hchart(., type = "column", hcaes(x = ülke, y = Toplam),colorByPoint = TRUE)%>%
  hc_title(text = "Dünya'da Bazı Ülkelerin Son 7 Gündeki Vefat Sayıları")%>% hc_xAxis(text = "Ülke")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", who$ï..Date_reported[length(who$ï..Date_reported)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = "Raporlanan Vefat Sayısı"))%>%hc_add_theme(veripie_thm) 
```

### Dünya'da Bazı Ülkelerin Son 7 Gündeki Vaka Sayıları 

```{r,echo=FALSE,warning=FALSE,message=FALSE}
italya<-who%>%subset(Country_code=="IT")%>%select(ülke=Country_code,GünlükVaka=New_cases)%>%mutate(günlük=GünlükVaka)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
ispanya<-who%>%subset(Country_code=="ES")%>%select(ülke=Country_code,GünlükVaka=New_cases)%>%mutate(günlük=GünlükVaka)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
fransa<-who%>%subset(Country_code=="FR")%>%select(ülke=Country_code,GünlükVaka=New_cases)%>%mutate(günlük=GünlükVaka)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
almanya<-who%>%subset(Country_code=="DE")%>%select(ülke=Country_code,GünlükVaka=New_cases)%>%mutate(günlük=GünlükVaka)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
amerika<-who%>%subset(Country_code=="US")%>%select(ülke=Country_code,GünlükVaka=New_cases)%>%mutate(günlük=GünlükVaka)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
türkiye<-who%>%subset(Country_code=="TR")%>%select(ülke=Country_code,GünlükVaka=New_cases)%>%mutate(günlük=GünlükVaka)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
cin<-who%>%subset(Country_code=="CN")%>%select(ülke=Country_code,GünlükVaka=New_cases)%>%mutate(günlük=GünlükVaka)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
kore<-who%>%subset(Country_code=="KR")%>%select(ülke=Country_code,GünlükVaka=New_cases)%>%mutate(günlük=GünlükVaka)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
ingiltere<-who%>%subset(Country_code=="GB")%>%select(ülke=Country_code,GünlükVaka=New_cases)%>%mutate(günlük=GünlükVaka)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
hindistan<-who%>%subset(Country_code=="IN")%>%select(ülke=Country_code,GünlükVaka=New_cases)%>%mutate(günlük=GünlükVaka)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
isveç<-who%>%subset(Country_code=="SE")%>%select(ülke=Country_code,GünlükVaka=New_cases)%>%mutate(günlük=GünlükVaka)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))
israil<-who%>%subset(Country_code=="IL")%>%select(ülke=Country_code,GünlükVaka=New_cases)%>%mutate(günlük=GünlükVaka)%>%tail(8)%>%na.omit()%>%group_by(ülke)%>%summarise(Toplam=sum(günlük))


data<-rbind(italya,ispanya,fransa,almanya,amerika,türkiye,ingiltere,hindistan,isveç,israil)
data$ülke<-gsub("ITA","İtalya",data$ülke)
data$ülke<-gsub("ESP","İspanya",data$ülke)
data$ülke<-gsub("FRA","Fransa",data$ülke)
data$ülke<-gsub("DEU","Almanya",data$ülke)
data$ülke<-gsub("USA","Amerika",data$ülke)
data$ülke<-gsub("TUR","Türkiye",data$ülke)
data$ülke<-gsub("CHN","Çin",data$ülke)
data$ülke<-gsub("KOR","Güney Kore",data$ülke)
data$ülke<-gsub("GBR","İngiltere",data$ülke)
data$ülke<-gsub("IND","Hindistan",data$ülke)
data$ülke<-gsub("SE","İsveç",data$ülke)
data$ülke<-gsub("IL","İsrail",data$ülke)
data %>% hchart(., type = "column", hcaes(x = ülke, y = Toplam),colorByPoint = TRUE)%>%
  hc_title(text = "Dünya'da Bazı Ülkelerin Son 7 Gündeki Vaka Sayıları")%>% hc_xAxis(text = "Ülke")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", who$ï..Date_reported[length(who$ï..Date_reported)]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = "Raporlanan Vaka Sayısı"))%>%hc_add_theme(veripie_thm) 
```


## . 

### Apple Verilerine Göre Yaya Hareketliliği

```{r,echo=FALSE,warning=FALSE,message=FALSE}
italya<-covid19_dta%>%subset(iso3c=="ITA")%>%select(ülke=iso3c,YayaHareketliliği=apple_mtr_walking)%>%mutate(Gün=1:length(YayaHareketliliği))
ispanya<-covid19_dta%>%subset(iso3c=="ESP")%>%select(ülke=iso3c,YayaHareketliliği=apple_mtr_walking)%>%mutate(Gün=1:length(YayaHareketliliği))
fransa<-covid19_dta%>%subset(iso3c=="FRA")%>%select(ülke=iso3c,YayaHareketliliği=apple_mtr_walking)%>%mutate(Gün=1:length(YayaHareketliliği))
almanya<-covid19_dta%>%subset(iso3c=="DEU")%>%select(ülke=iso3c,YayaHareketliliği=apple_mtr_walking)%>%mutate(Gün=1:length(YayaHareketliliği))
amerika<-covid19_dta%>%subset(iso3c=="USA")%>%select(ülke=iso3c,YayaHareketliliği=apple_mtr_walking)%>%mutate(Gün=1:length(YayaHareketliliği))
türkiye<-covid19_dta%>%subset(iso3c=="TUR")%>%select(ülke=iso3c,YayaHareketliliği=apple_mtr_walking)%>%mutate(Gün=1:length(YayaHareketliliği))
cin<-covid19_dta%>%subset(iso3c=="CHN")%>%select(ülke=iso3c,YayaHareketliliği=apple_mtr_walking)%>%mutate(Gün=1:length(YayaHareketliliği))
kore<-covid19_dta%>%subset(iso3c=="KOR")%>%select(ülke=iso3c,YayaHareketliliği=apple_mtr_walking)%>%mutate(Gün=1:length(YayaHareketliliği))
ingiltere<-covid19_dta%>%subset(iso3c=="GBR")%>%select(ülke=iso3c,YayaHareketliliği=apple_mtr_walking)%>%mutate(Gün=1:length(YayaHareketliliği))
hindistan<-covid19_dta%>%subset(iso3c=="IND")%>%select(ülke=iso3c,YayaHareketliliği=apple_mtr_walking)%>%mutate(Gün=1:length(YayaHareketliliği))
data<-rbind(italya,ispanya,fransa,almanya,amerika,türkiye,cin,kore,ingiltere,hindistan)
data$ülke<-gsub("ITA","İtalya",data$ülke)
data$ülke<-gsub("ESP","İspanya",data$ülke)
data$ülke<-gsub("FRA","Fransa",data$ülke)
data$ülke<-gsub("DEU","Almanya",data$ülke)
data$ülke<-gsub("USA","Amerika",data$ülke)
data$ülke<-gsub("TUR","Türkiye",data$ülke)
data$ülke<-gsub("CHN","Çin",data$ülke)
data$ülke<-gsub("KOR","Güney Kore",data$ülke)
data$ülke<-gsub("GBR","İngiltere",data$ülke)
data$ülke<-gsub("IND","Hindistan",data$ülke)
library(highcharter)

data %>% hchart(., type = "line", hcaes(x = Gün, y = YayaHareketliliği, group = ülke))%>%
  hc_title(text = "Apple Verilerine Göre Yaya Hareketliliği")%>% hc_xAxis(text = "Gün")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", t$date[1]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = "Hareketlilik Oranı"))%>%hc_add_theme(veripie_thm) 

```


### Apple Verilerine Göre Araç Hareketliliği

```{r,echo=FALSE,warning=FALSE,message=FALSE}

italya<-covid19_dta%>%subset(iso3c=="ITA")%>%select(ülke=iso3c,AracHareketliliği=apple_mtr_driving)%>%mutate(Gün=1:length(AracHareketliliği))
ispanya<-covid19_dta%>%subset(iso3c=="ESP")%>%select(ülke=iso3c,AracHareketliliği=apple_mtr_driving)%>%mutate(Gün=1:length(AracHareketliliği))
fransa<-covid19_dta%>%subset(iso3c=="FRA")%>%select(ülke=iso3c,AracHareketliliği=apple_mtr_driving)%>%mutate(Gün=1:length(AracHareketliliği))
almanya<-covid19_dta%>%subset(iso3c=="DEU")%>%select(ülke=iso3c,AracHareketliliği=apple_mtr_driving)%>%mutate(Gün=1:length(AracHareketliliği))
amerika<-covid19_dta%>%subset(iso3c=="USA")%>%select(ülke=iso3c,AracHareketliliği=apple_mtr_driving)%>%mutate(Gün=1:length(AracHareketliliği))
türkiye<-covid19_dta%>%subset(iso3c=="TUR")%>%select(ülke=iso3c,AracHareketliliği=apple_mtr_driving)%>%mutate(Gün=1:length(AracHareketliliği))
cin<-covid19_dta%>%subset(iso3c=="CHN")%>%select(ülke=iso3c,AracHareketliliği=apple_mtr_driving)%>%mutate(Gün=1:length(AracHareketliliği))
kore<-covid19_dta%>%subset(iso3c=="KOR")%>%select(ülke=iso3c,AracHareketliliği=apple_mtr_driving)%>%mutate(Gün=1:length(AracHareketliliği))
ingiltere<-covid19_dta%>%subset(iso3c=="GBR")%>%select(ülke=iso3c,AracHareketliliği=apple_mtr_driving)%>%mutate(Gün=1:length(AracHareketliliği))
hindistan<-covid19_dta%>%subset(iso3c=="IND")%>%select(ülke=iso3c,AracHareketliliği=apple_mtr_driving)%>%mutate(Gün=1:length(AracHareketliliği))
data<-rbind(italya,ispanya,fransa,almanya,amerika,türkiye,cin,kore,ingiltere,hindistan)
data$ülke<-gsub("ITA","İtalya",data$ülke)
data$ülke<-gsub("ESP","İspanya",data$ülke)
data$ülke<-gsub("FRA","Fransa",data$ülke)
data$ülke<-gsub("DEU","Almanya",data$ülke)
data$ülke<-gsub("USA","Amerika",data$ülke)
data$ülke<-gsub("TUR","Türkiye",data$ülke)
data$ülke<-gsub("CHN","Çin",data$ülke)
data$ülke<-gsub("KOR","Güney Kore",data$ülke)
data$ülke<-gsub("GBR","İngiltere",data$ülke)
data$ülke<-gsub("IND","Hindistan",data$ülke)
library(highcharter)

data %>% hchart(., type = "line", hcaes(x = Gün, y = AracHareketliliği, group = ülke))%>%
  hc_title(text = "Apple Verilerine Göre Araç Hareketliliği")%>% hc_xAxis(text = "Gün")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", t$date[1]))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = "Hareketlilik Oranı"))%>%hc_add_theme(veripie_thm)
```

Aşılama {data-navmenu="Aşı"}
=======================================================================

## . 

### Her 100 Kişiye Yapılan Aşı Sayısı

```{r,echo=FALSE,warning=FALSE,message=FALSE}
library (readr)
library(highcharter)
library(tidyverse)
urlfile="https://raw.githubusercontent.com/owid/covid-19-data/master/public/data/vaccinations/vaccinations.csv"
mydata<-read_csv(url(urlfile))
İsrail<-mydata%>%subset(location=="Israel")%>%select(Tarih=date,AşıOranı=total_vaccinations_per_hundred,Ülke=location)
İngiltere<-mydata%>%subset(location=="United Kingdom")%>%select(Tarih=date,AşıOranı=total_vaccinations_per_hundred,Ülke=location)
Amerika<-mydata%>%subset(location=="United States")%>%select(Tarih=date,AşıOranı=total_vaccinations_per_hundred,Ülke=location)
İspanya<-mydata%>%subset(location=="Spain")%>%select(Tarih=date,AşıOranı=total_vaccinations_per_hundred,Ülke=location)
İtalya<-mydata%>%subset(location=="Italy")%>%select(Tarih=date,AşıOranı=total_vaccinations_per_hundred,Ülke=location)
Almanya<-mydata%>%subset(location=="Germany")%>%select(Tarih=date,AşıOranı=total_vaccinations_per_hundred,Ülke=location)
Belçika<-mydata%>%subset(location=="Belgium")%>%select(Tarih=date,AşıOranı=total_vaccinations_per_hundred,Ülke=location)
Fransa<-mydata%>%subset(location=="France")%>%select(Tarih=date,AşıOranı=total_vaccinations_per_hundred,Ülke=location)
Kanada<-mydata%>%subset(location=="Canada")%>%select(Tarih=date,AşıOranı=total_vaccinations_per_hundred,Ülke=location)
Hollanda<-mydata%>%subset(location=="Netherlands")%>%select(Tarih=date,AşıOranı=total_vaccinations_per_hundred,Ülke=location)
Brezilya<-mydata%>%subset(location=="Brazil")%>%select(Tarih=date,AşıOranı=total_vaccinations_per_hundred,Ülke=location)
Hindistan<-mydata%>%subset(location=="India")%>%select(Tarih=date,AşıOranı=total_vaccinations_per_hundred,Ülke=location)
Türkiye<-mydata%>%subset(location=="Turkey")%>%select(Tarih=date,AşıOranı=total_vaccinations_per_hundred,Ülke=location)


data<-rbind(İsrail,İngiltere,Amerika,İspanya,İtalya,Almanya,Belçika,Fransa,Kanada,Hollanda,Brezilya,Hindistan,Türkiye)
data$Ülke<-gsub("Israel","İsrail",data$Ülke)
data$Ülke<-gsub("Spain","İspanya",data$Ülke)
data$Ülke<-gsub("France","Fransa",data$Ülke)
data$Ülke<-gsub("Germany","Almanya",data$Ülke)
data$Ülke<-gsub("United States","Amerika",data$Ülke)
data$Ülke<-gsub("Turkey","Türkiye",data$Ülke)
data$Ülke<-gsub("Belgium","Belçika",data$Ülke)
data$Ülke<-gsub("Canada","Kanada",data$Ülke)
data$Ülke<-gsub("United Kingdom","İngiltere",data$Ülke)
data$Ülke<-gsub("India","Hindistan",data$Ülke)
data$Ülke<-gsub("Netherlands","Hollanda",data$Ülke)
data$Ülke<-gsub("Italy","İtalya",data$Ülke)
data$Ülke<-gsub("Brazil","Brezilya",data$Ülke)

data1<-na.omit(data)
data1 %>% hchart(., type = "line", hcaes(x = Tarih, y = AşıOranı, group = Ülke))%>%
  hc_title(text = "Bazı Ülkelerin Her 100 Kişide Aşılama Oranı")%>% hc_xAxis(text = "Ülke")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", max(data$Tarih)))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = "Her 100 Kişiye Yapılan Aşı Sayısı"))%>%hc_add_theme(veripie_thm) 
```

### Dünya'da Bazı Ülkelerin Toplam Aşılama Sayısı

```{r,echo=F}


İsrail<-mydata%>%subset(location=="Israel")%>%select(total_vaccinations,location)%>%mutate(ToplamAşı=max(total_vaccinations,na.rm=T),Ülke=location)%>%select(ToplamAşı,Ülke)%>%head(1)
İngiltere<-mydata%>%subset(location=="United Kingdom")%>%select(total_vaccinations,location)%>%mutate(ToplamAşı=max(total_vaccinations,na.rm=T),Ülke=location)%>%select(ToplamAşı,Ülke)%>%head(1)
Amerika<-mydata%>%subset(location=="United States")%>%select(total_vaccinations,location)%>%mutate(ToplamAşı=max(total_vaccinations,na.rm=T),Ülke=location)%>%select(ToplamAşı,Ülke)%>%head(1)
İspanya<-mydata%>%subset(location=="Spain")%>%select(total_vaccinations,location)%>%mutate(ToplamAşı=max(total_vaccinations,na.rm=T),Ülke=location)%>%select(ToplamAşı,Ülke)%>%head(1)
İtalya<-mydata%>%subset(location=="Italy")%>%select(total_vaccinations,location)%>%mutate(ToplamAşı=max(total_vaccinations,na.rm=T),Ülke=location)%>%select(ToplamAşı,Ülke)%>%head(1)
Almanya<-mydata%>%subset(location=="Germany")%>%select(total_vaccinations,location)%>%mutate(ToplamAşı=max(total_vaccinations,na.rm=T),Ülke=location)%>%select(ToplamAşı,Ülke)%>%head(1)
Belçika<-mydata%>%subset(location=="Belgium")%>%select(total_vaccinations,location)%>%mutate(ToplamAşı=max(total_vaccinations,na.rm=T),Ülke=location)%>%select(ToplamAşı,Ülke)%>%head(1)
Fransa<-mydata%>%subset(location=="France")%>%select(total_vaccinations,location)%>%mutate(ToplamAşı=max(total_vaccinations,na.rm=T),Ülke=location)%>%select(ToplamAşı,Ülke)%>%head(1)
Kanada<-mydata%>%subset(location=="Canada")%>%select(total_vaccinations,location)%>%mutate(ToplamAşı=max(total_vaccinations,na.rm=T),Ülke=location)%>%select(ToplamAşı,Ülke)%>%head(1)
Hollanda<-mydata%>%subset(location=="Netherlands")%>%select(total_vaccinations,location)%>%mutate(ToplamAşı=max(total_vaccinations,na.rm=T),Ülke=location)%>%select(ToplamAşı,Ülke)%>%head(1)
Brezilya<-mydata%>%subset(location=="Brazil")%>%select(total_vaccinations,location)%>%mutate(ToplamAşı=max(total_vaccinations,na.rm=T),Ülke=location)%>%select(ToplamAşı,Ülke)%>%head(1)
Hindistan<-mydata%>%subset(location=="India")%>%select(total_vaccinations,location)%>%mutate(ToplamAşı=max(total_vaccinations,na.rm=T),Ülke=location)%>%select(ToplamAşı,Ülke)%>%head(1)
Türkiye<-mydata%>%subset(location=="Turkey")%>%select(total_vaccinations,location)%>%mutate(ToplamAşı=max(total_vaccinations,na.rm=T),Ülke=location)%>%select(ToplamAşı,Ülke)%>%head(1)


data<-rbind(İsrail,İngiltere,Amerika,İspanya,İtalya,Almanya,Belçika,Fransa,Kanada,Hollanda,Brezilya,Hindistan,Türkiye)
data$Ülke<-gsub("Israel","İsrail",data$Ülke)
data$Ülke<-gsub("Spain","İspanya",data$Ülke)
data$Ülke<-gsub("France","Fransa",data$Ülke)
data$Ülke<-gsub("Germany","Almanya",data$Ülke)
data$Ülke<-gsub("United States","Amerika",data$Ülke)
data$Ülke<-gsub("Turkey","Türkiye",data$Ülke)
data$Ülke<-gsub("Belgium","Belçika",data$Ülke)
data$Ülke<-gsub("Canada","Kanada",data$Ülke)
data$Ülke<-gsub("United Kingdom","İngiltere",data$Ülke)
data$Ülke<-gsub("India","Hindistan",data$Ülke)
data$Ülke<-gsub("Netherlands","Hollanda",data$Ülke)
data$Ülke<-gsub("Italy","İtalya",data$Ülke)
data$Ülke<-gsub("Brazil","Brezilya",data$Ülke)


data %>% hchart(., type = "column", hcaes(x = Ülke, y = ToplamAşı),colorByPoint = TRUE)%>%
  hc_title(text = "Dünya'da Bazı Ülkelerin Toplam Aşılama Sayısı")%>% hc_xAxis(text = "Ülke")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", max(mydata$date)))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%hc_yAxis(title = list(text = "Toplam Aşı Sayısı"))%>%hc_add_theme(veripie_thm) 

```

##  .

### Türkiye Günlük Aşılama Sayısı

```{r,echo=F}

Türkiye<-mydata%>%subset(location=="Turkey")

Türkiye %>% hchart(., type = "column", hcaes(x = factor(date ), y = daily_vaccinations_raw),colorByPoint = TRUE)%>%
  hc_title(text = "Türkiye Günlük Aşılama Sayısı")%>% hc_xAxis(text = "Tarih")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", max(mydata$date)))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%hc_yAxis(title = list(text = "Toplam Aşı Sayısı"))%>%hc_add_theme(veripie_thm) 

```

### Türkiye Toplam Aşı Sayısı

```{r,echo=F}

Türkiye %>% hchart(., type = "line", hcaes(x = date, y = total_vaccinations))%>%
  hc_title(text = "Türkiye Toplam Aşı Sayısı")%>% hc_xAxis(text = "Tarih")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", max(mydata$date)))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%hc_yAxis(title = list(text = "Toplam Aşı Sayısı"))%>%hc_add_theme(veripie_thm) 

```

## . 

### Bazı Ülkelerin Günlük Aşılama Miktarı

```{r,echo=F}
İsrail<-mydata%>%subset(location=="Israel")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_raw,Ülke=location)
İngiltere<-mydata%>%subset(location=="United Kingdom")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_raw,Ülke=location)
Amerika<-mydata%>%subset(location=="United States")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_raw,Ülke=location)
İspanya<-mydata%>%subset(location=="Spain")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_raw,Ülke=location)
İtalya<-mydata%>%subset(location=="Italy")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_raw,Ülke=location)
Almanya<-mydata%>%subset(location=="Germany")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_raw,Ülke=location)
Belçika<-mydata%>%subset(location=="Belgium")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_raw,Ülke=location)
Fransa<-mydata%>%subset(location=="France")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_raw,Ülke=location)
Kanada<-mydata%>%subset(location=="Canada")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_raw,Ülke=location)
Hollanda<-mydata%>%subset(location=="Netherlands")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_raw,Ülke=location)
Brezilya<-mydata%>%subset(location=="Brazil")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_raw,Ülke=location)
Hindistan<-mydata%>%subset(location=="India")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_raw,Ülke=location)
Türkiye<-mydata%>%subset(location=="Turkey")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_raw,Ülke=location)


data<-rbind(İsrail,İngiltere,Amerika,İspanya,İtalya,Almanya,Belçika,Fransa,Kanada,Hollanda,Brezilya,Hindistan,Türkiye)
data$Ülke<-gsub("Israel","İsrail",data$Ülke)
data$Ülke<-gsub("Spain","İspanya",data$Ülke)
data$Ülke<-gsub("France","Fransa",data$Ülke)
data$Ülke<-gsub("Germany","Almanya",data$Ülke)
data$Ülke<-gsub("United States","Amerika",data$Ülke)
data$Ülke<-gsub("Turkey","Türkiye",data$Ülke)
data$Ülke<-gsub("Belgium","Belçika",data$Ülke)
data$Ülke<-gsub("Canada","Kanada",data$Ülke)
data$Ülke<-gsub("United Kingdom","İngiltere",data$Ülke)
data$Ülke<-gsub("India","Hindistan",data$Ülke)
data$Ülke<-gsub("Netherlands","Hollanda",data$Ülke)
data$Ülke<-gsub("Italy","İtalya",data$Ülke)
data$Ülke<-gsub("Brazil","Brezilya",data$Ülke)

data1<-na.omit(data)
data1 %>% hchart(., type = "line", hcaes(x = Tarih, y = AşıSayısı, group = Ülke))%>%
  hc_title(text = "Bazı Ülkelerin Günlük Aşılama Miktarı")%>% hc_xAxis(text = "Tarih")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", max(data$Tarih)))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = "Aşı Sayısı"))%>%hc_add_theme(veripie_thm) 
```


### Bazı Ülkelerin Her 1 Milyon'daki Günlük Aşılama Miktarı

```{r,echo=F}
İsrail<-mydata%>%subset(location=="Israel")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_per_million,Ülke=location)
İngiltere<-mydata%>%subset(location=="United Kingdom")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_per_million,Ülke=location)
Amerika<-mydata%>%subset(location=="United States")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_per_million,Ülke=location)
İspanya<-mydata%>%subset(location=="Spain")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_per_million,Ülke=location)
İtalya<-mydata%>%subset(location=="Italy")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_per_million,Ülke=location)
Almanya<-mydata%>%subset(location=="Germany")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_per_million,Ülke=location)
Belçika<-mydata%>%subset(location=="Belgium")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_per_million,Ülke=location)
Fransa<-mydata%>%subset(location=="France")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_per_million,Ülke=location)
Kanada<-mydata%>%subset(location=="Canada")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_per_million,Ülke=location)
Hollanda<-mydata%>%subset(location=="Netherlands")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_per_million,Ülke=location)
Brezilya<-mydata%>%subset(location=="Brazil")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_per_million,Ülke=location)
Hindistan<-mydata%>%subset(location=="India")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_per_million,Ülke=location)
Türkiye<-mydata%>%subset(location=="Turkey")%>%select(Tarih=date,AşıSayısı=daily_vaccinations_per_million,Ülke=location)


data<-rbind(İsrail,İngiltere,Amerika,İspanya,İtalya,Almanya,Belçika,Fransa,Kanada,Hollanda,Brezilya,Hindistan,Türkiye)
data$Ülke<-gsub("Israel","İsrail",data$Ülke)
data$Ülke<-gsub("Spain","İspanya",data$Ülke)
data$Ülke<-gsub("France","Fransa",data$Ülke)
data$Ülke<-gsub("Germany","Almanya",data$Ülke)
data$Ülke<-gsub("United States","Amerika",data$Ülke)
data$Ülke<-gsub("Turkey","Türkiye",data$Ülke)
data$Ülke<-gsub("Belgium","Belçika",data$Ülke)
data$Ülke<-gsub("Canada","Kanada",data$Ülke)
data$Ülke<-gsub("United Kingdom","İngiltere",data$Ülke)
data$Ülke<-gsub("India","Hindistan",data$Ülke)
data$Ülke<-gsub("Netherlands","Hollanda",data$Ülke)
data$Ülke<-gsub("Italy","İtalya",data$Ülke)
data$Ülke<-gsub("Brazil","Brezilya",data$Ülke)

data1<-na.omit(data)
data1 %>% hchart(., type = "line", hcaes(x = Tarih, y = AşıSayısı, group = Ülke))%>%
  hc_title(text = "Bazı Ülkelerin Her 1 Milyon'daki Günlük Aşılama Miktarı")%>% hc_xAxis(text = "Tarih")%>%
  hc_subtitle(text = paste0("Son Veri Tarihi: ", max(data$Tarih)))  %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
             href = "http://users.metu.edu.tr/ozancan/",
             style = list(fontSize = "10px"))%>%
  hc_yAxis(title = list(text = "Aşı Sayısı"))%>%hc_add_theme(veripie_thm) 
```



Türkiye Sağlık Kapasitesi {data-navmenu="Sağlık Kapasitesi-Tedbir"}
=======================================================================

### Türkiye'nin Toplam Sağlık Personeli

```{r,echo=FALSE}
Görev<-c("Doktor","Hemsire","Diger")
Sayı<-c(165363,204969,691303)
oz<-data.frame(Görev,Sayı)
oz%>% 
hchart('column', hcaes(x = 'Görev', y = 'Sayı'),colorByPoint = TRUE)%>%
hc_title(text = "Türkiye'nin Toplam Sağlık Personeli ")%>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px"))%>%
hc_yAxis(text="Sayı") %>%hc_add_theme(veripie_thm)

```

**Sağlık Bakanlığı Basın Açıklaması Baz Alınmıştır. (10.04.2020)**

### 100 Bin Kişi Başına Düşen Türkiye'nin Toplam Sağlık Personeli 

```{r,echo=FALSE}
Görev<-c("Doktor","Hemsire","Diger")
Sayı<-c(round(((165363*100000)/83154997),4),round(((204969*100000)/83154997),4),round(((691303*100000)/83154997),4))
oz<-data.frame(Görev,Sayı)
oz%>% 
hchart('column', hcaes(x = 'Görev', y = 'Sayı'),colorByPoint = TRUE)%>%
hc_title(text = "100 Bin Kişi Başına Düşen Türkiye'nin Toplam Sağlık Personeli ")%>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px"))%>%
hc_yAxis(text="Sayı") %>%hc_add_theme(veripie_thm)

```

**Sağlık Bakanlığı Basın Açıklaması Baz Alınmıştır. (10.04.2020)**

### Türkiye'de Sektör Basina Hastane Yatak Sayisi (2002-2018)

```{r,echo=FALSE,warning=FALSE,message=FALSE}
### Libraries ###
library(sqldf)
library(dplyr)
library(stringr)
library(tidyr)
library(highcharter)
library(ggplot2)
library(tidyverse)
header.true <- function(df) {
  names(df) <- as.character(unlist(df[1,]))
  df[-1,]
}

################# HASTANE YATAK SAYISI ############################

### DATA SETUP ###
yatakli <- read.csv("yatak.csv",header=F)
yatakli2 <- as.data.frame(t(yatakli))
yatakli2 <- header.true(yatakli2)
row.names(yatakli2) <- yatakli2$year
yatakli3 <- yatakli2 %>% gather(HastaneTipi, Sayi, names(yatakli2)[-1])
yatakli3$Sayi <- as.numeric(yatakli3$Sayi)

yatakli4 <-yatakli3%>%subset(HastaneTipi!="Toplam")
yatakli5 <-yatakli3%>%subset(HastaneTipi=="Toplam")


yatakli4 %>% 
  hchart(., type = "column", hcaes(x = Yil, y = Sayi, group = HastaneTipi)) %>%
  hc_xAxis(categories = yatakli4$Yil) %>% 
  hc_title(text = "Türkiye'de Sektör Basina Hastane Yatak Sayisi (2002-2018)") %>%
   hc_credits(enabled = TRUE, text = "Hazirlayan: Bezer, D., Ateş, C., Sarı, L., Aydın, İ., Tunç, E., Çınar, M",
             href = "http://users.metu.edu.tr/ozancan/corona_ilil.html",
             style = list(fontSize = "10px"))%>%
  hc_add_series(type="line",name="Toplam",data=yatakli5$Sayi)%>%hc_add_theme(veripie_thm)
```



## Türkiye'de Yıllara Göre Saglık Harcamasi (1999-2018)

```{r,echo=FALSE,warning=FALSE,message=FALSE}

######################## YILLARA GÖRE SAGLIK HARCAMASI

### DATA SETUP ###

harcama <- read.csv("harcama.csv",header=F)
harcama2 <- t(head(harcama))
harcama2 %>% write.csv(.,"harcama2.csv")
harcama3 <- read.csv("harcama2.csv",header=T,skip=1)
harcama3$`Saglik Harcamasi(Milyon TL)` <- harcama3$Toplamsaglikharcama.MilyonTL.


harcama3 %>% 
  hchart(., type="line",hcaes(x=Yil,y=`Saglik Harcamasi(Milyon TL)`)) %>% 
  hc_title(text = "Türkiye'de Yıllara Göre Saglık Harcamasi (1999-2018)") %>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Bezer, D., Ateş, C., Sarı, L., Aydın, İ., Tunç, E., Çınar, M",
             href = "http://users.metu.edu.tr/ozancan/corona_ilil.html",
             style = list(fontSize = "10px")) %>% 
  hc_xAxis(categories = harcama3$Yil)%>%hc_add_theme(veripie_thm)

```



Alınan Önlemlerin Etkisi {data-navmenu="Sağlık Kapasitesi-Tedbir"}
=======================================================================


```{r,echo=FALSE,warning=FALSE,message=FALSE}
### Türkiye Hareket Grafiği
apple<-read.csv("apple.csv",header=T,sep=",")
apple_turkey<-apple%>%subset(region=="Turkey")
AraçYoğunluğu<-(as.numeric((apple_turkey[1,])[-c(1,2,3)])-100)
YayaYoğunluğu<-(as.numeric((apple_turkey[2,])[-c(1,2,3)])-100)
colnames(apple_turkey)[-c(1,2,3)]<-gsub("X2020","2020",colnames(apple_turkey)[-c(1,2,3)])
Tarih<-colnames(apple_turkey)[-c(1,2,3)]
apple_turkey11<-data.frame(AraçYoğunluğu,YayaYoğunluğu,Tarih)
apple_turkey111<-apple_turkey11%>%gather(Kategori,Yoğunluk,names(apple_turkey11)[-3])
apple_turkey111%>% 
  hchart(.,type='line',hcaes(x=Tarih,y=Yoğunluk,group=Kategori)) %>% 
  hc_yAxis(
    title = list(text = "Türkiye Hareketlilik Yüzdesi"),
    labels = list(format = "{value}%")) %>% 
  hc_title(text='Türkiye Hareketlilik Yüzdesi') %>% 
 hc_credits(enabled = TRUE, text = "Hazirlayan: Bezer, D., Ateş, C., Sarı, L., Aydın, İ., Tunç, E., Çınar, M.",
             href = "http://users.metu.edu.tr/ozancan/corona_ilil.html",
            style = list(fontSize = "10px"))%>%hc_add_theme(veripie_thm)
```

**Kaynak: Apple**

### Türkiye Nüfusunun Yaşlara Göre Dağılımı

```{r,echo=F,warning=FALSE,message=FALSE}
library(ggplot2)
library(highcharter)
library(ggplot2)
Yaş<-c("0-19","20-64","65+")
Oran<-c(30.72,60.20,09.08)
n<-data.frame(Yaş,Oran)
colnames(n)[1]="Yaş"
n%>% 
hchart('column', hcaes(x = 'Yaş', y = 'Oran'),colorByPoint = TRUE)%>%
hc_title(text = "Türkiye Nüfusunun Yaşlara Göre Dağılımı")%>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px"))%>%
  hc_yAxis(
    title = list(text = "Yüzdelik"),
    labels = list(format = "{value}%")
  )  %>%hc_add_theme(veripie_thm)


```
**Kaynak: TüİK**

### 20 yaş altı ve 65 Yaş üstü Sokağa Çıkma Yasaklarının Nüfusa Etkisi

```{r,echo=F,warning=FALSE,message=FALSE}
library(stringr)
library(ggplot2)
library(highcharter)
Durum<-c("Yasaklı Olmayan","Yasaklı")
Oran<-c(60.20,39.80)
n1<-data.frame(Durum,Oran)
n1%>% 
hchart('column', hcaes(x = 'Durum', y = 'Oran'),colorByPoint = TRUE)%>%
hc_title(text = "Yasakların Nüfusa Etkisi")%>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px"))%>%
  hc_yAxis(
    title = list(text = "Yüzdelik"),
    labels = list(format = "{value}%")
  )%>%hc_add_theme(veripie_thm)


```


### Yasaktan En Çok Etkilenen İller ve Yasaktan Etkilenen Nüfusun İl Nüfusu İçindeki Payları

```{r,echo=F,warning=FALSE,message=FALSE}
library(ggplot2)
library(highcharter)
library(stringr)
Sehir<-c("Şanlıurfa","Ağrı","Şırnak","Muş","Siirt","Mardin","Batman","Van","Bitlis","Diyarbakır","Gaziantep","Iğdır","Adıyaman","Kilis","Kahramanmaraş")
Etkilenen_Nüfus_Oranı<-c(53.68,51.17,51.14,51.04,50.49,49.75,49.37,49.06,48.6,47.88,46.82,46.13,45.98,45.82,45.03)
data<-data.frame(Sehir,Etkilenen_Nüfus_Oranı)
colnames(data)[2]<-"Oran"
data%>% 
hchart('bar', hcaes(x = 'Sehir', y = 'Oran'),colorByPoint = TRUE)%>%
hc_title(text = "Yasaktan En Çok Etkilenen İller ve Yasaktan Etkilenen Nüfusun İl Nüfusu İçindeki Payları")%>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px"))%>%
  hc_yAxis(
    title = list(text = "Yüzdelik"),
    labels = list(format = "{value}%")
  ) %>%hc_add_theme(veripie_thm) 



```


## Yasaktan En Az Etkilenen İller ve Yasaktan Etkilenmeyen Nüfusun İl Nüfusu İçindeki Payları


```{r,echo=F,warning=FALSE,message=FALSE}

Sehir<-c("Tunceli","Kırklareli","Edirne","İstanbul","Eskişehir","İzmir","Muğla","Tekirdağ","Ankara","Antalya","Çanakkale","Zonguldak","Bilecik","Karabük","Bursa","Kütahya","Günmüşhane","Kocaeli","Denizli","Rize","Bartın","Balıkesir","Uşak")
Oran<-c(66.25,64.77,64.38,64.36,64.14,63.89,63.59,63.53,63.41,63.18,62.92,62.91,62.75,62.69,62.43,62.42,62.23,62.19,62.01,61.99,61.94,61.91,61.87)
data1<-data.frame(Sehir,Oran)
data1%>% 
hchart('bar', hcaes(x = 'Sehir', y = 'Oran'),colorByPoint = TRUE)%>%
hc_title(text = "Yasaktan En Az Etkilenen İller ve Yasaktan Etkilenmeyen Nüfusun İl Nüfusu İçindeki Payları")%>%
  hc_credits(enabled = TRUE, text = "Hazirlayan: Ozancan Ozdemir",
    href = "http://users.metu.edu.tr/ozancan/",
    style = list(fontSize = "10px"))%>%
  hc_yAxis(
    title = list(text = "Yüzdelik"),
    labels = list(format = "{value}%")
  )  %>%hc_add_theme(veripie_thm)


```

Detaylar ve SSS
=======================================================================

**Soru:** _Vaka ve Ölüm Katlanma Süreleri Nedir?_

Vaka ve ölüm katlanma süreleri mevcut vaka ve ölüm sayısının iki katına kaç Günnde ulaşacağını gösterir. Bu süre artarsa, salgının hızı azalmış, azalırsa salgının hızı artmış demektir.

**Soru:** _Günlük ve Haftalık Büyüme Faktörü Nedir?_


Büyüme faktörü Güncel vaka sayısının bir gün önceki vaka sayısına olan oranıdır. Haftalık büyüme faktörü ise mevcut Günn dahil bir haftalık süreçteki ortalama büyüme faktörü sayısıdır ve Günlük büyüme faktörüne göre salgının hızını daha iyi gösteren bir metriktir. Büyüme faktörünün 1'den fazla olması salgının hızlı olduğunu, 1'den az olması ise salgının yavaşladığını gösterir. 

**Soru:** _Tahmini Zatürre, Yoğun Bakım ve Entübe Hasta Sayıları Nasıl Hesaplanıyor?_

Tahmini Zatürre Hastası  bakanlığın verilerinden hesaplanan aktif hasta sayısı ile hastalardaki zatürre oranı değerlerinin birbiri ile çarpılması sonucu elde ediliyor. Öte yandan tahmini yoğun bakım ve entübe hastaları sayıları ise  Sağlık Bakanlığı'nın yapmış olduğu basın açıklamalarında (belirttiği)[https://www.trthaber.com/haber/saglik/koronavirus-belirtileri-neler-koronavirusten-corona-virusu-korunma-yontemleri-469621.html] erişkin yoğun bakım hasta ve ventilatör sayılarının yine erişkin yoğun bakım ve ventilatör doluluk oranlarının çarpılmasıyla elde ediliyor.  
```{r,include=F}
### Günlük Test Sayısı ve Günlük Vaka Arasındaki İlişki
#cor(data$Test_Sayısı,data$Günlük_Vaka)
```


```{r,include=FALSE}
#‼model1<-lm(Günlük_Vaka~Test_Sayısı,data=data)
#‼summary(model1)
#Günlük test sayısı ile Günlük vaka sayısı değişkenlerinin Pearson Korelasyon Katsayısı #$0.9576$ çıktı. Bu sayı bu iki değişken arasında kuvvetli ve pozitif yönde lineer bir #ilişki olduğunu gösteriyor. Yani Günlük test sayımız arttıkça, Günlük vaka sayımızda #artış gösterecektir. Bu iki değişken kullanılarak kurulan basit lineer regresyon #modeline göre ise, Test sayısındaki bir birimlik artış, vaka sayısında istatistiksel #olarak anlamlı kabul edilerek yaklaşık $0.1243$ birimlik artışa sebep olmaktadır.
```



```{r,include=F}
### Günlük Vaka Sayısı ile Günlük Ölüm Sayısı Arasındaki İlişki
#‼cor(data$Günlük_Vaka,data$Günlük_Ölüm)
```


```{r,include=FALSE}
#‼model2<-lm(Günlük_Ölüm~Günlük_Vaka,data=data)
#‼summary(model2)
# Günlük vaka sayısı ile Günlük ölüm sayısı değişkenlerinin Pearson Korelasyon Katsayısı #$0.953$ çıktı. Bu sayı bu iki değişken arasında kuvvetli ve pozitif yönde lineer bir #ilişki olduğunu gösteriyor. Yani Günlük vaka sayımız arttıkça, maalesef Günlük ölüm #sayımızda artış gösterecektir. Bu iki değişken kullanılarak kurulan basit lineer #regresyon modeline göre ise, Test sayısındaki bir birimlik artış, vaka sayısında #istatistiksel olarak anlamlı kabul edilerek yaklaşık $0.024$ birimlik artışa sebep #olmaktadır. 
```

**Sayfa [Sağlık Bakanlığı'nın](https://covid19.saglik.gov.tr/) açıkladığı veriler ışığında Güncellenecektir.**

**Sayfadaki grafiklerin açıklamaları için [tıklayınız.](/ozancan/aciklama.html)**

**İstatistiksel analizler güncellenecektir.**

**Bu sayfa ggplot2, highcharts ve plotly kütüphaneleri yardımı ile R Studio programı kullanılarak oluşturulmuştur.**


Biz Kimiz? {data-navmenu="Hakkımızda"}
====================================

Veri günümüzü en kıymetli kaynağıdır. Toplumlar kararlarını artık verilerin ışığında, onun gösterdiği yolda almaktadır. İstatistik, en kısa tanımı ile veriyi toplama, analiz etme ve sonuçlandırma sanatıdır. Kısacası istatistik, veriler ışığında sağlıklı bir geleceğin oluşumu için kullanılacak en güvenli yoldur.

Bizler istatistiği ODTÜ'de öğrendik. ODTÜ bize sorgulamayı, araştırmayı, geliştirmeyi bunun sonucunda yeni bilgi üretmeyi, onu hayata geçirmeyi ve paylaşmayı öğretti. ODTÜ ruhu bizlere sorumluluğumuzun sadece çevremizle sınırlı olmadığını, ülkenin ve Dünyanın sorunlarıyla ilgilenip çözüm aramamızı aşıladı.

İşte, bu amaç doğrultusunda ODTÜ İstatistik Bölümü'nden bir araştırma görevlisi ve yedi lisans öğrencisi olarak beraber
çalışmaya karar verdik.

Amacımız insanlarla sağlıklı ve güvenilir veri paylaşmak, bu verilerden geleceğimize ışık tutacak sonuçları çıkarmak ve böylece Dünyayı değiştirme hedefimize katkı sağlamaktır.



+ [Ozancan Özdemir](users.metu.edu.tr/ozancan) / ODTü İstatistik Bölümü

+ Ceren Ateş / ODTÜ İstatistik Bölümü

+ Deniz Bezer / ODTÜ İstatistik Bölümü

+ Ecenaz Tunç / ODTÜ İstatistik Bölümü

+ İpek Aydın / ODTÜ İstatistik Bölümü

+ Miray Çınar / ODTÜ İstatistik Bölümü

+ Levent Sarı / ODTÜ İstatistik Bölümü


Bizi Takip Edin!  {data-navmenu="Hakkımızda"}
=====================================

[Instagram](https://www.instagram.com/veripie.turkey/)

[Twitter](https://twitter.com/veripieturkey)

[Facebook](https://www.facebook.com/VeripieTurkey/?eid=ARCVyBif-DX9ihSaWFsfJMWDi_iwEpqmmFWun_KlLD7h6qlAucui4GytZOyVg9Qeumc9fclcb1H9OnN1) 

E-mail: **veripie.turkey@gmail.com**

=====================================