具有多个顶部的等间距

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

一个简单的解决方案是避免使用表达式，使用 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)

Answer 2

你可以使用 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)

具有多个顶部的等间距

Equal spacing with multiple atop

r

ggplot2

plotmath