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()