Untitled

library(ggplot2)

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


ggplot(data, aes(x = 社團類型, y = 次數)) +
  geom_bar(stat = "identity", fill = "steelblue") + labs(title = "社團類型次數分配長條圖", x = "社團類型", y = "次數") +
  theme_minimal() + theme(text = element_text(size = 15))