Untitled

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

my_colors <- c("gray", "purple", "green", "pink", "black")

ggplot(data, aes(x = 社團類型, y = 次數)) +
  geom_segment(aes(x = 社團類型, xend = 社團類型,
                   y = 0, yend = 次數),
               linewidth = 1.2, color = "gray40") +
  geom_point(aes(color = 社團類型), size = 6) +
  scale_color_manual(values = my_colors) +
  theme_minimal(base_size = 15) +
  labs(title = "大學生最喜歡參加社團次數",
       x = "社團類型",
       y = "次數") +
  theme(legend.position = "none")