Assignment 3

# Load necessary library
library(ggplot2)

# Read the dataset
df <- read.csv("C:/Users/Admin/Downloads/HR_comma_sep-2 (1).csv")

# Pie Chart for Sales
sales_counts <- table(df$sales)
sales_df <- data.frame(Sales = names(sales_counts), Count = as.numeric(sales_counts))

ggplot(sales_df, aes(x = "", y = Count, fill = Sales)) +
  geom_bar(stat = "identity", width = 1) +
  coord_polar("y", start = 0) +
  theme_minimal() +
  labs(title = "Distribution of Sales Department in HR Dataset") +
  theme(axis.text.x = element_blank(), axis.ticks = element_blank())

# Pie Chart for Salary
salary_counts <- table(df$salary)
salary_df <- data.frame(Salary = names(salary_counts), Count = as.numeric(salary_counts))

ggplot(salary_df, aes(x = "", y = Count, fill = Salary)) +
  geom_bar(stat = "identity", width = 1) +
  coord_polar("y", start = 0) +
  theme_minimal() +
  labs(title = "Distribution of Salary Levels in HR Dataset") +
  theme(axis.text.x = element_blank(), axis.ticks = element_blank())