#0415期中考 #讀入”strays.csv” #一、各縣市流浪動物數量長條圖 #二、犬與貓的體型(或毛色)分析的長條圖 #三、犬與貓的體型(或毛色)分析的圓餅圖

install.packages(“readr”)#第一次使用需安裝 library(readr) x <- read.csv(“strays.csv”, stringsAsFactors = TRUE) summary(x)

#一、各縣市流浪動物數量長條圖

table(x\(type)#算次數 table(x\)county)

t <- table(x\(type,x\)county) t barplot(t) barplot(t, beside = T )

rownames(t) label <- rownames(t) label#文字向量 barplot(t, beside =T , sub =“by 王逸倫”, legend.text = label , col = c(30,225),)

#二、犬與貓的體型(或毛色)分析的長條圖

table(x$color)

t.c <- table(x\(type,x\)color) t.c barplot(t.c) barplot(t.c, beside = T )

rownames(t.c) label <- rownames(t) label#文字向量 barplot(t.c, beside =T , sub =“by 王逸倫”, legend.text = label , col = c(30,225),)

#三、犬與貓的體型(或毛色)分析的圓餅圖

prop.table(table(x$color))#算百分比

t.c <- table(x\(color,x\)type) t.c<- prop.table(t.c,2) t.c

t.c <- t.c*100 t.c

t.c<- round(t.c,2) t.c f <- t.c[,1] # 女性資料 m <- t.c[,2] # 男性資料 f m

pie(f, main = “狗勾”) pie(m, main = “喵咪”) #dev.off() #離開par()

#畫圓餅圖並加上資料標籤 pie_category <- rownames(t.c) pie_category f_label <- paste(pie_category, f,“%”, sep = ““) f_label m_label <- paste(pie_category, m,”%“, sep =”“) m_label

par(mfrow = c(1,2))# c(1,2)，表示建立一個1x2的空間，用來呈現後續的圖 pie(f, labels = f_label , main = “狗勾”) pie(m, labels = m_label, main = “喵咪” ) dev.off() #離開par()