Chú thích ggplot2 với các chữ viết tắt

Question

Làm cách nào để bao gồm một siêu ký tự trong chú thích ggplot? Tôi muốn hiển thị Rsuperscript2 = somevalue tôi đã cố gắng sử dụng phân tích cú pháp = TRUE bên trong chú thích .. Nó đã cho tôi = Rsuperscript2, somevalue thay

lm1 <- lm(dData$RF ~ dData$Exp -1) 
lb1 <- paste("R^2 = ", round(summary(lm1)$r.squared,4)) 
p1 <- ggplot(dData, aes(x=dData$Exp, y=dData$RF)) + 
    scale_x_continuous("Experimental") + 
    scale_y_continuous("Predicted") + 
    geom_point() + geom_smooth(method="lm") + 
    annotate("text", x=max(dData$Exp), y=min(dData$RF)+1, label=lb1, 
      hjust=1, size=3, vjust=1) 

Answer 1

Là vấn đề với superscript hay với dấu bằng? Chuyển sang == trong biểu thức, với parse=TRUE hoạt động đối với tôi. Không có số dData, đây là ví dụ giả.

lb1 <- paste("R^2 == ", round(runif(1),4)) 
qplot(1:10, 1:10) + 
    annotate("text", x=2, y=8, label=lb1, parse=TRUE)