您好,登錄后才能下訂單哦!
首先載入顏色擴(kuò)展包RColorBrewer,具體使用方法可參見(jiàn)下面兩篇文章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ù)解釋可參見(jiàn)以下博客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
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。