Come sottolineare il testo in un titolo o etichetta? (ggplot2)

Question

Per favore perdona la mia ignoranza se questa è una domanda semplice, ma non riesco a capire come sottolineare qualsiasi parte di un titolo di trama. Sto usando ggplot2.

Il meglio che ho trovato era annotate("segment") done by hand e ho creato una trama giocattolo per illustrare il suo metodo.

df <- data.frame(x = 1:10, y = 1:10) 

rngx <- 0.5 * range(df$x)[2] # store mid-point of plot based on x-axis value 
rngy <- 0.5 * range(df$y)[2] # stores mid-point of y-axis for use in ggplot 

ggplot(df, aes(x = x, y = y)) + 
    geom_point() + 
    ggtitle("Oh how I wish for ...") + 
    ggplot2::annotate("text", x = rngx, y = max(df$y) + 1, label = "underlining!", color = "red") + 
    # create underline: 
    ggplot2::annotate("segment", x = rngx-0.8, xend = rngx + 0.8, y= 10.1, yend=10.1) 

uses bquote(underline() with base R

pertains to lines over and under nodes on a graph

uses plotmath and offers a workaround, but it didn't help

Answer 1

Prova questo:

ggplot(df, aes(x = x, y = y)) + geom_point() + 
    ggtitle(expression(paste("Oh how I wish for ", underline(underlining)))) 

In alternativa, come sottolinea BondedDust nei commenti, è possibile evitare la chiamata paste() del tutto, ma attenzione per la for:

ggplot(df, aes(x = x, y = y)) + geom_point() + 
    ggtitle(expression(Oh~how~I~wish~'for'~underline(underlining))) 

O un altro approccio ancora più breve suggerito da Baptiste che non utilizza expression, paste() o le numerose tilde:

ggplot(df, aes(x = x, y = y)) + geom_point() + 
    ggtitle(~"Oh how I wish for "*underline(underlining))