netplix

setwd("C:/Users/ThinkPad/Documents/Vde")

netflix <- read.csv("netflix_titles.csv", header = T)

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.3.3

custom_col <- c("blue","yellow")
ggplot(netflix, aes(x= "", fill = factor(type))) +
  geom_bar(width = 1) +
  theme(axis.line = element_blank(),
        plot.title = element_text(hjust=0.5, size=22)) +
  labs(fill="class",
       x=NULL,
       Y=NULL,
       title="Pie Chart of Netflix shows") +
  coord_polar(theta = "y", start = 0) +
  scale_fill_manual(values = custom_col)