Violin Plot

Density Plot

Load the necessary Libraries

library(dplyr)
library(ggplot2)
library(plotly)

Load the Data Set

tips <- read.csv(filePath)
glimpse(tips)
## Rows: 244
## Columns: 7
## $ total_bill <dbl> 16.99, 10.34, 21.01, 23.68, 24.59, 25.29, 8.77, 26.88, 1...
## $ tip        <dbl> 1.01, 1.66, 3.50, 3.31, 3.61, 4.71, 2.00, 3.12, 1.96, 3....
## $ sex        <chr> "Female", "Male", "Male", "Male", "Female", "Male", "Mal...
## $ smoker     <chr> "No", "No", "No", "No", "No", "No", "No", "No", "No", "N...
## $ day        <chr> "Sun", "Sun", "Sun", "Sun", "Sun", "Sun", "Sun", "Sun", ...
## $ time       <chr> "Dinner", "Dinner", "Dinner", "Dinner", "Dinner", "Dinne...
## $ size       <int> 2, 3, 3, 2, 4, 4, 2, 4, 2, 2, 2, 4, 2, 4, 2, 2, 3, 3, 3,...

Plot Violin chart for time vs tips with respect to Sex

violin_chart_1 <- tips %>%
    ggplot(aes(x = time, y = tip, fill = sex)) +
    geom_violin()

ggplotly(violin_chart_1)

Plot Violin chart for day vs tips with respect to Sex

violin_chart_2 <- tips %>%
    ggplot(aes(x = day, y = tip, fill = sex)) +
    geom_violin()

ggplotly(violin_chart_2)

Plot Density chart of tips for each day

density_chart <- tips %>%
  ggplot(aes(x = tip, fill = day)) +
  geom_density(alpha = 0.3)

ggplotly(density_chart)