數學成績 <- c(85,91,74,100,82,84,78,100,51,70)

統計成績 <- c(68,85,74,88,63,78,90,80,58,63)

 
plot(數學成績,統計成績,
     pch = 17,
     col= "skyblue",
     main ="統計成績與數學成績",
     xlab ="數學成績",
     ylab ="統計成績 ")

abc <- c(68,85,74,88,63,78,90,80,58,63)
hist(abc,
     col= "lightyellow",
     main ="統計成績",
     xlab ="statistic",
     ylab ="")

data<- c(185,82,36,28,25)
labels <- c("休閒娛樂","知識閱讀","體育競技","科學創新","公益活動")
pie(data,labels,main ="參加社團比率", col=terrain.colors(length(data)))