问题描述
最近，我从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 