Estoy creando unggplot cuadro donde quiero tener algunas flechas entre dos puntos. La tarea principal se realiza fácilmente congeom_line(arrow = arrow()). Sin embargo, quiero tener algunas flechas "hermosas" gruesas. Cambiar el tamaño de la flecha a través desize= no ayuda ya que arruina la punta de la flecha por completo. Ilustra mis problemas:

Crea algunos datos de muestra y un diagrama:

 NAME <- c("A", "A", "B", "B", "C", "C")
 YEAR <- c(2016, 2011, 2016, 2011, 2016, 2011)
 YEAR <- as.factor(YEAR)
 VALUE <- c(1, 4, 1, 5, 2, 8)
 DATA <- data.frame(NAME, YEAR, VALUE)

ggplot(DATA, aes(x=VALUE, y=NAME)) + 
  geom_point(size=5, aes(colour=YEAR)) +
  geom_line(arrow = arrow(length=unit(0.30,"cm"), ends="first", type = "closed"))

La trama resultante se ve así:

Ahora he tratado de "engrosar" las flechas ...

ggplot(DATA, aes(x=VALUE, y=NAME)) + 
  geom_point(size=5, aes(colour=YEAR)) +
  geom_line(arrow = arrow(length=unit(0.30,"cm"), ends="first", type = "closed"), size = 3)

Ese es el resultado que se muestra aquí:

Mi pregunta: ¿hay alguna forma de trazar algunas flechas gruesas "hermosas"?