Untitled

# Load ggplot2
library(ggplot2)

# Create data
data <- data.frame(
  student=c("王曉明","B","C","D","E") ,  
  frequency=c(60,55,75,48,45)
  )

# Barplot
ggplot(data, aes(x=student, y=frequency)) + 
  geom_bar(stat = "identity",width=0.3,fill="red",color="blue")