Come disegnare una bella freccia in ggplot2

Question

Sto creando un grafico ggplot dove voglio avere delle frecce tra due punti. L'attività principale è facilmente eseguibile con geom_line(arrow = arrow()). Tuttavia, voglio avere alcune "belle" frecce spesse. Il ridimensionamento della freccia tramite size= non aiuta poiché danneggia completamente la punta della freccia. Illustro i miei problemi:

creare alcuni dati di esempio e una trama:

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

Il grafico risultante è simile:

Ora ho cercato di "addensare" la frecce ...

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) 

Questo è il risultato mostrato qui:

La mia domanda: C'è un modo per tracciare alcune "belle" frecce di spessore?

Answer 1

Io di solito uso geom_segment per creare la freccia. Ma per farlo dobbiamo modificare i dati dal formato "lungo" al formato "largo" (in genere utilizzando dcast dal pacchetto reshape2 o data.table). Ma questa volta ho provato a utilizzare la funzione base di reshape.

ggplot(DATA, aes(x=VALUE, y=NAME)) + 
    geom_point(size=5, aes(colour=YEAR)) + 
    geom_segment(data = reshape(DATA, v.names="VALUE", idvar = "NAME", timevar = "YEAR", direction = "wide"), 
       aes(x=VALUE.2011, xend=VALUE.2016, y=NAME, yend=NAME), size = 2, 
       arrow = arrow(length = unit(0.5, "cm"))) 

EDIT: ho trovato che stesso problema riguarda per tipo frecce "chiuse". Per ora, prova a salvare la trama come un grafico vettoriale (pdf o svg, usando ggsave o il menu Esporta nella scheda Plots). Il risultato non è "disordinato".

Answer 2

Nell'ultimo (e intendo devtools::install_github("tidyverse/ggplot2") ultima, al momento di scrivere questa risposta - Sono sicuro che Mainline abbastanza presto) versione di ggplot2, c'è un argomento linejoin-geom_segment. L'utilizzo di linejoin='mitre' fornirà bordi nitidi. Vedi lo following for details.