Untitled
2026-10-27
library(RColorBrewer)
myPalette <- brewer.pal(5, "Set2")
# Create Data
Prop2 <- c(3,7,9,1)
# Make the default Pie Plot
pie(Prop2, labels = c("新爵士","音樂社","舞","直笛"), border="gold", col=myPalette)
library(RColorBrewer)
myPalette <- brewer.pal(5, "Set2")
# Create Data
Prop2 <- c(3,7,9,1)
# Make the default Pie Plot
pie(Prop2, labels = c("新爵士","音樂社","舞","直笛"), border="gold", col=myPalette)