版權聲明：本文為博主原創文章，未經博主允許不得轉載。 https://blog.csdn.net/qq_35242986/article/details/69503875 </div><link rel="stylesheet" href="https://csdnimg.cn/release/phoenix/template/css/ck_htmledit_views-f57960eb32.css"><link rel="stylesheet" href="https://csdnimg.cn/release/phoenix/template/css/ck_htmledit_views-f57960eb32.css"><div class="htmledit_views" id="content_views">

R語言做柱狀圖大致有兩種方法， 一種是基礎庫里面的 barplot函數， 另一個就是ggplot2包里面的geom_bar

此處用的是字符變量 統計其各頻數，然后做出其柱狀圖。（橫軸上的標簽顯示不全）

t <- sort(table(dat1$L), decreasing = TRUE) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?#將頻數表進行排序
r <- barplot(t, col = "blue",
? ? ? ? ? ? ?main = "柱狀圖", ylim = c(0,12), names.arg = dimnames(t) ? ? ? ? #畫字符變量的柱狀圖?
tmp <- as.vector(t) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? #將頻數變成一個向量
text(r, tmp, label = tmp, pos = 3) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?#加柱子上面的標簽

或用ggplot2包 （目前仍沒有給柱子上加數字標簽）

library(ggplot2) ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?#加載ggplot2包 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
reorder_size <- function(x) {
? factor(x, levels = names(sort(table(x))))
} ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? #自定義函數，獲取因子型變量的因子類型
p <- ggplot(dat3, aes(reorder_size(LAI))) + ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?#用因子變量做基礎底圖，也可直接用reorder排序
? geom_bar(fill = "blue") + ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?#畫柱狀圖
? theme(axis.text.x = element_text(angle = 45, hjust = 0.5, vjust = 0.5)) + ? ? ?#讓橫軸上的標簽傾斜45度
? xlab("柱狀圖") ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?#給x軸加標簽

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的原 R语言柱状图排序和x轴上的标签倾斜的全部內容，希望文章能夠幫你解決所遇到的問題。

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