等於多個頂部的間距

Question

我正嘗試在一個ggplot2圖中創建一個圖例，每行上有多行和一個參數和值。由於我將符號作爲變量，因此需要使用expression來完成。爲了創建新的線條，我使用了多個atop命令，但這會導致最後一行中的間距不均勻。請參閱我下面的例子：

library(ggplot2) 

N = 25 

a = -5 
b = 2 
sigma = 1 

x = runif(N, 0, 10) 
y = a + x * b + rnorm(N, sd = sigma) 

df = data.frame(x, y) 

ggplot(df, aes(x, y)) + 
    geom_point() + 
    geom_label(aes(x = 1, y = max(y) - 2), 
      label = paste0("atop(atop(", 
          "textstyle(a == ", a, "),", 
          "textstyle(b == ", b, ")),", 
          "textstyle(sigma == ", sigma, "))" 
      ), parse = TRUE 
) 
ggsave("plotmath_atop.png", width = 6, height = 4, scale = 1) 

這給出了以下情節： 正如你所看到的，線b=2和\sigma=1之間的間隔明顯比線a=-5和b=2之間的間距較大。

有沒有一種方法使用expression多行換行，而每行之間仍然有間距？

Answer 1

你可以使用gridExtra :: tableGrob，

library(gridExtra) 
library(grid) 

table_label <- function(label, params=list()) { 

    params <- modifyList(list(hjust=0, x=0), params) 

    mytheme <- ttheme_minimal(padding=unit(c(1, 1), "mm"), 
          core = list(fg_params = params), parse=TRUE) 
    disect <- strsplit(label, "\\n")[[1]] 
    m <- as.matrix(disect) 
    tg <- tableGrob(m, theme=mytheme) 
    bg <- roundrectGrob(width = sum(tg$widths) + unit(3, "mm"), height = sum(tg$heights) + unit(3, "mm")) 
    grobTree(bg, tg) 

} 

txt <- 'a == -5\n 
     b == 2\n 
     sigma == 1' 


library(ggplot2) 

qplot(1:10,1:10) + 
    annotation_custom(table_label(txt), xmin=0, xmax=5, ymin=7.5) 

Answer 2

一個簡單的解決方案是避免使用表達式，使用unicode字符\ u03c3打印sigma字母，並使用\ n打斷行。

library(ggplot2) 
N = 25 
a = -5 
b = 2 
sigma = 1 
df = data.frame(runif(N, 0, 10), a + x * b + rnorm(N, sd = sigma)) 

lab <- paste0("a = ", a, "\n", 
       "b = ", b, "\n", 
       "\u03c3 = ", sigma) 

ggplot(df, aes(x, y)) + 
geom_point() + 
geom_label(aes(x = 1, y = max(y) - 2), label = lab, parse = FALSE) 

ggsave("plot_multiline_label.png", width = 6, height = 4, scale = 1)