Store closing

Rerplicating the visualization of rud.is’s blog

library(rvest)

Loading required package: xml2

library(stringi)
library(pdftools)
library(hrbrthemes)
library(tidyverse)

Loading tidyverse: ggplot2
Loading tidyverse: tibble
Loading tidyverse: tidyr
Loading tidyverse: readr
Loading tidyverse: purrr
Loading tidyverse: dplyr
Conflicts with tidy packages -----------------------------------------------------------------------
filter(): dplyr, stats
lag():    dplyr, stats

library(extrafontdb)

store data into data.frame

glimpse(closing_df)

Observations: 12
Variables: 7
$ store         <fctr> Sears, JCPenny, Payless, Kmart, Crocs, Rue21, Radio Shack, hhgregg, The ...
$ closing       <dbl> 41, 138, 400, 109, 160, 400, 550, 88, 250, 180, 170, 110
$ total         <dbl> 695, 1000, 2600, 735, 560, 1100, 1500, 220, 250, 180, 170, 110
$ remaining     <dbl> 654, 862, 2200, 626, 400, 700, 950, 132, 0, 0, 0, 0
$ close_percent <dbl> 0.06, 0.14, 0.15, 0.15, 0.29, 0.36, 0.37, 0.40, 1.00, 1.00, 1.00, 1.00
$ open_percent  <dbl> 0.94, 0.86, 0.85, 0.85, 0.71, 0.64, 0.63, 0.60, 0.00, 0.00, 0.00, 0.00
$ rem_lab       <chr> "654", "862", "2,200", "626", "400", "700", "950", "132", "", "", "", ""

update_geom_font_defaults(font_rc)
closing_df%>%ggplot()+
  geom_segment(aes(x=0,y=store,xend=close_percent,yend=store,color="Closing"),size=8)+
  geom_segment(aes(x=close_percent,y=store,xend=1,yend=store,color="Remaining"),size=8)+
  geom_text(aes(x=0,y=store,label=closing),color="white",hjust=0,nudge_x=0.01)+
  geom_text(aes(x=1,y=store,label=rem_lab),color="white",hjust=1,nudge_x =-0.01)+
  scale_x_percent()+
  scale_color_ipsum(name=NULL)+
  labs(x=NULL,y=NULL,
       title="Selected 2017 store closings (estimated)",
       subtitle="Smaller specialty chains such as Bebe and American Apparel are closing their stores,\nwhile lareger chains such as J.C. Penny and Sears are scaling back their footprint.") +
  theme( axis.text.x=element_text(hjust=c(0, 0.5, 0.5, 0.5, 1)) )

NA

I hhave some difficulty trying to replicate the results from a Windows 10 machine. There is also a warning saying that "
font family not found in Windows font database “. After I tried the fixed they mentioned in github, the problem still persists.