點圖簡介

點圖又叫Cleveland dot plot,克利夫蘭點圖。可以在水平線上繪制大量的點，更好的表示點之間的關系。強調數據的排序展示以及數據之間的差距。點圖一般是橫向展示，所以y軸為類別型變量，x軸為需要展示的數據值。

dotchart函數

dotchart(x, labels = NULL, groups = NULL, gdata = NULL,ann = par("ann"), xaxt = par("xaxt"), frame.plot = TRUE, log = "",cex = par("cex"), pt.cex = cex,pch = 21, gpch = 21, bg = par("bg"),color = par("fg"), gcolor = par("fg"), lcolor = "gray",xlim = range(x[is.finite(x)]),main = NULL, xlab = NULL, ylab = NULL, ...)

R語言的base包里面自帶的dotchart函數可以繪制點圖。
上面簡介中的例子copy自dotchart的函數幫助文檔。

dotchart(VADeaths, main = "Death Rates in Virginia - 1940")

數據是1940年每1000人的死亡率。數據按照年齡段來區分，并且按照地方，男女性分組。

> VADeathsRural Male Rural Female Urban Male Urban Female 50-54 11.7 8.7 15.4 8.4 55-59 18.1 11.7 24.3 13.6 60-64 26.9 20.3 37.0 19.3 65-69 41.0 30.9 54.6 35.1 70-74 66.0 54.3 71.1 50.0

dot 比較圖

我想比較特定地方的男女死亡率的比較。這樣的話，數據需要處理。下面的code處理的比較麻煩。但是達到了我要的效果。

ruralDFMale <- data.frame(rownames(VADeaths),VADeaths[,1], c("Male","Male","Male","Male","Male")) names(ruralDFMale ) <- c("AgeGroup", "DeathRate","Gender" )ruralDFFeMale <- data.frame(rownames(VADeaths),VADeaths[,2], c("Female","Female","Female","Female","Female")) names(ruralDFFeMale) <- c("AgeGroup", "DeathRate","Gender" )ruralDF <- rbind(ruralDFMale, ruralDFFeMale)colorFun <- function(gender) {colorVec <- vector()for(g in gender) {if(g == "Female") {colorVec <- c(colorVec, "Red")} else {colorVec <- c(colorVec, "Blue")}}colorVec }dotchart(ruralDF$DeathRate, main = "Death Rates in Virginia - 1940", groups=ruralDF$AgeGroup,color=colorFun(ruralDF$Gender))

處理過后的數據

> ruralDFAgeGroup DeathRate Gender 50-54 50-54 11.7 Male 55-59 55-59 18.1 Male 60-64 60-64 26.9 Male 65-69 65-69 41.0 Male 70-74 70-74 66.0 Male 50-541 50-54 8.7 Female 55-591 55-59 11.7 Female 60-641 60-64 20.3 Female 65-691 65-69 30.9 Female 70-741 70-74 54.3 Female

圖中的紅色為女性，藍色為男性。結果符合一般的常識，女性的壽命高于男性。所以同一年齡段的女性死亡率比男性低。

總結

以上是生活随笔為你收集整理的R语言的点图dot plot的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。