How to create a violin plot using lattice package in R?
This recipe helps you create a violin plot using lattice package in R
Recipe Objective
Violin plots are similar to boxplots which showcases the probability density along with interquartile, median and range at different values. They are more informative than boxplots which are used to showcase the full distribution of the data. They are also known to combine the features of histogram and boxplots. They are mainly used to compare the distribution of different variables/columns in the dataset.
In this recipe we are going to use Lattice package to plot the required violin plot. Lattice package provides powerful data visualisation functions which is mainly used for statistical graphics of multivariate data. It is pre-installed in R and is inspired by trellis graphics.
This recipe demonstrates how to plot a violin plot in R using lattice package.
STEP 1: Loading required library and dataset
Dataset description: It is the basic data about the customers going to the supermarket mall. The variables that we are interested in: Annual.Income (which is in 1000s), Spending Score and age
# Data manipulation package
library(tidyverse)
# Lattice package for data visualisation
install.packages("lattice")
library(lattice)
# reading a dataset
customer_seg = read.csv('R_151_Mall_Customers.csv')
glimpse(customer_seg)
Observations: 200 Variables: 5 $ CustomerID1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,… $ Gender Male, Male, Female, Female, Female, Female, Fe… $ Age 19, 21, 20, 23, 31, 22, 35, 23, 64, 30, 67, 35… $ Annual.Income..k.. 15, 15, 16, 16, 17, 17, 18, 18, 19, 19, 19, 19… $ Spending.Score..1.100. 39, 81, 6, 77, 40, 76, 6, 94, 3, 72, 14, 99, 1…
STEP 2:Plotting a scatter plot using Lattice
We use the bwplot() function to plot a box plot between annual income and Gender variables.
Syntax: bwplot(x, data, main = , panel = )
where:
- x = variables to be plotted
- data = dataframe to be used
- panel = (panel.violin) - this argument ensures that it is a violin plot
customer_seg$Gender = as.factor(customer_seg$Gender)
bwplot(Annual.Income..k.. ~ Gender,
data = customer_seg,
main = "Annual Income Box Plot",
panel = panel.violin)
What Users are saying..
Abhinav Agarwal
I come from Northwestern University, which is ranked 9th in the US. Although the high-quality academics at school taught me all the basics I needed, obtaining practical experience was a challenge.... Read More