是否可以在facet_grid中使用geom_table？

如何解决是否可以在facet_grid中使用geom_table？

最近，我从ggpmisc软件包中发现了函数geom_table()，该函数可让您将表格放入绘图中。但是我不知道如何将不同的表格放入网格图中。

我有这个df并绘图：

library(lubridate)
library(ggplot2)
library(ggpmisc)

Date <- c("2010-01-28","2010-02-28","2010-03-28","2010-04-28","2010-05-28","2010-06-28","2010-07-28","2010-08-28","2010-09-28","2010-10-28")

Date <- as_date(Date)

Country <- rep("Japan",10)
A <- runif(10,min=30,max=90)
B <- runif(10,min = 1,max = 15)


df <- data.frame(Date,Country,A,B)


df %>% pivot_longer(-c(Date,Country)) %>%
  ggplot(aes(x=Date,y=value,group=1,color=Country))+ 
  geom_line(size = 0.9) +
  facet_grid(name~Country,scales = "free",switch = "y") 

我还有两个表，tableA和tableB：

Time <- c("Today","Yesterday","One week ago")

Value_A <- 10:12
Value_B <- 1:3

tableA <- data.frame(Time,Value_A)
tableB <- data.frame(Time,Value_B)
  

如何将tableA放在顶部图形中并将tableB放在底部图形中？

如果有人可以提供帮助，我表示感谢：）

解决方法

您需要创建一个小的数据框，以在列表列中托管=query('Criteria Source'!A2:J5,"select J where B = '"&D9&"' and C = '"&D10&"' and E = '"&D11&"' and D ='"& D2 & "' ",0) 和tableA：

tableB