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= "#69b3a2",
     main ="統計成績直方圖",
     xlab ="統計成績",
     ylab ="人數")

library(ggplot2)

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

ggplot(data, aes(x=社團類型, y=次數)) + 
  geom_bar(stat = "identity", width=0.2, fill="#69b3a2")

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

pie(data,labels,main ="社團活動參與次數", col = c("#B15E6C", "#CF8BA9", "#DCB6D5", "#B3B3F1", "#CEC2FF")) 

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

ggplot(data, aes(x = 社團類型, y = 次數)) +
  geom_segment(aes(x = 社團類型, xend = 社團類型, y = 0, yend = 次數),
               color = "#69b3a2", size = 1.2) +
  geom_point(size = 7, shape = 21,
             fill = "#69b3a2",
             color = "#69b3a2", stroke = 1.5)

## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

 Data <- read.csv("c:\\Users\\zoe95\\OneDrive\\桌面\\table1_1.csv")
stem(Data$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

Data <- read.csv("c:\\Users\\zoe95\\OneDrive\\桌面\\table1_1.csv")

mean(Data$Japanese)

## [1] 67.9

median(Data$Japanese)

## [1] 62

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

## [1] 49

sd(Data$Japanese)

## [1] 16.25115

quantile(Data$Japanese,1/4)

##  25% 
## 54.5

quantile(Data$Japanese,3/4)

##   75% 
## 82.75