R GGplot - Combine Boxplot and Scatterplot into single visualization

boxplot ggplot.r

#create boxplot with data
boxplot <- ggplot(data,aes(x=channel,
            y= revPerSessionUSD)) +
  geom_boxplot()+
  ggtitle("Revenue Per Session - For Full Year")

#show viz
boxplot

boxplot plus jitter.r

#Combine boxplot and jitter in R
boxjitterplot <- ggplot(data,aes(x=channel,
            y= revPerSessionUSD)) +
  geom_boxplot()+ylim(0,0.75)+
  geom_jitter(alpha=0.4)+
    ggtitle("Revenue Per Session - For Full Year")

boxjitterplot

ggplot boxplot plus jitter - full code.r

#check if file loaded
channelData

#assigned name = data
data <- channelData

# install and load tidyverse
install.packages("tidyverse")
library(tidyverse)

#check summary stats in dplyr
data %>%
  group_by(as.factor(channel)) %>%
  summarize(min=min(revPerSessionUSD),
            max=max(revPerSessionUSD),
            mean=mean(revPerSessionUSD),
            median=median(revPerSessionUSD),
            IQRange=IQR(revPerSessionUSD))

#create boxplot with data
boxplot <- ggplot(data,aes(x=channel,
            y= revPerSessionUSD)) +
  geom_boxplot()+
  ggtitle("Revenue Per Session - For Full Year")

#show viz
boxplot

#create scatterplot with data
scatterplot <- ggplot(data,aes(x=channel,
                               y= revPerSessionUSD)) +
  geom_point()+
  ggtitle("Revenue Per Session - For Full Year")
#show viz
scatterplot


#create jitter plot with data
jitterplot <- ggplot(data,aes(x=channel,
           y= revPerSessionUSD)) +
  geom_jitter ()+
  ggtitle("Revenue Per Session - For Full Year")
#show viz
jitterplot


#create jitter plot with data, add alpha to show 
#more concentration of points
jitterplot1 <- ggplot(data,aes(x=channel,
                              y= revPerSessionUSD)) +
  geom_jitter (alpha=0.4)+
  ggtitle("Revenue Per Session - For Full Year")
#show viz
jitterplot1



#Combine boxplot and jitter in R
boxjitterplot <- ggplot(data,aes(x=channel,
            y= revPerSessionUSD)) +
  geom_boxplot()+ylim(0,0.75)+
  geom_jitter(alpha=0.4)+
    ggtitle("Revenue Per Session - For Full Year")

boxjitterplot

jitterplot.r

#create jitter plot with data, add alpha to show 
#more concentration of points
jitterplot <- ggplot(data,aes(x=channel,
                              y= revPerSessionUSD)) +
  geom_jitter (alpha=0.4)+
  ggtitle("Revenue Per Session - For Full Year")
#show viz
jitterplot

scatterplot.r

#create scatterplot with data
scatterplot <- ggplot(data,aes(x=channel,
                               y= revPerSessionUSD)) +
  geom_point()+
  ggtitle("Revenue Per Session - For Full Year")
#show viz
scatterplot

summary stats.r

#check summary stats in dplyr
data %>%
  group_by(as.factor(channel)) %>%
  summarize(min=min(revPerSessionUSD),
            max=max(revPerSessionUSD),
            mean=mean(revPerSessionUSD),
            median=median(revPerSessionUSD),
            IQRange=IQR(revPerSessionUSD))