Untitled

``` # Load ggplot2 library(ggplot2)

Create data

data <- data.frame( name=c(“紅茶”,“奶茶”,“多多綠”,“珍奶”,“水果冰茶”) ,
fre=c(55,57,65,74,45) )

Barplot

ggplot(data, aes(x=name, y=fre)) + geom_bar(stat = “identity”, width=0.2，col=“purple”)