淅川網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),淅川網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為淅川1000+提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)營銷網(wǎng)站建設(shè)要多少錢，請(qǐng)找那個(gè)售后服務(wù)好的淅川做網(wǎng)站的公司定做！

首先載入顏色擴(kuò)展包RColorBrewer，具體使用方法可參見下面兩篇文章http://book.2cto.com/201408/45552.html，http://tianxingzhe.blog.51cto.com/3390077/1641199

library(RColorBrewer)

本文以hadoop集群wordcount程序的輸出結(jié)果為數(shù)據(jù)源

數(shù)據(jù)的整理代碼如下

x=read.delim("C:/Users/a/Desktop/sample.txt",header=FALSE) #讀入文本數(shù)據(jù) names(x)=c("word","count") #加表頭 x=transform(x, pct=round(x$count/sum(x$count)*100)) #數(shù)據(jù)框增加百分比列                 y=x[order(x[,2],decreasing=T),]#排序 z=x[sample(nrow(x),20,replace=F),]#隨機(jī)抽樣 或者z=head(y,n=11); tail(y,n=11)#抽取前后11行，本例采用了隨機(jī)抽樣

繪制橫向直方圖，詳細(xì)命令參數(shù)解釋可參見以下博客http://blog.csdn.net/rav009/article/details/40149405

代碼如下：

barplot(rev(z$pct),horiz=T,xlim=c(-4,5),axes=F,col=brewer.pal(11, "BrBG")[1:11])   text(seq(from=0.7,length.out=20,by=1.2),x=-0.5,label=rev(z$word))   axis(3,c(0,1,2,3,4,5),c('0%','10%','20%','30%','40%','50%'))

這篇文章大家可以參考參考

http://book.2cto.com/201408/45574.html

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)cdcxhl.cn，海內(nèi)外云服務(wù)器15元起步，三天無理由+7*72小時(shí)售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價(jià)比高”等特點(diǎn)與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。

文章題目：R語言繪制橫向柱裝圖-創(chuàng)新互聯(lián)
瀏覽地址：http://weahome.cn/article/dssgpe.html