I love nail polish. I love the colors, the finishes, the little glass bottles that I can display and organize. I love talking about nails, collecting nail polish, giving myself manicures, and mostly importantly, carrying joy with me everywhere I go (all I need to do is look down at my hands and see what makes me happy!)
For most of my life, I’ve painted my nails using nail lacquers, but over the past couple months I have been learning how to do gel manicures. As such, lately I’ve amassed several gel polishes, soft gel extensions in various shapes and lengths (mostly coffin and stiletto), and many preparation, application, and gel removal tools.
Things I will do with this project:
create datasets of my gel nail polish and my lacquer nail polish, and then bind them into one larger data
make a series of plots that provide information about my nail polish collection, such as:
color families
number of polishes acquired per year (since 2018)
finishes (crème, glitter, neon, etc)
my favorite brands
a rough starting sketch
creating the datasets
Because I have so many nail polishes, I created two datasets for this project and then combined them. The first data set consisted of gel polishes, and the second consisted of lacquers. I combined them using rbind().
library(tidyverse)
── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr 1.1.1 ✔ readr 2.1.4
✔ forcats 1.0.0 ✔ stringr 1.5.0
✔ ggplot2 3.4.1 ✔ tibble 3.2.1
✔ lubridate 1.9.2 ✔ tidyr 1.3.0
✔ purrr 1.0.1
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag() masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(ggrepel)library(patchwork)
library(showtext)
Loading required package: sysfonts
Loading required package: showtextdb
font_add_google(name ="Mulish", family ="Mulish")showtext_auto()
name brand color_family color_hex year_acquired
"character" "character" "character" "character" "numeric"
type finish
"character" "character"
plots
nailpolish |>group_by(color_family) |>mutate(n =row_number()) |>ggplot(aes(color_family, n, fill = color_hex)) +geom_raster() +scale_fill_identity() +labs(y ="count",x ="",title ="colors by color family") +scale_y_continuous(breaks =c(4, 8, 12)) +theme(panel.background =element_rect(fill ="gray94"),plot.background =element_rect(fill ="gray94"),plot.title =element_text(size =15.5, family ="Mulish"),axis.text.x =element_text(size =9, color ="black", family ="Mulish"),axis.ticks =element_blank(),axis.text.y =element_text(size =7, color ="gray20", family ="Mulish") )
ggplot(nailpolish, aes(color_family, finish, fill = color_hex)) +stat_bin_2d() +labs(y ="",x ="",title ="finishes") +theme(panel.background =element_rect(fill ="gray94"),panel.grid.minor =element_blank(),plot.background =element_rect(fill ="gray94"),plot.title =element_text(size =15.5, color ="gray20", family ="Mulish"),axis.text.x =element_text(size =7, color ="gray20", family ="Mulish"),axis.ticks =element_blank(),axis.text.y =element_text(size =10, color ="gray20", family ="Mulish"), ) +scale_fill_identity()
ggplot(nailpolish, aes(x = color_family, y =reorder(brand, desc(brand)), fill = color_family)) +stat_bin_2d() +scale_fill_manual(values =c("#4291C8", "#6A4631", "#B6916D", "#38775F", "#733566", "#8FA260", "#CE9AA4", "#AC9C94", "#EB5328", "#E1968F", "#7464A7", "#DF4126", "white", "#EFE669")) +labs(y ="",x ="color family",title ="brands") +theme(panel.background =element_rect(fill ="gray94"),panel.grid.minor =element_blank(),plot.background =element_rect(fill ="gray94"),plot.title =element_text(size =15.5, color ="gray20", family ="Mulish"),axis.text.x =element_blank(),axis.ticks =element_blank(),axis.text.y =element_text(size =10, color ="gray20", family ="Mulish"),axis.title.x =element_text(size =10, color ="gray20", family ="Mulish"),strip.background =element_rect(fill ="gray94"),strip.text =element_text(size =10, color ="gray20", family ="Mulish"),legend.position ="none" ) +facet_wrap(~type)
ggplot(nailpolish_laquer, aes(year_acquired, color_family, color = color_hex)) +geom_jitter(size =5) +scale_color_identity() +labs(y ="",x ="year acquired",title ="lacquer polish names") +theme(panel.background =element_rect(fill ="gray94"),panel.grid.major =element_blank(),panel.grid.minor =element_blank(),plot.background =element_rect(fill ="gray94"),plot.title =element_text(size =13, color ="gray20", family ="Mulish"),axis.text.x =element_text(size =10, color ="gray50", family ="Mulish"),axis.ticks.x =element_line(color ="grey50"),axis.title.x =element_text(size =10, color ="gray50", family ="Mulish"),axis.ticks =element_blank(),axis.text.y =element_blank(),legend.position ="none" ) +coord_cartesian(clip ="off") +geom_text_repel(aes(label = name), bg.color ="grey96", bg.r = .4)
ggplot(nailpolish_gel, aes(year_acquired, color_family, color = color_hex)) +geom_jitter(size =5) +scale_color_identity() +labs(y ="",x ="all acquired in 2022",title ="gel polish names") +theme(panel.background =element_rect(fill ="gray94"),panel.grid.major =element_blank(),panel.grid.minor =element_blank(),plot.background =element_rect(fill ="gray94"),plot.title =element_text(size =13, color ="gray20", family ="Mulish"),axis.text.x =element_blank(),axis.title.x =element_text(size =10, color ="gray50", family ="Mulish"),axis.ticks =element_blank(),axis.text.y =element_blank(),legend.position ="none" ) +coord_cartesian(clip ="off") +geom_text_repel(aes(label = name), bg.color ="grey96", bg.r = .7, max.overlaps =Inf)
acq1 <-ggplot(nailpolish, aes(year_acquired, color_family, color = color_hex)) +geom_jitter(size =14) +scale_color_identity() +labs(y ="",x ="",title ="colors acquired 2018-2022") +theme(panel.background =element_rect(fill ="gray94"),panel.grid.major =element_blank(),panel.grid.minor =element_blank(),plot.background =element_rect(fill ="gray94"),plot.title =element_text(size =13, color ="gray20", family ="Mulish"),axis.text.x =element_text(size =10, color ="gray50", family ="Mulish"),axis.ticks.x =element_line(color ="grey50"),axis.ticks =element_blank(),axis.text.y =element_blank(),legend.position ="none" ) +coord_cartesian(clip ="off") acq1
acq2 <-ggplot(nailpolish, aes(year_acquired, fill = color_hex)) +stat_bin(binwidth =1, position ="fill") +scale_fill_identity() +labs(y ="",x ="",title ="colors acquired 2018-2022") +theme(panel.background =element_rect(fill ="gray94"),panel.grid.major =element_blank(),panel.grid.minor =element_blank(),plot.background =element_rect(fill ="gray94"),plot.title =element_text(size =13, color ="gray20", family ="Mulish"),axis.text.x =element_text(size =10, color ="gray50", family ="Mulish"),axis.ticks.x =element_line(color ="grey50"),axis.ticks =element_blank(),axis.text.y =element_blank(),legend.position ="none" )acq2
acq3 <-ggplot(nailpolish, aes(color_family, year_acquired, fill = color_family)) +geom_violin() +scale_fill_manual(values =c("#4291C8", "#B6916D", "#38775F", "#733566", "#CE9AA4", "#AC9C94", "#EB5328", "#E1968F", "#7464A7", "#DF4126", "#EFE669")) +labs(y ="",x ="",title ="colors acquired 2018-2022") +theme(panel.background =element_rect(fill ="gray94"),panel.grid.minor =element_blank(),plot.background =element_rect(fill ="gray94"),plot.title =element_text(size =13, color ="gray20", family ="Mulish"),axis.ticks =element_blank(),axis.text.y =element_text(size =10, color ="gray20", family ="Mulish"),legend.position ="none" ) acq3
Warning: Groups with fewer than two data points have been dropped.
Groups with fewer than two data points have been dropped.
Groups with fewer than two data points have been dropped.
evaluation, issues, and work for the future
I chose to use the grey theming in hopes that it would showcase the colors representing the polishes. I think this worked out pretty well. I spent a lot of time tweaking axis titles, labels, and markers to make them readable but subtle.
Again, for the most part, simple geometries were used to keep more focus on the colors.
The ggrepel labels background should be changed based on the text color.
I’d like to change the page theme so the background color is the same grey as the plot backgrounds. I’d like to match the fonts used in the plots to the ones on this page as well.
