Làm cách nào để gạch chân văn bản trong tiêu đề hoặc nhãn của ô? (ggplot2)

Question

Hãy tha thứ cho sự thiếu hiểu biết của tôi nếu đây là một câu hỏi đơn giản, nhưng tôi dường như không thể tìm ra cách gạch dưới bất kỳ phần nào của một tiêu đề cốt truyện. Tôi đang sử dụng ggplot2.

Điều tốt nhất tôi có thể tìm thấy là annotate("segment") done by hand và tôi đã tạo một ô đồ chơi để minh họa phương pháp của nó.

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

Hãy thử điều này:

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

Ngoài ra, như BondedDust chỉ ra trong các ý kiến, bạn có thể tránh paste() cuộc gọi hoàn toàn, nhưng xem ra cho các for:

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

Hoặc khác, cách tiếp cận thậm chí ngắn hơn đề nghị của Baptiste mà không sử dụng expression, paste() hoặc nhiều dấu ngã:

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