HR ratings

This is a possible solution to a question asked on reddit. https://www.reddit.com/r/DataVizRequests/comments/7sy430/request_i_would_like_for_someone_to_visualize/

Load your data

Make a box plot that shows the rating for each employee. highlight the direct manager. I added another line at 6 to indicate a possible cutoff for good performance. The direct manager was highlighted, because they should have more weight.

plt.hr <- ggplot(hr, aes(Employee, Score)) +
    geom_boxplot(width=0.5)+
    geom_point(aes(colour=ManagerType, fill=ManagerType),size=2, shape=21, stroke=1.1, position = position_jitterdodge(jitter.width = 0.5))+
    theme_bw()+
    ylim(0,10)+
    geom_hline(aes(yintercept = 6), linetype="dashed", colour="gray")+
    labs(title="HR employee scores")
plt.hr