library(data.table) # 取得政府資料開放平台資料資源 (file format = csv) data <- fread("http://search.data.gov.tw/wise/query?q=%2A%3A%2A&export=true&format=csv&rows=2147483647&d=1", header="auto", encoding = "UTF-8") # 統計資料分類及分類數量, 統計結果以 data.frame 儲存至 categories categories <- as.data.frame(table(data$服務分類)) # 計算每個分類百分比,取小數點第2位,將結果存於 pct pct <- round(categories$Freq/sum(categories$Freq)*100,2) # 把原來的分類"名稱 百分比 %" 存回原來的名類名稱中 categories$Var1 <- paste(categories$Var1, pct, "%", sep=" ") #繪製圓餅圖 Piechart pie(categories$Freq, labels=categories$Var1, main="政府資料開放平台資料資源", col=rainbow(length(categories$Var1)))
執行結果:
沒有留言:
張貼留言