Social Media

Load packages and data set

violin plot

violin <- taste.df %>%
  ggplot(aes(x = QuinineWhole_ID, y = QuinineWhole_Intensity, color = QuinineWhole_ID)) +
  geom_violin() +
theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust=1)) +
facet_wrap(~Gender) +
  theme_light() 

ggplotly(violin)

## Warning: Removed 1 rows containing non-finite values (`stat_ydensity()`).