怎么用R語言繪制柱狀圖

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

具體R語言代碼如下：

注意本代碼的主題為cowplot主題適合SCI文章發(fā)表，并設(shè)置了x軸刻度標(biāo)簽傾斜；

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的數(shù)值歸類到一起；
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")

到此，關(guān)于“怎么用R語言繪制柱狀圖”的學(xué)習(xí)就結(jié)束了，希望能夠解決大家的疑惑。理論與實踐的搭配能更好的幫助大家學(xué)習(xí)，快去試試吧！若想繼續(xù)學(xué)習(xí)更多相關(guān)知識，請繼續(xù)關(guān)注億速云網(wǎng)站，小編會繼續(xù)努力為大家?guī)砀鄬嵱玫奈恼拢?/p>