条图如何加上次数？

我用的是barplot,结果如下图：

不知怎样使条条上或里面包括频数，当然也可是频率。像hist那样，加参数labels=T就可以了。
谢谢
结论：

1. library(xlsx)
   
2. data1=read.xlsx("data1.xls",1)
   
3. attach(data1)
   
4. b<-barplot(table(EDU),col="pink",ylim=c(0,180))
   
5. text(b,table(EDU)+5,table(EDU))

复制代码

效果图：

诚挚感谢热心而全能的kaifengedu朋友！

耕耘使者 发表于 2014-3-4 16:20
这是我做的图的代码，你能告诉我如何在上面代码中修改吗？这是个次数条图
而且，我不太理解你的代码中的 ...

1. set.seed(2014)
   
2. EDU <- table(rpois(100, 5))
   
3. bp<-barplot(table(EDU),col="pink")
   
4. text(bp,table(EDU)/2,table(EDU))

复制代码

代码中的x/2是写文字的纵坐标，x是所写的频数。
bp的含义是条形图每个条的中点横坐标，详情参见R语言初学者指南条形图一节。

1. x <- rep(1:4)
   
2. x
   
3. bp <- barplot(x)
   
4. text(bp,x/2,x)

复制代码

kaifengedu 发表于 2014-3-4 14:32

1. data1=read.xlsx("data1.xls",1)
   
2. attach(data1)
   
3. barplot(table(EDU),col="pink")

复制代码

这是我做的图的代码，你能告诉我如何在上面代码中修改吗？这是个次数条图
而且，我不太理解你的代码中的x/2和x，能详细解释一下吗？
多谢！

1. data1=read.xlsx("data1.xls",1)
   
2. attach(data1)
   
3. bp=barplot(table(EDU),col="pink")
   
4. text(bp,as.matrix(EDU)/2,as.matrix(EDU))

复制代码

按楼上方法

yywan0913 发表于 2014-3-4 17:29
按楼上方法

失败

1. data1=read.xlsx("data1.xls",1)
   
2. attach(data1)
   
3. bp=barplot(table(EDU),col="pink")
   
4. y=table(EDU)
   
5. text(bp,as.matrix(y)/2,as.matrix(y))

复制代码

这下应该没错了，掉了个传递参数

赞赞赞，学习了，多谢多谢