Test

library(ggplot2)
custom_col <- c("red", "green", "orange")
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)

library('dplyr')

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

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library('tidyr')

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

library('readr')

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

library('stringr')

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

library('forcats')

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

library('modelr')

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

knitr::opts_chunk$set(echo = TRUE)

setwd("C:/Users/ASUS/Desktop/R Files")
train <- read.csv('train.csv')

summary(train)

##  PassengerId.Survived.Pclass.Name.Sex.Age.SibSp.Parch.Ticket.Fare.Cabin.Embarked
##  Length:891                                                                     
##  Class :character                                                               
##  Mode  :character

library(ggplot2)
custom_col <- c("blue", "yellow", "purple")