Giriş

Benzin-Araç-Seyahat harcamaları için yapılan BKM kredi/banka kartı kullanım verileri analizi.

library(readxl)
library(tidyverse)
library(ggplot2)
bkm_data<- read_excel("C:\\Users\\Dogus\\Desktop\\bkm_data.xlsx")

bkm_ay = bkm_data %>% filter(!grepl("DÖNEM",donem) & !grepl("YILI",donem))

#2017 YILI İÇİN BANKA KARTI İŞLEM ORANLARI 

ggplot(bkm_ay %>% filter(yil == 2017),aes(x=donem,y=islem_adedi_banka_karti,fill=kaynak)) + geom_bar(stat="identity",position="dodge")

head(bkm_data)

#2017 YILI İÇİN KREDİ KARTI İŞLEM ORANLARI 

ggplot(bkm_ay %>% filter(yil == 2017),aes(x=donem,y=islem_adedi_kredi_karti,fill=kaynak)) + geom_bar(stat="identity",position="dodge")

bkm_data %>% select(yil,islem_adedi_banka_karti,islem_adedi_kredi_karti)

 geom_point(aes(shape=as.factor(yil)))

## mapping: shape = as.factor(yil) 
## geom_point: na.rm = FALSE
## stat_identity: na.rm = FALSE
## position_identity

 #Sonuç: Benzin harcamaları için kullanılan banka ve kredi kartlarının işlem miktarı en büyük paydaya sahiptir.