首页 > 其他 > 详细

R中基本统计图

时间:2016-08-03 16:58:12      阅读:399      评论:0      收藏:0      [点我收藏+]

一、条形图

1.安装包install.packages("vcd");

library(vcd);
count<-table(Arthritis$Improved);#table统计病人的提高情况(表格化)。
barplot(count,main="Bar plot",xlab="Imrovement",ylab="count")#水平图
barplot(count,main="Bar plot",xlab="Imrovement",ylab="count",horiz=TRUE)#垂直图
#分组条形图
count<-table(Arthritis$Improved,Arthritis$Treatment);
barplot(count,main = "堆砌条形图",xlab="Treatment",ylab="F",col=c("red","yellow","green"),legend=rownames(count));
barplot(count,main = "分组条形图",xlab="Treatment",ylab="F",col=c("red","yellow","green"),legend=rownames(count),beside=TRUE);
spine(count,main="Spinogram Example");#

技术分享
#饼图pie(x,labels)
count<-table(Arthritis$Improved);#table统计病人的提高情况(表格化)。
pie(count);
count
library("plotrix")
lab<-c("none","some","marked");
pie3D(count,labels = lab,explode = 0.1);#三维拼图

技术分享
##直方图
par(mfrow=c(2,1));
dat<-A$Age
hist(dat);#最简单的直方图
hist(dat,
     breaks = 20,
     col = "green",
     xlab = "age",
     ylab = "cout",
     main = "ages")
rug(dat)#添加轴点;
lines(density(dat),col="red",lwd=2)#添加轴线
x<-dat;
box();

技术分享
#核密度图plot(density)
par(mfrow=c(2,1));
plot(density(dat));
polygon(density(dat),col="red",border="blue");#填充颜色
rug(dat,col="brown");
box();

技术分享
#箱图boxplot(最小值,下四分位数,中位数,上四分位数,最大值)
boxplot(A,notch=TRUE);#中notch为画出凹图
boxplot.stats(dat);

技术分享
##小提琴图整体貌似小提琴,外部形状为核密度估计。
install.packages("vioplot");
library(vioplot)
vioplot(A$Age,A$ID,names=c("age","ID"),col="red");

技术分享
#点图dotchart(x,labels=)
dotchart(dat);

技术分享

 

R中基本统计图

原文:http://www.cnblogs.com/whb-20160329/p/5733555.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!