R 单个绘图中的绘图平均值

我想在一个图中画一个单条，这样看起来就像下图

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

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

但输出甚至不接近

我也看过这些链接

---

因此，我的输出应该与第一张图片类似。我想这可以解决ggplot问题。

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

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))

---

如果我这样做，您需要设置xlim而不是ylimIf，因为我的图形看起来像是垂直放置的。请缩短绘图窗口：

x11（高度=2）

如果其他所有操作都失败，请在

par（mar=c（12,2,12,2））的纹理中手动构建它；绘图（0，type=“n”，ylim=c（-1，1），xlim=c（02000），yaxt=“n”，bty=“n”，ylab=NA，xlab=“label”）；rect（0，-.7，value_mean，.7，col=“red”，border=NA）

@lukeA，您如何添加均值标签，如第一张图片中的值88？我尝试过使用文本（value_-mean，cex=3，pos=3），但这没有帮助。以及如何添加从0:200开始的序列，如第一张图片中所示？

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))