怎么用R語言繪制柱狀圖

這篇文章主要介紹“怎么用R語言繪制柱狀圖”，在日常操作中，相信很多人在怎么用R語言繪制柱狀圖問題上存在疑惑，小編查閱了各式資料，整理出簡單好用的操作方法，希望對大家解答”怎么用R語言繪制柱狀圖”的疑惑有所幫助！接下來，請跟著小編一起來學習吧！

具體R語言代碼如下：

注意本代碼的主題為cowplot主題適合SCI文章發表，并設置了x軸刻度標簽傾斜；

library(reshape2)
local({r <- getOption("repos")  ;r["CRAN"] <- "http://mirrors.tuna.tsinghua.edu.cn/CRAN/" ;options(repos=r)}) 
library(ggplot2)
library(cowplot)
library(RColorBrewer)




pairjoin <- function(x){ 
  ran=paste(head(x,-1), tail(x,-1), sep="-")
  ran[length(ran)]=">100"
  ran
  }

# use the base hist() function to calculate BINs  ，超過100的數值歸類到一起；
data[data>100]=101
MassStat <- with(hist(data, breaks=seq(0, 110, by = 10), plot=FALSE), 
                data.frame(N=counts, Mass=pairjoin(breaks), PCT=counts/sum(counts)))
MassStat
MassStat$Mass=factor(MassStat$Mass,levels = MassStat$Mass,order=T)
pm=ggplot(data=MassStat, aes(x=Mass, y=PCT*100)) +
  geom_bar(fill="#4DAF4A",alpha = .9, stat="identity",width=0.8) +
  guides(fill=FALSE)+
  theme(legend.key = element_blank(),legend.title = element_blank(),
        axis.text.x = element_text(angle=70, vjust=0.5)
  )+  xlab("Protein mass (kDa)")+ylab("Percent(%)") +ggtitle("Protein mass distribution")

到此，關于“怎么用R語言繪制柱狀圖”的學習就結束了，希望能夠解決大家的疑惑。理論與實踐的搭配能更好的幫助大家學習，快去試試吧！若想繼續學習更多相關知識，請繼續關注億速云網站，小編會繼續努力為大家帶來更多實用的文章！