Skip to contents

Descriptive analysis of employees

Source: vignettes/articles/descriptive-analysis-employees.Rmd
descriptive-analysis-employees.Rmd

This article shows how to calculate the descriptive analysis of companies’ employees.

Example product-level output of transition risk profile.

companies_id min_headcount max_headcount tilt_sector country
subdermal_chipmunk 1 10 construction france
antimonarchy_canine 1 10 construction germany
nonphilosophical_llama 1 10 metals germany
fascist_maiasaura 1 10 construction germany
ironhearted_tarpan 50 100 metals germany
heliophobic_clownanemonefish 50 100 metals germany
subzero_whiteeye 1 10 construction netherlands
heliophobic_clownanemonefish 50 100 construction netherlands

Number of companies between range of min_headcount and max_headcount

# of firms between range of min_headcount and max_headcount
min_headcount max_headcount # of firms
1 10 5
50 100 2

Bar plot 

companies_headcount_range_new <- mutate(companies_headcount_range, range_headcounts = paste(min_headcount, max_headcount, sep = '-')) |>
  filter(!is.na(min_headcount)) |>
  rename("number_of_companies" = "# of firms")
companies_headcount_range_new$range_headcounts <- factor(companies_headcount_range_new$range_headcounts,
                                                     levels = unique(companies_headcount_range_new$range_headcounts))
ggplot(companies_headcount_range_new, aes(x = range_headcounts, y = number_of_companies, fill = range_headcounts)) +
  geom_bar(stat = "identity") +
  labs(x = "Headcount Range", y = "Number of firms", title = "Number of companies between range of `min_headcount` and `max_headcount`",
       fill = "Headcount Range")

Number of companies between range of min_headcount and max_headcount grouped by tilt_sector

# of firms between range of min_headcount and max_headcount grouped by tilt_sector
tilt_sector min_headcount max_headcount # of firms
construction 1 10 4
50 100 1

Bar plot 

companies_headcount_range_tilt_sector_new <- mutate(companies_headcount_range_tilt_sector, range_headcounts = paste(min_headcount, max_headcount, tilt_sector, sep = '-')) |>
  filter(!is.na(min_headcount)) |>
  rename("number_of_companies" = "# of firms") |>
  arrange(min_headcount, tilt_sector)
  
companies_headcount_range_tilt_sector_new$range_headcounts <- factor(companies_headcount_range_tilt_sector_new$range_headcounts,
                                                     levels = companies_headcount_range_tilt_sector_new$range_headcounts)

ggplot(companies_headcount_range_tilt_sector_new, aes(x = range_headcounts, y = number_of_companies, fill = range_headcounts)) +
  geom_bar(stat = "identity") +
  labs(x = "Headcount Range", y = "Number of firms", title = "Number of companies between range of \n `min_headcount` and `max_headcount` \n grouped by `tilt_sector`", fill = "Headcount Range") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1))

Number of companies between range of min_headcount and max_headcount grouped by tilt_sector and country

# of firms between range of min_headcount and max_headcount grouped by tilt_sector and country
tilt_sector min_headcount max_headcount country # of firms
construction 1 10 france 1
1 10 germany 2
1 10 netherlands 1
50 100 netherlands 1