Gggplot grid将所有内容排列成一行，看起来就像一个无缝绘图

编程问答 2022-08-14

问题描述

我正在尝试从here实施解决方案。不幸的是，我无法上载嵌套的构面软件包，并无法尝试通过使用gridextra软件包来格式化构面标题。

但是，我似乎无法弄清楚该怎么做，就是将所有图形都放在一行上，因为它看起来就像是一张条形图。需要以某种方式修改此行：grid.arrange(.,ncol = 1)。在我的数据中，所有图的大小均相等，每个图都有两个数据点。

借入的代码是：

library(ggplot2)
library(gridExtra)
library(dplyr)

dat <-
  structure(list(Species = c("Acanthocyclops robustus","Acroperus harpae","Alona affinis","Ascaphus truei","Bosmina longirostris"),Intercept = c(-36.1182388331068,-27.2140776216155,-25.7920464721491,-39.2233884219763,-31.4301301084581
  ),B = c(0.919397836908493,0.716601987210452,0.685455190113372,1.04159758611351,0.81077051300147),Bconf = c(0.407917065756464,0.181611850119198,0.254101713856315,0.708582768458448,0.234313394549538
  ),Order = c("Cyclopoida","Diplostraca","Anura","Diplostraca"),Family = c("Cyclopidae","Chydoridae","Leiopelmatidae","Bosminidae")),.Names = c("Species","Intercept","B","Bconf","Order","Family"),row.names = c(NA,5L),class = "data.frame")

dat

# A ggplot object with NO data.  Omit the order from the facet_grid call
g <- 
  ggplot() +
  aes(Species,B) +
  geom_point() +
  facet_grid(. ~ Family,scales = "free",space = "free") +
  ylim(range(dat$B)) +
  xlab("")

# Build a seperate graphic for each Order and title
plots <-
  lapply(unique(dat$Order),function(o) {
           g %+% dplyr::filter_(dat,~ Order == o) + ggtitle(o)
             })

# build as Grobs and plot via gridExtra::grid.arrange
plots %>%
  lapply(ggplotGrob) %>%
  arrangeGrob(grobs = .) %>%
  grid.arrange(.,ncol = 1)

enter image description here

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

ggplot2gridextrarr