R語言柱狀圖排序和x軸上的標簽傾斜操作

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)                                #加柱子上面的標簽

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軸加標簽

#openxlsx讀入為data.frame
class(data)
#轉換
library(tidyverse)
godata<-as_tibble(godata)
class(godata)
#原始數據篩選（category,term，pval)散列，按照category，-log10(pval)排序
data<-godata%>%select(category,term,pval)%>%arrange(category,desc(-log10(pval)))
#畫圖時改變geom_bar的自動排序
data$term<-factor(data$term,levels = unique(data$term),ordered = T)
#作圖
ggplot(data)+
 geom_bar(aes(x=term,y=-log10(pval),fill=category),stat = 'identity')+
 coord_flip()