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)

plot(statistic,math,
     pch = 19,
     col= "skyblue",
     main ="statistic vs math",
     xlab ="statistic",
     ylab ="math")

statistic <- c(68,85,74,88,63,78,90,80,58,63)
hist(statistic,
     col= "lightgreen",
     main ="統計成績直方圖",
     xlab ="統計成績",
     ylab ="人數")