R语言绘制横向柱装图-创新互联
淅川网站建设公司创新互联,淅川网站设计制作,有大型网站制作公司丰富经验。已为淅川1000+提供企业网站建设服务。企业网站搭建\外贸营销网站建设要多少钱,请找那个售后服务好的淅川做网站的公司定做!
分享文章:R语言绘制横向柱装图-创新互联
转载源于:http://pwwzsj.com/article/dssgpe.html
首先载入颜色扩展包RColorBrewer,具体使用方法可参见下面两篇文章http://book.2cto.com/201408/45552.html,http://tianxingzhe.blog.51cto.com/3390077/1641199
library(RColorBrewer)
本文以hadoop集群wordcount程序的输出结果为数据源
数据的整理代码如下
x=read.delim("C:/Users/a/Desktop/sample.txt",header=FALSE) #读入文本数据 names(x)=c("word","count") #加表头 x=transform(x, pct=round(x$count/sum(x$count)*100)) #数据框增加百分比列 y=x[order(x[,2],decreasing=T),]#排序 z=x[sample(nrow(x),20,replace=F),]#随机抽样 或者z=head(y,n=11); tail(y,n=11)#抽取前后11行,本例采用了随机抽样绘制横向直方图,详细命令参数解释可参见以下博客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
另外有需要云服务器可以了解下创新互联cdcxhl.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。
分享文章:R语言绘制横向柱装图-创新互联
转载源于:http://pwwzsj.com/article/dssgpe.html