生活中的統計期中作業

題目一：輸入資料並繪製散佈圖

題目：請輸入統計成績與數學成績資料，並繪製散佈圖。

Statistic <- c(68,85,74,88,63,78,90,80,58,63)
Math      <- c(85,91,74,100,82,84,78,100,51,70)
data <- data.frame(Statistic,Math)
data

##    Statistic Math
## 1         68   85
## 2         85   91
## 3         74   74
## 4         88  100
## 5         63   82
## 6         78   84
## 7         90   78
## 8         80  100
## 9         58   51
## 10        63   70

ggplot(data,aes(x=Statistic,y=Math))+
 geom_point(color="steelblue",size=4)+
 ggtitle("統計成績 vs 數學成績散佈圖")+
 xlab("統計成績")+
 ylab("數學成績")

題目二：繪製直方圖

題目：請繪製統計或數學成績直方圖。

ggplot(data,aes(Math))+
 geom_histogram(bins=5,fill="orange",color="black")+
 ggtitle("數學成績直方圖")+
 xlab("數學成績")+
 ylab("次數")

題目三：長條圖（依表 5.2 正確資料）

題目：請依表格資訊繪製長條圖（不用相對次數）。

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

##      Class Freq
## 1 娛樂休閒  185
## 2 知識閱讀   82
## 3 體育競技   36
## 4 科學創新   28
## 5 公益活動   25

ggplot(df,aes(Class,Freq))+
 geom_col(fill="skyblue")+
 ggtitle("大學生最喜歡的社團長條圖")+
 xlab("社團類別")+
 ylab("次數")

題目四：圓餅圖（依表 5.2 正確資料）

題目：請依同一表格資料繪製圓餅圖。

df$percent <- df$Freq/sum(df$Freq)

ggplot(df,aes(x="",y=percent,fill=Class))+
 geom_col(width=1)+
 coord_polar(theta="y")+
 ggtitle("大學生最喜歡的社團圓餅圖")

題目五：棒棒糖圖（依表 5.2 正確資料）

題目：請依同一表格資料繪製棒棒糖圖。

ggplot(df,aes(Class,Freq))+
 geom_segment(aes(xend=Class,y=0,yend=Freq),color="gray40")+
 geom_point(size=5,color="red")+
 ggtitle("大學生最喜歡的社團棒棒糖圖")+
 xlab("社團類別")+
 ylab("次數")

題目六：Japanese 統計量

題目：請讀取 table1_1.csv 求 Japanese 的平均數、中位數、標準差、變異數、Q1。

data2 <- read.csv("table1_1.csv")
Japanese <- data2$Japanese

mean(Japanese,na.rm=TRUE)

## [1] 67.9

median(Japanese,na.rm=TRUE)

## [1] 62

sd(Japanese,na.rm=TRUE)

## [1] 16.25115

var(Japanese,na.rm=TRUE)

## [1] 264.1

quantile(Japanese,0.25,na.rm=TRUE)

##  25% 
## 54.5