条形图中的中心标签

Question

我有3000个观测值的分类数据。感兴趣的输出是条形图，在每个条形上方打印有相应的值。不幸的是，R仅呈现未对齐的值，并且似乎将这些值相对于与将条放置在其位置的参考系统不对应的参考系统进行映射。我不知道可能是哪个参考系统。

以下MEW反映了我的代码：

rm(list=ls())
a <- rep(x = "I agree", times = 3)
b <- rep(x = "I am indifferent", times = 5)
c <- rep(x = "I disagree", times = 2)
d <- c(a, b, c)
e <- factor(d, levels = c("I disagree", "I am indifferent", "I agree"))
f <- table(e)
barplot(f)
g <- as.data.frame(f)
text(x = g$e, y = g$Freq, labels = g$Freq)

这将产生图形输出

可以看到，频率计数数字并未居中。由于图的高度，中间条的数字明显被切碎。

我将MEW中的数据分解，因为当处理实际数据集时，这是从3000个观测值中按升序（从负到正）排序图形输出的必要步骤。

如何将这些值水平居中并调整垂直位置？预先感谢！