kr-shiveshwar

kr-shiveshwar

kr-shiveshwar

# Histogram
library(ggplot2)
qplot(region,data = Telecom_train,geom = "bar",fill=factor(region))
qplot(region,data = Telecom_train,geom = "bar",fill=churn,position = "stack")

# flip plot by 90-degree
'adding coord_flip() will flip by 90 - degree'
qplot(region,data = Telecom_train,geom = "bar",fill=churn,position = "stack") + coord_flip()

kr-shiveshwar

#####################################
#       BiVariate Analysis          #
#####################################
qplot(income,age,data = Telecom_train,geom=c("point", "smooth"),color=churn)
qplot(income,data = Telecom_train,geom="density")

#as the data is skewed we will perform log transformation
qplot(log(income),data = Telecom_train,geom="density")
qplot(log(income),age,data = Telecom_train,geom=c("point", "smooth"),color=churn)

kr-shiveshwar

kr-shiveshwar

library(ggmap)
library(readr)
library(ggplot2)
library(ggraph)

load("eway_wo_zero_nodes")
load("transx_wo_zero")
load("pincodes_repository")

pincodes_repository <- pincodes_repository1