一步完成ggplot facet_wrapping多个数据帧[r]

Question

我想问的是，是否仍可以使用一步来facet_wrap转换数据之前和之后的一个数据帧？

我在这里提供示例：

library(tidyverse)
library(gridExtra)

A <- 
  mtcars %>% 
  ggplot(aes(gear, qsec)) + 
  geom_boxplot(aes(group = gear)) + 
  coord_flip() + 
  facet_wrap(~"Before")


# Removing outliers using Inter quantile ranger

B <- 
  mtcars %>% 
  group_by(gear) %>% 
  mutate(
    Q1 = quantile(qsec)[[2]],
    Q2 = quantile(qsec)[[3]],
    Q3 = quantile(qsec)[[4]],
    IQR = Q3 - Q1, 
    MIN = Q1 - 1.5*IQR,
    MAX = Q3 + 1.5*IQR) %>% 
  filter(
    qsec >= MIN,
    qsec <= MAX) %>% 
  ungroup() %>% 
  ggplot(aes(gear, qsec)) + 
  geom_boxplot(aes(group = gear), outlier.colour = NA) + 
  coord_flip() + 
  facet_wrap(~"After Outlier remov")



grid.arrange(A, B)

是否可以仅使用ggplot而不是gridextra复制此内容？

Answer 1

使用btnContainer.addEventListener('click', function handler(e) { if (!e.target.matches('[class^="btn-Ans"]')) { return; } btnContainer.removeEventListener('click', handler); if (e.target.innerHTML === correctAnswer) { score++; } console.log(score); ChangeQuestions(); }); 并进行一些调整并将其添加到您的代码中，您可以通过结合A和B的data.frame创建大型data.frame来解决问题，如下所示：

btnContainer

结果：

通过为所有图表设置离群值的颜色=黑色，离群值确实会出现在您的“ B”图中（但是我想您已经意识到了这一点）...

希望它会有所帮助