Untitled

Statistic<- c(68,85,74,88,63,78,90,80,58,63)

Math <- c(85,91,74,100,82,84,78,100,51,70)


mean(Math)

## [1] 81.5

plot(Statistic,Math,
     pch=17,
     col="orange",
     xlab="統計成績",
     ylab="數學成績",
     main="班級的統計成績與數學成績")

# Load ggplot2
library(ggplot2)
# Load ggplot2
library(ggplot2)

# Create data
data <- data.frame(
  名字=c("王曉明","B","C","D","E","F","G","H","I","J") ,  
  統計=c(68,85,74,88,63,78,90,80,58,63)
  )

# Barplot
ggplot(data, aes(x=名字, y=統計)) + 
  geom_bar(stat = "identity", width=0.2,  fill="skyblue")