Turkiye’de bulunan Starbucks subelerinin sehirlere dagiliminin gorsellestirilmesi

Kaggle’da bulunan Starbucks Location Worldwide verisi kullanilarak hazirlanmistir.

library(dplyr)
library(tidyr)
library(ggplot2)
library(leaflet)
library(highcharter)
library(leaflet)
library(DT)

Verinin ham halini R’a. cekiyoruz.

starbucks <- read.csv("starbucks.csv", stringsAsFactors = F)
head(starbucks)

##       Brand Store.Number               Store.Name Ownership.Type
## 1 Starbucks 47370-257954            Meritxell, 96       Licensed
## 2 Starbucks 22331-212325         Ajman Drive Thru       Licensed
## 3 Starbucks 47089-256771                Dana Mall       Licensed
## 4 Starbucks 22126-218024               Twofour 54       Licensed
## 5 Starbucks 17127-178586             Al Ain Tower       Licensed
## 6 Starbucks 17688-182164 Dalma Mall, Ground Floor       Licensed
##                    Street.Address             City State.Province Country
## 1               Av. Meritxell, 96 Andorra la Vella              7      AD
## 2            1 Street 69, Al Jarf            Ajman             AJ      AE
## 3    Sheikh Khalifa Bin Zayed St.            Ajman             AJ      AE
## 4                 Al Salam Street        Abu Dhabi             AZ      AE
## 5 Khaldiya Area, Abu Dhabi Island        Abu Dhabi             AZ      AE
## 6            Dalma Mall, Mussafah        Abu Dhabi             AZ      AE
##   Postcode Phone.Number                Timezone Longitude Latitude
## 1    AD500    376818720 GMT+1:00 Europe/Andorra      1.53    42.51
## 2                          GMT+04:00 Asia/Dubai     55.47    25.42
## 3                          GMT+04:00 Asia/Dubai     55.47    25.39
## 4                          GMT+04:00 Asia/Dubai     54.38    24.48
## 5                          GMT+04:00 Asia/Dubai     54.54    24.51
## 6                          GMT+04:00 Asia/Dubai     54.49    24.40

turkey isimli degiskene ulke kodu TR olan satirlari atiyoruz.

turkey <- starbucks[starbucks$Country == "TR",]
head(turkey)

##           Brand Store.Number Store.Name Ownership.Type
## 11242 Starbucks  3165-143231  Starbucks       Licensed
## 11243 Starbucks  3030-142267  Starbucks       Licensed
## 11244 Starbucks  1942-139246  Starbucks       Licensed
## 11245 Starbucks  6130-149624  Starbucks       Licensed
## 11246 Starbucks 23681-232564  Starbucks       Licensed
## 11247 Starbucks  3158-142270  Starbucks       Licensed
##                                                                       Street.Address
## 11242  Yeni Mah. Ogretmenler Bulv. M1 Merkez, Alisveris Merkezi No: 15 K: Giris D:90
## 11243                     Kurtulus Mah. Ziya Pasa Bulv. Ali Sadi, Apt. No:15 K:Zemin
## 11244                                           Incirlik Ussu 10. Sencer Komutanligi
## 11245                                     Guzelyali Mah.Kenan Evren Bulv., No: 105/B
## 11246                     Guzelyali Mah. Turgut Ozal Bulvari No:44, Cukurova / Adana
## 11247 Carkipare Mah Cukurova Univ. Kampusu, Mithat Ozhan Bulv Akbank No126 KGirisD36
##        City State.Province Country Postcode    Phone.Number
## 11242 Adana              1      TR     1000     322 2710457
## 11243 Adana              1      TR     1130 0 322 457 94 95
## 11244 Adana              1      TR     1220                
## 11245 Adana              1      TR     1170  0322 235 21 26
## 11246 Adana              1      TR     1170                
## 11247 Adana              1      TR     1000 0 322 338 72 03
##                     Timezone Longitude Latitude
## 11242 GMT+2:00 Asia/Istanbul     35.24    37.02
## 11243 GMT+2:00 Asia/Istanbul     35.32    37.00
## 11244 GMT+2:00 Asia/Istanbul     35.44    37.00
## 11245 GMT+2:00 Asia/Istanbul     35.30    37.05
## 11246 GMT+2:00 Asia/Istanbul     35.30    37.05
## 11247 GMT+2:00 Asia/Istanbul     35.36    37.06

Yanlis yazilmis sehir isimleri icin gerekli duzeltmeleri yapiyoruz.

turkey$City[turkey$City == "Istanbul - Asya"] <- "Istanbul"
turkey$City[turkey$City == "Istanbul - Avrupa"] <- "Istanbul"
turkey$City[turkey$City == "Pendik"] <- "Istanbul"
turkey$City[turkey$City == "Instanbul - Asya"] <- "Istanbul"
turkey$City[turkey$City == "Beyoglu"] <- "Istanbul"
turkey$City[turkey$City == "Yenimahalle Merkez"] <- "Ankara"
turkey$City[turkey$City == "Susurluk"] <- "Balikesir"
turkey$City[turkey$City == "Osmangazi"] <- "Bursa"
turkey$City[turkey$City == "Tepebasi"] <- "Eskisehir"
turkey$City[turkey$City == "Izmit"] <- "Kocaeli"
turkey$City[turkey$City == "Kocaeli (Izmit)"] <- "Kocaeli"
turkey$City[turkey$City == "Mersin (Icel)"] <- "Mersin"
turkey$City[turkey$City == "Mersin Icel"] <- "Mersin"
turkey$City[turkey$City == "Bodrum"] <- "Mugla"
turkey$City[turkey$City == "Afyon"] <- "Afyonkarahisar"

Kac sehir ve kac sube var?

## Turkiye'de 27 farkli sehirde toplam 326 sube bulunmaktadir.

Sehirlerde bulunan Starbucks sayilarini ve oranlarini hesapliyoruz.

sehir <- turkey %>% group_by(City) %>% summarise(Toplam = n(), 
              Oran = round(Toplam/dim(turkey)[1] * 100, 2)) %>% arrange(desc(Toplam)) 
sehir

## # A tibble: 27 x 3
##    City      Toplam  Oran
##    <chr>      <int> <dbl>
##  1 Istanbul     158 48.5 
##  2 Ankara        46 14.1 
##  3 Izmir         20  6.13
##  4 Antalya       17  5.21
##  5 Bursa         13  3.99
##  6 Kocaeli       10  3.07
##  7 Adana          8  2.45
##  8 Mugla          7  2.15
##  9 Aydin          5  1.53
## 10 Eskisehir      5  1.53
## # ... with 17 more rows

Highcharts paketini kullanrak interaktif treemap olusturuyoruz.

leaflet ile haritalandiriyoruz.

son olarak da DT paketini kullanarak interaktif tablo haline getiriyoruz.

Referanslar

• https://www.kaggle.com/umeshnarayanappa/d/starbucks/store-locations/exploring-starbucks-stores/notebook
• https://www.kaggle.com/jitender786/d/starbucks/store-locations/starbucks-world-top3-countries-with-india/notebook

Kaggle’da yayinladigim script - https://www.kaggle.com/silverstone1903/d/starbucks/store-locations/starbucks-turkey