Vizualizace dat o angažovanosti

HR Analytics: Exploring Employee Data in R

Ben Teusch

HR Analytics Consultant

Vizualizace více proměnných najednou

Balíček tidyr

Použití tidyr::gather()

library(tidyr)

data %>%
    gather(columns, 
           key = "key", value = "value")

Použití tidyr::gather()

survey_summary

# A tibble: 3 x 3
   department average_engagement average_promotions
        <chr>              <dbl>              <dbl>
1 Engineering           3.150884          0.4776275
2     Finance           3.238095          0.5396825
3       Sales           2.807175          0.4910314

survey_summary %>% 
  gather(average_engagement,
         average_promotions,
         key = "key",
         value = "value")

# A tibble: 6 x 3
   department                key     value         
        <chr>              <chr>     <dbl>
1 Engineering average_engagement 3.1508845
2     Finance average_engagement 3.2380952
3       Sales average_engagement 2.8071749
4 Engineering average_promotions 0.4776275
5     Finance average_promotions 0.5396825
6       Sales average_promotions 0.4910314

¹ tidyr::gather() bylo nahrazeno funkcí tidyr::pivot_longer()

Přidání barev do sloupcových grafů

survey_gathered <- survey_summary %>% 
  gather(average_engagement, average_promotions, 
         key = "key", value = "value")

ggplot(survey_gathered, aes(key, value, fill = department)) +
  geom_col()

Přidání barev do sloupcových grafů

Sloupcové grafy vedle sebe

ggplot(survey_gathered, aes(key, value, fill = department)) +
  geom_col(position = "dodge")

Sloupcové grafy vedle sebe

Přidání faset

ggplot(survey_gathered, aes(x = key,
                            y = value,
                            fill = department)) +
  geom_col(position = "dodge") +
  facet_wrap(~ key, scales = "free")

Lass uns üben!

HR Analytics: Exploring Employee Data in R