Untitled
2025-04-16
# Load ggplot2
library(ggplot2)
# Create data
data <- data.frame(
type=c("娛樂休閒","知識閱讀","體育競技","科學創新","公益活動") ,
times=c(185,82,36,28,25)
)
# Barplot
ggplot(data, aes(x=type, y=times)) +
geom_bar(stat = "identity")
# Load ggplot2
library(ggplot2)
# Create data
data <- data.frame(
type=c("娛樂休閒","知識閱讀","體育競技","科學創新","公益活動") ,
times=c(185,82,36,28,25)
)
# Barplot
ggplot(data, aes(x=type, y=times)) +
geom_bar(stat = "identity")