---

title: “Untitled” output: html_document date: “2025-04-18”

library(ggplot2)

# Create data
data <- data.frame(type=c("娛樂休閒","知識閱讀","體育競技","科學創新","公益活動"), times=c(185,82,36,28,25))
 
# Plot
ggplot(data, aes(x=type, y=times)) +
  geom_point() + 
  geom_segment( aes(x=type, xend=type, y=0, yend=times))