R语言数据展现——柱形图,点图,饼图,直方图

2018.11.16 10:33
481 0 0

  上文为大家介绍的是R语言中的线图与时间序列谱图,相信大家已经对R语言有一定的了解了,接下来小编就给大家说说关于柱形图,点图,饼图,直方图。

  一、柱形图

  install.packages("RColorBrewer") #if not already installed

  library(RColorBrewer)

  citysales<-read.csv("citysales.csv")

  barplot(as.matrix(citysales[,2:4]), beside=TRUE,legend.text=citysales$City,

  args.legend=list(bty="n",horiz=TRUE),

  col=brewer.pal(5,"Set1"),

  border="white",ylim=c(0,100),

  ylab="Sales Revenue (1,000's of USD)",

  main="Sales Figures")

  box(bty="l")

柱形图.png

  二、用堆叠效果展示百分比

  citysalesperc<-read.csv("citysalesperc.csv")

  par(mar=c(5,4,4,8),xpd=T)

  barplot(as.matrix(citysalesperc[,2:4]),

  col=brewer.pal(5,"Set1"),border="white",

  ylab="Sales Revenue (1,000's of USD)",

  main="Percentage Sales Figures")

  legend("right",legend=citysalesperc$City,bty="n",

  inset=c(-0.3,0),fill=brewer.pal(5,"Set1"))

用堆叠效果展示百分比.png

  三、调整柱形图的宽度,间隔和颜色

  barplot(as.matrix(citysales[,2:4]),beside=TRUE,

  legend.text=citysales$City,args.legend=list(bty="n",horiz=T),

  col=c("#E5562A","#491A5B","#8C6CA8","#BD1B8A","#7CB6E4"),

  border=FALSE,space=c(0,5),ylim=c(0,100),ylab="Sales Revenue(1,000's of USD)",

  main="Sales Figures")

调整柱形图的宽度,间隔和颜色.png

  四、在柱子顶端显示数据

  x<-barplot(as.matrix(citysales[,2:4]),beside=TRUE,legend.text=citysales$City,

  args.legend=list(bty="n",horiz=TRUE),col=brewer.pal(5,"Set1"),border="white",

  ylim=c(0,100),ylab="Sales Revenue (1,000's of USD)",main="Sales Figures")

  y<-as.matrix(citysales[,2:4])

  text(x,y+2,labels=as.character(y))

在柱子顶端显示数据.png

  五、标注误差

  sales<-t(as.matrix(citysales[,-1]))

  colnames(sales)<-citysales[,1]

  x<-barplot(sales,beside=T,legend.text=rownames(sales),

  args.legend=list(bty="n",horiz=T),

  col=brewer.pal(3,"Set2"),border="white",ylim=c(0,100),

  ylab="Sales Revenue (1,000's of USD)",main="Sales Figures")

  arrows(x0=x,y0=sales*0.95,x1=x,y1=sales*1.05,angle=90,code=3,length=0.04,lwd=0.4)

标注误差.png

  六、点图

  install.packages("reshape")

  library(reshape)

  sales<-melt(citysales)

  sales$color[sales[,2]=="ProductA"] <- "red"

  sales$color[sales[,2]=="ProductB"] <- "blue"

  sales$color[sales[,2]=="ProductC"] <- "violet"

  dotchart(sales[,3],labels=sales$City,groups=sales[,2],col=sales$color,pch=19,

  main="Sales Figures",xlab="Sales Revenue (1,000's of USD)")

点图.png

  七、饼图

  browsers<-read.table("browsers.txt",header=TRUE)

  browsers<-browsers[order(browsers[,2]),]

  pie(browsers[,2],labels=browsers[,1],clockwise=TRUE,radius=1,col=brewer.pal(7,"Set1"),

  border="white",main="Percentage Share of Internet Browser usage")

饼图.png

  八、一组直方图

  panel.hist <- function(x, ...)

  {

  par(usr = c(par("usr")[1:2], 0, 1.5) )

  hist(x,prob=TRUE,add=TRUE,col="black",border="white")

  }

  plot(iris[,1:4],

  main="Relationships between characteristics of iris flowers",

  pch=19,col="blue",cex=0.9,diag.panel=panel.hist)

一组直方图.png

  关于R语言数据展现——柱形图,点图,饼图,直方图的讲述就到这里了,上述的内容只是截取了资料中的一部分,如需获取完整的资料,可通过关注微信公众号后联系客服获取。

  想要了解更多的资料、信息,可持续关注我们,我们将为大家提供有价值、有需求的材料。为大家在整理数据时省去烦恼。

投诉文章 ©著作权归作者所有
喜欢  |  0
0/200字
没有更多评论了~
悬赏问题
给科研问题设置一定金额,将更容易获得关注与回答哦~
  • 1元
  • 3元
  • 5元
  • 8元
  • 18元
  • 自定义
选择支付方式
  • 微信支付
  • 支付宝支付
  • 余额支付

旗下网站

晟斯医学- 临床医生学术科研发展平台 2014-2019 晟斯医学版权所有
Copyright © 2014-2019 晟斯医学 All Rights Reserved. 备案号:苏ICP备11037034号-5 版权所有:南京孜文信息咨询有限公司