如何更改R中geom_table（）中列标题的颜色？

我正在使用

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) 

库（ggpmisc）
图书馆（tidyverse）
mtcars%>%
组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别组别
汇总（wt=平均值（wt），mpg=平均值（mpg））%>%
解组（）%>%
突变（wt=sprintf（“%.2f”，wt），
mpg=sprintf（“%.1f”，mpg））->tb
df您可以使用从
ggpmisc
传递到
gridExtra
中相应的
t主题
函数的参数设置主题（一些可能的选项）。如果我正确理解了您的问题，您希望表中第一行的背景为白色。您可以使用以下代码构建绘图来实现这一点：

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"))))

您可以使用从
ggpmisc
传递到
gridExtra
的相应
t主题
函数的参数设置主题（一些可能的选项）。如果我正确理解了您的问题，您希望表中第一行的背景为白色。您可以使用以下代码构建绘图来实现这一点：

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"))))

你看过这里吗？：我确实看过，那里没有一个例子说明如何不幸地控制颜色。你看过这里吗？：我看过，那里没有一个例子说明如何不幸地控制颜色。