categories <- c("公益活動", "科學創新", "體育競技", "知識閱讀","娛樂休閒")
counts <- c(25, 28, 36, 82,185)
barplot(counts, names.arg=categories, main="大學生最喜歡參加的社團長條圖", col="lightcoral", border="black")