绘制单个图中的平均值

Question

我想在图表中绘制单个条形图，因此它看起来像下面的图片

我创建了测试数据并计算其平均值。

value <- c(99,44,100,120,88)
value_mean <- mean(value)

使用下面的代码

绘制它们

barplot(value_mean, horiz=T, width=30, cex.names=0.5 ,ylim=c(0,200), col="red")

但是输出结果甚至不接近。

我也看过这个链接 Single bar barchart in ggplot2, R R Barplot with one bar - how to plot correctly

所以我的输出应该像第一张图片。我以为可以解决ggplot。

Answer 1

如果其他一切都失败了，你可以画一个像这样的矩形：

par(mar = c(12, 2, 12, 2))
plot(0, type="n", ylim=c(-1, 1), xlim=c(0, 200), axes = F, bty = "n",ylab="", xlab="label")
rect(0, -.7, value_mean, .7, col="red", border=NA)
text(value_mean, 0, pos=4, label=value_mean)
axis(1, at=seq(0, 200, by=40))