0415.R

#讀取資料，命名為"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","country")     

###類別資料分析###

#問題：各縣市流浪動物數量長條圖
#次數分配表
t <- table(x$type,x$color)
t

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

barplot(t)

barplot(t, beside =T )

#加上圖例與上色
rownames(t)

## [1] "狗" "貓"

label <- rownames(t)
label

## [1] "狗" "貓"

barplot(t,
        beside =T , 
        legend.text =label,
        xlab = "size",
        main = "犬與貓毛色分析的長條圖",
        sub = "by Yong-Sheng",
        col =c(39,11))