0327.R

#讀取資料，命名為"money"-----
#一、下載money_management.csv，讀入Rstudio，命名為money
money<- read.csv("money_management.csv", stringsAsFactors = TRUE)
#二、快速檢視money的摘要資訊----
summary(money)

##        id      gender      grade     pocket_money    savings      家用    
##  college: 66   女:116   一年級: 53   否:187       Min.   :    0   否:209  
##  NDU    :201   男:151   二年級:192   是: 80       1st Qu.: 2000   是: 58  
##                         三年級: 16                Median : 5000           
##                         四年級:  6                Mean   : 5511           
##                                                   3rd Qu.: 8000           
##                                                   Max.   :30000           
##  記帳    
##  否:158  
##  是:109  
##          
##          
##          
## 

colnames(money)

## [1] "id"           "gender"       "grade"        "pocket_money" "savings"     
## [6] "家用"         "記帳"

#三、不同年級(grade)人數的百分比為何？請依人數排列----------
table(money$grade)

## 
## 一年級 二年級 三年級 四年級 
##     53    192     16      6

prop.table(table(money$grade))

## 
##     一年級     二年級     三年級     四年級 
## 0.19850187 0.71910112 0.05992509 0.02247191

t <- prop.table(table(money$grade))
t*100

## 
##    一年級    二年級    三年級    四年級 
## 19.850187 71.910112  5.992509  2.247191

round(t,2)

## 
## 一年級 二年級 三年級 四年級 
##   0.20   0.72   0.06   0.02

#四、不同年級(grade)的家用習慣差異為何？請以「長條圖」表示-----
p.s1 <- prop.table(table(money$家用,money$grade))*100
p.s1 <- round(p.s1,2)
par(mfrow =c(1,2)   )
rownames(p.s1)

## [1] "否" "是"

label <- rownames(p.s1)
label

## [1] "否" "是"

barplot(p.s1, main = "大學生家用習慣",
        beside = TRUE,
        legend.text = label,
        col =c("red","blue"))
barplot(p.s1, main = "大學生家用習慣" ,
        legend.text = label,
        col =c("red","blue"))

dev.off()

## null device 
##           1

#五、不同身份(id)的記帳習慣差異為何？請以「圖餅圖」表示-----
p.t1 <- table(money$id,money$記帳)
f <- p.t1[1,]
m <- p.t1[2,]
p.t1

##          
##            否  是
##   college  32  34
##   NDU     126  75

college<- p.t1[1,] 
NDU<- p.t1[2,]
college

## 否 是 
## 32 34

NDU

##  否  是 
## 126  75

par(mfrow =c(1, 2))
pie(college, main ="大學生記帳")

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '否' 發生錯誤：<e5>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '否' 發生錯誤：<90>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '否' 發生錯誤：<a6>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : Unicode 字元 U+5426 不帶字型度量

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '是' 發生錯誤：<e6>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '是' 發生錯誤：<98>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '是' 發生錯誤：<af>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : Unicode 字元 U+662f 不帶字型度量

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<e5>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<a4>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<a7>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<e5>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<ad>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<b8>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<e7>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<94>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<9f>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<e8>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<a8>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<98>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<e5>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<b8>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<b3>代替了 dot

pie(NDU, main ="NDU記帳")

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '否' 發生錯誤：<e5>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '否' 發生錯誤：<90>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '否' 發生錯誤：<a6>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : Unicode 字元 U+5426 不帶字型度量

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '是' 發生錯誤：<e6>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '是' 發生錯誤：<98>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '是' 發生錯誤：<af>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : Unicode 字元 U+662f 不帶字型度量

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 'NDU記帳'
## 發生錯誤：<e8>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 'NDU記帳'
## 發生錯誤：<a8>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 'NDU記帳'
## 發生錯誤：<98>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 'NDU記帳'
## 發生錯誤：<e5>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 'NDU記帳'
## 發生錯誤：<b8>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 'NDU記帳'
## 發生錯誤：<b3>代替了 dot

pie_category <- colnames(p.t1)
college_label <- paste(pie_category, college,"%", sep = "")
college_label

## [1] "否32%" "是34%"

NDU_label <- paste(pie_category, NDU,"%", sep = "")
NDU_label

## [1] "否126%" "是75%"

par(mfrow =c(1, 2))
pie(college, labels = college_label, main = "大學生記帳",sub = "by yihong")

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '否32%' 發生錯誤：<e5>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '否32%' 發生錯誤：<90>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '否32%' 發生錯誤：<a6>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : Unicode 字元 U+5426 不帶字型度量

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '是34%' 發生錯誤：<e6>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '是34%' 發生錯誤：<98>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '是34%' 發生錯誤：<af>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : Unicode 字元 U+662f 不帶字型度量

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<e5>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<a4>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<a7>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<e5>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<ad>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<b8>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<e7>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<94>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<9f>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<e8>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<a8>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<98>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<e5>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<b8>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 '大學生記帳'
## 發生錯誤：<b3>代替了 dot

pie(NDU, labels = NDU_label, main = "NDU記帳" ,sub = "by yihong")

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '否126%' 發生錯誤：<e5>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '否126%' 發生錯誤：<90>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '否126%' 發生錯誤：<a6>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : Unicode 字元 U+5426 不帶字型度量

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '是75%' 發生錯誤：<e6>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '是75%' 發生錯誤：<98>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : 'mbcsToSbcs' 裡轉換 '是75%' 發生錯誤：<af>代替了 dot

## Warning in text.default(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, adj =
## ifelse(P$x < : Unicode 字元 U+662f 不帶字型度量

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 'NDU記帳'
## 發生錯誤：<e8>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 'NDU記帳'
## 發生錯誤：<a8>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 'NDU記帳'
## 發生錯誤：<98>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 'NDU記帳'
## 發生錯誤：<e5>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 'NDU記帳'
## 發生錯誤：<b8>代替了 dot

## Warning in title(main = main, ...): 'mbcsToSbcs' 裡轉換 'NDU記帳'
## 發生錯誤：<b3>代替了 dot

dev.off()

## null device 
##           1