Employee Diversity Data

# Load the tidyverse package

library(tidyverse)

# Import the .csv file to create meaningful plot

\"emoloyee_diversity.csv\" %>%

read_csv() %>%

ggplot(aes(x = reorder(Id, Experience),

y = Experience,

Shape = Gender)) +

geom_point(aes(color = Location,

size = Salary)) +

geom_text(aes(label = paste0( Name, \" (\", Salary, \")\")),

nudge_y = 2,

size = 3) +

facet_grid( ~Sport + Travel + Position,

scales = \"free\",

space = \"free\") +

labs(x = \"Employee Id\",

y = \"Salary in lakhs of rupees per annum\",

title = \"Employee diversity data\",

size = \"Experience (years)\",

caption = \"plot by @lan24hd\") +

theme_bw() +

theme(legend.position = \"bottom\")