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=17,col="blue",main="統計及數學成績散佈圖",xlab="統計成績",ylab="數學成績")

hist(Math,
     col= "lightyellow",
     main ="數學成績直方圖",
     xlab ="數學",
     ylab ="人數")

library(ggplot2)
library(ggplot2)

data <- data.frame(
  name=c("公益活動","知識閱讀","科學創新","娛樂休閒","體育競技") ,  
  value=c(25,82,28,185,36)
  )

ggplot(data, aes(x=name, y=value)) + 
  geom_bar(stat = "identity", width=0.2,  fill="skyblue") 

data<- c(25,82,28,185,36)
labels <- c("公益活動","知識閱讀","科學創新","娛樂休閒","體育競技")

pie(data,labels,main ="參加社團次數比例", col=heat.colors(length(data)))

club_type <- c("娛樂休閒", "知識閱讀", "體育競技", "科學創新", "公益活動")
frequency <- c(185, 82, 36, 28, 25)

plot(frequency,
     type = "n",  # 不先畫點
     xaxt = "n",  # 不畫 x 軸
     main = "大學生最喜歡參加的社團類型",
     xlab = "社團類型",
     ylab = "次數",
     ylim = c(0, max(frequency) + 20))

segments(x0 = 1:5, y0 = 0, x1 = 1:5, y1 = frequency, col = "black", lwd = 2)

points(1:5, frequency, pch = 16, col = "red", cex = 2)

axis(1, at = 1:5, labels = club_type)

library(readxl)
test <- read_excel("D:/456.xlsx")
stem(test$Japanese)

## 
##   The decimal point is 1 digit(s) to the right of the |
## 
##   4 | 9
##   5 | 139
##   6 | 13
##   7 | 9
##   8 | 49
##   9 | 1

mean(test$Japanese)

## [1] 67.9

median(test$Japanese)

## [1] 62

as.numeric(names(table(test$Japanese)))[which.max(table(test$Japanese))]

## [1] 49

sd(test$Japanese)

## [1] 16.25115

var(test$Japanese)

## [1] 264.1