Блог

Я использую geom_table() функцию из ggpmisc пакета, чтобы добавить легенду таблицы к моему рисунку. Я хочу удалить серый цвет из первой строки с заголовками столбцов.

 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 в соответствующую ttheme функцию из gridExtra (Описание некоторых возможных опций). Если я правильно понял ваш вопрос, вы хотите, чтобы фон первой строки в вашей таблице был белым. Вы можете добиться этого, используя следующий код для построения своего графика:

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