Plot средних значений в одном участке

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

Buth выход не даже близко.

Я также смотрел на это связывает 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))