在R中的条形图上添加数字

我试图在R中的条形图上添加数字

下面是我的代码，但是我怎么能把数字放在每个条的中心和顶部呢

> F <- c(2, 4, 5, 7, 4)
> barplot(F, main="Report Freqencies", xlab="Freqencies", ylab="Number", ylim=c(0,10), names.arg=c("Daily","Weekly","Monthly", "Quarterly", "Semi-Annual"), border="dark green", density=c(70, 70, 70, 70, 70)) 

> text(F, labels = format(F,5), pos = 3, cex = 0.75)

我的代码导致图形分散。

在创建图形后，几个图（例如条形图和箱线图）实际上会以不可见的方式返回一个值。如果您想查看正在使用的某个特定函数是否返回有用的内容，您应该阅读该函数的帮助文档。在这种情况下，helpbarplot将为您提供：

价值：

数值向量或矩阵，当'next=TRUE'时，表示'mp'， 给出绘制的所有条形中点的坐标，非常有用 用于添加到图表中

所以，对于条形图，它返回一个矩阵，其中点x值为五个条形：

F <- c(2, 4, 5, 7, 4)
bp <- (barplot(F, ylim=c(0,10),
               main="Report Freqencies", xlab="Freqencies", ylab="Number",
               names.arg=c("Daily","Weekly","Monthly", "Quarterly", "Semi-Annual"),
               border="dark green", density=c(70, 70, 70, 70, 70)))
bp
##      [,1]
## [1,]  0.7
## [2,]  1.9
## [3,]  3.1
## [4,]  4.3
## [5,]  5.5
text(bp, F, labels = format(F,5), pos = 3, cex = 0.75)

---

你说的数字是什么意思？你是指数字还是图像？是的，很抱歉弄混了。数字数字