Companies House Charts (Day 4 of 5)

My exploratory data analysis of Companies House data in August 2020:

Length of company name

by year of incorporation

Next the limitations:

  • Only the latest name is plotted, not any previous names

And the code snippet:

#get labels for bubble of interest
data <- data %>%
  CompanyName_length = str_length(CompanyName),
  IncorporationDate_jul = as_date(IncorporationDate_ymd)
) %>%
  label_text = str_glue("{CompanyName}")
) %>%

bubble1 <- data %>%
  CompanyName_length > 60,
  IncorporationDate_jul > ymd("2000-01-01"),
  IncorporationDate_jul < ymd("2010-01-01")
) %>% 
pull(CompanyNumber) %>%

#exploratory method, could be faster:)
data[!data$CompanyNumber %in% bubble1,"label_text"] <- ""

Recent Posts

See All

Frequently Asked Questions, by phone

I have a warning message When does it happen? Can you send a screenshot to us? Also, if you can, please email the PDF input document to us (or upload it using the 'File' menu within StatementReader) a