如何在R中更改geom_table()中列标题的颜色？

Question

我使用ggpmisc包中的geom_table()函数将一个表图例添加到我的图形中。我想删除第一行中带有列标题的灰色。

library(ggpmisc)
library(tidyverse)

mtcars %>%
  group_by(cyl) %>%
  summarize(wt = mean(wt), mpg = mean(mpg)) %>%
  ungroup() %>%
  mutate(wt = sprintf("%.2f", wt),
         mpg = sprintf("%.1f", mpg)) -> tb

df <- tibble(x = 5.45, y = 34, tb = list(tb))

ggplot(mtcars, aes(wt, mpg, colour = factor(cyl))) +
  geom_point() +
  geom_table(data = df, aes(x = x, y = y, label = tb),
             table.theme = ttheme_gtbw) 

​

​

Answer 1

您可以使用从ggpmisc传递给来自gridExtra的相应ttheme函数的参数(一些可能选项的Description)来设置主题。如果我没理解错的话，您希望表中第一行的背景是白色的。您可以使用以下代码来构建您的绘图：

ggplot(mtcars, aes(wt, mpg, colour = factor(cyl))) +
    geom_point() +
    geom_table(data = df, aes(x = x, y = y, label = tb),
               table.theme = ttheme_gtbw(colhead = list(bg_params = list(fill = "white"))))

​

​