Untitled
2025-04-11
# Load ggplot2
library(ggplot2)
# Create data
data <- data.frame(
name=c("娛樂","知識","體育","D","E") ,
value=c(185,82,36,18,45)
)
# Barplot
ggplot(data, aes(x=name, y=value)) +
geom_bar(stat = "identity", width=0.2) 
# Load ggplot2
library(ggplot2)
# Create data
data <- data.frame(
name=c("娛樂","知識","體育","D","E") ,
value=c(185,82,36,18,45)
)
# Barplot
ggplot(data, aes(x=name, y=value)) +
geom_bar(stat = "identity", width=0.2)