# --- Create dummy data
piechart <- data.frame(Labels = c("Heterosexual females",
"Heterosexual males",
"MSM",
"Unknow"),
Values = c(1633,2937,15342,2854))
# --- Plot the dummy data
plotPie(piechart,
xvar = "Values",
labels = "Labels")
Run the code above in your browser using DataLab