Jak podkreślić tekst w tytule lub etykiecie? (ggplot2)

Question

Proszę wybaczyć moją ignorancję, jeśli jest to proste pytanie, ale nie mogę wymyślić, jak podkreślić jakąkolwiek część tytułu fabuły. Używam ggplot2.

Najlepsze, co mogłem znaleźć, to: annotate("segment") done by hand. Stworzyłem działkę z zabawkami, aby zilustrować jej metodę.

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

Spróbuj tego:

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

Alternatywnie, jak BondedDust zwraca uwagę w komentarzach, można uniknąć połączenia paste() całkowicie, ale uważaj na for:

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

czy inaczej, nawet krótszy podejście zaproponowane przez Jana Chrzciciela, który nie korzysta expression, paste() lub wiele tyld:

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