415.R

library(readr)#用library呼叫套件
#讀取資料，命名為"x"
x <- read.csv("strays.csv", stringsAsFactors = TRUE)
summary(x)

##        id         type      gender      size        color        age     
##  Min.   : 26250   狗:1048   F:534   BIG   :181   咖啡色: 13   ADULT:886  
##  1st Qu.: 50182   貓:  34   M:548   MEDIUM:713   白色  : 26   CHILD:196  
##  Median :129335                     SMALL :188   花色  : 88              
##  Mean   :120020                                  虎斑色:104              
##  3rd Qu.:179406                                  黃色  :249              
##  Max.   :248935                                  黑色  :602              
##                                                                          
##      county   
##  新北市 :220  
##  南投縣 :188  
##  高雄市 :172  
##  臺南市 : 97  
##  臺北市 : 84  
##  桃園市 : 74  
##  (Other):247

colnames(x) #檢視欄位名稱

## [1] "id"     "type"   "gender" "size"   "color"  "age"    "county"

colnames(x) <- c("id", "type", "gender", "size", "color", "age", "county")
table(x$type)#算次數

## 
##   狗   貓 
## 1048   34

t<-table(x$type,x$county)
rownames(t)

## [1] "狗" "貓"

label <- rownames(t)
label

## [1] "狗" "貓"

barplot(t, 
        sub = "by 陳薏親", 
        beside = T, 
        legend.text =label, 
        col =c(26,1))

r<-table(x$color,x$type)
barplot(r)

barplot(r, beside = T   )

rownames(r)

## [1] "咖啡色" "白色"   "花色"   "虎斑色" "黃色"   "黑色"

label <- rownames(r)
label

## [1] "咖啡色" "白色"   "花色"   "虎斑色" "黃色"   "黑色"

barplot(r, 
        sub = "by 陳薏親", 
        beside = T, 
        legend.text =label, 
        col =c(33,18,1,5,12,20))

c<-table(x$type,x$color)
c

##     
##      咖啡色 白色 花色 虎斑色 黃色 黑色
##   狗     13   26   75     93  246  595
##   貓      0    0   13     11    3    7

p.c <- prop.table(c)
p.c

##     
##           咖啡色        白色        花色      虎斑色        黃色        黑色
##   狗 0.012014787 0.024029575 0.069316081 0.085951941 0.227356747 0.549907579
##   貓 0.000000000 0.000000000 0.012014787 0.010166359 0.002772643 0.006469501

#將次數變成百分比(乘以100)
p.c <-p.c*100 
p.c

##     
##          咖啡色       白色       花色     虎斑色       黃色       黑色
##   狗  1.2014787  2.4029575  6.9316081  8.5951941 22.7356747 54.9907579
##   貓  0.0000000  0.0000000  1.2014787  1.0166359  0.2772643  0.6469501

#四捨五入至小數2位
p.c <- round(p.c,2)
p.c

##     
##      咖啡色  白色  花色 虎斑色  黃色  黑色
##   狗   1.20  2.40  6.93   8.60 22.74 54.99
##   貓   0.00  0.00  1.20   1.02  0.28  0.65

d <- p.c[1,] # 女性資料
a <- p.c[2,] # 男性資料
d

## 咖啡色   白色   花色 虎斑色   黃色   黑色 
##   1.20   2.40   6.93   8.60  22.74  54.99

a

## 咖啡色   白色   花色 虎斑色   黃色   黑色 
##   0.00   0.00   1.20   1.02   0.28   0.65

# par()是圖形控制函數，mfrow = c(1,2)表示建立一個1x2的空間，用來呈現後續的圖1列2欄
par(mfrow = c(1,2)   )
pie(d, main ="狗"   )
pie(a, main = "貓")

dev.off() 

## null device 
##           1