# 建立資料
club_type <- c("娛樂休閒", "知識閱讀", "體育競技", "科學創新", "公益活動")
frequency <- c(185, 82, 36, 28, 25)

# 加上標籤
labels <- paste(club_type, "(", frequency, ")", sep="")

# 繪製圓餅圖
pie(frequency,
    labels = labels,
    main = "大學生最喜歡參加的社團類型（圓餅圖）",
    col = rainbow(length(frequency)))