Quiero crear en R un gráfico similar al que se muestra a continuación para mostrar dónde se encuentra una determinada persona o compañía en relación con sus compañeros. La puntuación siempre será entre 1 y 100.

Aunque estoy dispuesto a cualquierggplot solución me pareció que la mejor manera sería utilizargeom_rect y luego para adaptar y agregar la punta de flecha descrita en la respuesta de baptiste aesta pregunta. Sin embargo, me quité algo más simple: obtener elgeom_rect para rellenar correctamente con un degradado como el que se muestra en la guía a la derecha de la gráfica a continuación. Esto debería ser fácil. ¿Qué estoy haciendo mal?

library(ggplot2)
library(scales)

mydf <- data.frame(id = rep(1, 100), sales = 1:100)

ggplot(mydf) +
    geom_rect(aes(xmin = 1, xmax = 1.5, ymin = 0, ymax = 100, fill = sales)) +
    scale_x_discrete(breaks = 0:2, labels = 0:2) +
    scale_fill_gradient2(low = 'blue', mid = 'white', high = 'red', midpoint = 50) +
    theme_minimal()