#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
ggplot(my.dataframe, aes(x="", y=proportion, fill=type))+
  geom_col() +
  scale_fill_viridis_d()

#stacked bar with space
ggplot(my.dataframe, aes(x=2, y=proportion, fill=type))+
  geom_col(width=1) +
  xlim(0.5, 2.5) +
  scale_fill_viridis_d()

#donut plot
ggplot(my.dataframe, aes(x=2, y=proportion, fill=type))+
  geom_col(width=1) +
  xlim(0.5, 2.5) +
  scale_fill_viridis_d() +
  coord_polar("y")


ggplot(my.dataframe, aes(x=2, y=proportion, fill=type))+
  geom_col(width=1) +
  xlim(0.5, 2.5) +
  scale_fill_viridis_d() +
  coord_polar("y") +
  theme_void()