r - 创建一个填充文本的矩形

Question

我想在 R 中创建一个填充矩形，白色文本居中，并将其导出为 png。我知道 rect() 函数可能可以做到这一点，但我见过的每个示例都将矩形打印在绘图上。有没有办法在没有情节的情况下做到这一点？

作为引用，我正在构建一个blogdown() 站点并尝试创建一个看起来与Hugrid 中的那些几乎相同的正方形。主题。

Answer 1

您可以使用 geom_rect() 创建矩形，并使用 geom_text() 将文本粘贴到其中。在 ggplot2 中修改矩形外观(颜色、线条大小或类型)很容易。您所要做的就是使用 theme_classsic() 和 element_blank() 删除默认的 ggplot2 外观。

# Generate dummy dataset
foo <- data.frame(x1 = 1, x2 = 2, y1 = 1, y2 = 2,
                  text = paste(letters[1:3], letters[1:3], collapse = "\n"))

# Plot rectangle with text
library(ggplot2)
ggplot(foo) +
    geom_rect(aes(xmin = x1, xmax = x2, ymin = y1, ymax = y2),
              color = "black", size = 2, fill = "lightblue") +
    geom_text(aes(x = x1 + (x2 - x1) / 2, y = y1 + (y2 - y1) / 2,
                  label = text),
              size = 20) +
    theme_classic() +
    theme(axis.line  = element_blank(),
          axis.ticks = element_blank(),
          axis.text  = element_blank(),
          axis.title = element_blank())