Untitled

data <- data.frame(社團類型 = c("娛樂休閒", "知識閱讀", "體育競技", "科學創新", "公益活動"),
  次數 = c(185, 82, 36, 28, 25))

my_colors <- c("orange", "skyblue", "pink", "lightgreen", "purple")

pie(data$次數,labels = data$社團類型,main = "社團類型次數分配圓餅圖",col = my_colors)