İK Analitiği: R ile Çalışan Ayrışmasını (Churn) Tahmin Etme
Abhishek Trehan
People Analytics Practitioner
# Plot the distribution of compensation
ggplot(emp_tenure, aes(x = compensation)) +
geom_histogram()

# Plot the distribution of compensation across levels
ggplot(emp_tenure,
aes(x = level, y = compensation)) +
geom_boxplot()

$$ \text{Compa Oranı} = \frac{\text{ Gerçek Ücretlendirme }}{\text{Medyan Ücretlendirme}} $$
1,2 ya da %120'lik compa-oranı, çalışanın medyan ücretin %20 üzerinde ödendiği anlamına gelir
1 ya da %100'lük compa-oranı, çalışanın tam medyan ücreti aldığı anlamına gelir
0,8 ya da %80'lik compa-oranı, çalışanın medyanın %20 altında ödendiği anlamına gelir

# Derive Compa-ratio
emp_compa_ratio <- emp_tenure %>%
group_by(level) %>%
mutate(median_compensation = median(compensation),
compa_ratio = (compensation / median_compensation))
# Look at the median compensation for each level
emp_compa_ratio %>%
distinct(level, median_compensation)
# A tibble: 2 x 2
# Groups: level[2]
level median_compensation
<fct> <dbl>
1 Analyst 51840
2 Specialist 83496
İK Analitiği: R ile Çalışan Ayrışmasını (Churn) Tahmin Etme