#activate the package
library(ggplot2)


#load the dataframe
type <- c("O+", "A+", "B+", "AB+", "O-", "A-", "B-", "AB-")
proportion <- c(33.2,	41.6,	6.8,	3.4,	5.8,	7.4,	1.2,	0.6)
my.dataframe <- data.frame(type, proportion)
my.dataframe

#stacked bar plot
ggplot(my.dataframe, aes(x="", y=proportion, fill=type))+
  geom_col()

#pie plot
ggplot(my.dataframe, aes(x="", y=proportion, fill=type))+
  geom_col() +
  coord_polar("y")

#better colors
ggplot(my.dataframe, aes(x="", y=proportion, fill=type))+
  geom_col() +
  scale_fill_viridis_d() +
  coord_polar("y")

#remove "axis"
ggplot(my.dataframe, aes(x="", y=proportion, fill=type))+
  geom_col() +
  scale_fill_viridis_d() +
  coord_polar("y")+
  theme_void()