Two independent plots side by side for the same variable
Source:vignettes/SmartTwoPlots.Rmd
SmartTwoPlots.RmdSamrtEDA function to visualise two independ plots side by side for the same variable
In exploratory data analysis, it is common to want to make two different plots for same variables. For example, a survey data may have a large number of questions like age, gender, region etc. It includes several categorical and numerical features. Suppose a analyst want to see age variable distributions with gender and without gender in side by side view. There is no direct functions available in any of the statistical packages. Here is a way to achieve the same thing using R using ggplot2 customized function ExpTwoPlots
Function definition:
ExpTwoPlots(
data,
plot_type = "numeric",
iv_variables = NULL,
target = NULL,
lp_geom_type = "boxplot",
lp_arg_list = list(),
rp_geom_type = "boxplot",
rp_arg_list = list(),
fname = NULL,
page = NULL,
theme = "Default"
)1. Plot Numerical independent variables - without target variable
Different use cases
target = "gear"
categorical_features <- c("vs", "carb") # we can add as many categorical variables
numeircal_features <- c("mpg", "qsec") # we can add as many numerical variables1.1 Left side Boxplot and Right side Histogram
num_1 <- ExpTwoPlots(mtcars,
plot_type = "numeric",
iv_variables = numeircal_features,
target = NULL,
lp_arg_list = list(fill="orange"),
lp_geom_type = 'boxplot',
rp_arg_list = list(alpha=0.5, fill="white", color = "red", binwidth=1),
rp_geom_type = 'histogram',
page = c(2,1),
theme = "Default")
num_1## $`0`
1.2 Left side Histogram and Right side Density
num_2 <- ExpTwoPlots(mtcars,
plot_type = "numeric",
iv_variables = numeircal_features,
target = NULL,
lp_arg_list = list(fill = "white",color = "red", binwidth=1),
lp_geom_type = 'histogram',
rp_arg_list = list(alpha=0.5, fill="red"),
rp_geom_type = 'density',
page = c(2,1),
theme = "Default")
num_2## $`0`
1.3 Left side Density and Right side Boxplot
num_3 <- ExpTwoPlots(mtcars,
plot_type = "numeric",
iv_variables = numeircal_features,
target = NULL,
lp_arg_list = list(color = "red"),
lp_geom_type = 'density',
rp_arg_list = list(fill="orange"),
rp_geom_type = 'boxplot',
page = c(2,1),
theme = "Default")
num_3## $`0`
1.4 Left side qqplot and Right side Boxplot
num_4 <- ExpTwoPlots(mtcars,
plot_type = "numeric",
iv_variables = numeircal_features,
target = NULL,
lp_arg_list = list(fill = "blue"),
lp_geom_type = 'qqplot',
rp_arg_list = list(fill="orange"),
rp_geom_type = 'boxplot',
page = c(2,1),
theme = "Default")
num_4## $`0`
2. Plot Numerical independent variables - with target variable
2.1 Left side Boxplot and Right side Histogram
num_21 <- ExpTwoPlots(mtcars,
plot_type = "numeric",
iv_variables = numeircal_features,
target = "gear",
lp_arg_list = list(fill="pink"),
lp_geom_type = 'boxplot',
rp_arg_list = list(alpha=0.5, fill = c("grey", "orange", "lightblue"), binwidth=1),
rp_geom_type = 'histogram',
page = c(2,1),
theme = "Default")
num_21## $`0`
2.2 Left side Histogram and Right side Density
num_22 <- ExpTwoPlots(mtcars,
plot_type = "numeric",
iv_variables = numeircal_features,
target = "gear",
lp_arg_list = list(fill = "white",color = "red", binwidth=1),
lp_geom_type = 'histogram',
rp_arg_list = list(alpha=0.5, fill = c("red", "orange", "pink")),
rp_geom_type = 'density',
page = c(2,1),
theme = "Default")
num_22## $`0`
2.3 Left side Density and Right side Boxplot
num_23 <- ExpTwoPlots(mtcars,
plot_type = "numeric",
iv_variables = numeircal_features,
target = "gear",
lp_arg_list = list(fill = "grey"),
lp_geom_type = 'density',
rp_arg_list = list(fill = c("blue", "orange", "pink"), alpha=0.5),
rp_geom_type = 'boxplot',
page = c(2,1),
theme = "Default")
num_23## $`0`
2.4 Left side qqplot and Right side Density
num_24 <- ExpTwoPlots(mtcars,
plot_type = "numeric",
iv_variables = numeircal_features,
target = "gear",
lp_arg_list = list(fill = "grey"),
lp_geom_type = 'qqplot',
rp_arg_list = list(fill = c("blue", "orange", "pink"), alpha=0.5),
rp_geom_type = 'density',
page = c(2,1),
theme = "Default")
num_24## $`0`
2.5 Left side Boxplot and Right side qqplot
num_25 <- ExpTwoPlots(mtcars,
plot_type = "numeric",
iv_variables = numeircal_features,
target = "gear",
lp_arg_list = list(fill = "orange"),
lp_geom_type = 'boxplot',
rp_arg_list = list(fill = c("blue", "green", "red"), alpha=0.5),
rp_geom_type = 'qqplot',
page = c(2,1),
theme = "Default")
num_25## $`0`
3. Plot categorical independent variables - without target variable
3.1 Left side donut chart and Right side bar chart
cat_1 <- ExpTwoPlots(mtcars,
plot_type = "categorical",
iv_variables = categorical_features,
target = NULL,
lp_arg_list = list(),
lp_geom_type = 'donut',
rp_arg_list = list(stat = 'identity'),
rp_geom_type = 'bar',
page = c(2,1),
theme = "Default")
cat_1## $`0`
3.2 Left side donut chart and Right side Pie chart
cat_2 <- ExpTwoPlots(mtcars,
plot_type = "categorical",
iv_variables = categorical_features,
target = NULL,
lp_arg_list = list(),
lp_geom_type = 'donut',
rp_arg_list = list(),
rp_geom_type = 'pie',
page = c(2,1),
theme = "Default")
cat_2## $`0`
3.3 Left side horizontal bar chart and Right side Pie chart
cat_3 <- ExpTwoPlots(mtcars,
plot_type = "categorical",
iv_variables = categorical_features,
target = NULL,
lp_arg_list = list(stat = 'identity'),
lp_geom_type = 'barh',
rp_arg_list = list(),
rp_geom_type = 'pie',
page = c(2,1),
theme = "Default")
cat_3## $`0`
4. Plot categorical independent variables - with target variable
4.1 Left side donut chart and Right side stacked bar chart
cat_41 <- ExpTwoPlots(mtcars,
plot_type = "categorical",
iv_variables = categorical_features,
target = 'gear',
lp_arg_list = list(),
lp_geom_type = 'donut',
rp_arg_list = list(stat = 'identity'),
rp_geom_type = 'bar',
page = c(2,1),
theme = "Default")
cat_41## $`0`
4.2 Left side donut chart and Right side horizontal stacked bar chart
cat_42 <- ExpTwoPlots(mtcars,
plot_type = "categorical",
iv_variables = categorical_features,
target = 'gear',
lp_arg_list = list(),
lp_geom_type = 'pie',
rp_arg_list = list(stat = 'identity'),
rp_geom_type = 'barh',
page = c(2,1),
theme = "Default")
cat_42## $`0`