install.pckages("data.table")
install.packages("ggplot2")
 
library(ggplot2)
library(data.table)

df <- data.frame(
Names = c("Anu","Bhuvana","Dilip","Harika",
          "Harish","Tarun","Srujan","Sandhya"),
Company = c("Microsoft","Adobe","Adobe",
            "Microsoft","Meta","Meta",
            "Microsoft","Adobe"),
Branch =c("CSE","IT","CSE","CSE","IT",
          "IT","CSE","IT")
)
# Conversion of data frame to data table
dt <- data.table(df)
print(dt)

pie_plot <- ggplot2::ggplot(dt,aes(x=1, y=Branch, fill=Company)) +
            geom_bar(stat="identity", width=2) +
            coord_polar(theta='y') +
            labs(title="Basic Pie Plot using ggplot")
pie_plot

pie_plot <- pie_plot+facet_wrap(~Branch)
pie_plot