保持轴标签具有相同的限制（无自由轴）但删除内部标签 facet_wrap2（ggh4x）

Question

我有一个看起来不错的 facet_wrap； 但是，我只想拥有带有实际数值数据的外部线和带有刻度线的内部图形线。 我不确定是否有办法做到这一点 第一个图像是在幻灯片中编辑的所需 plot，第二个是需要更改的 R plot。

我目前的代码是

ggline(ACE2data2, x = "Time", y = "Fluorescence") +
  labs(x = "Time (min)", y = "RFU Ex/Em 320/420nm") +
  theme(axis.title.x = element_text(size = 22)) +
  theme(axis.title.y = element_text(size = 22)) +
  facet_wrap2(~ Dilution,
              nrow = 5,
              ncol = 4,
              axes = "all") +
  force_panelsizes(rows = unit(4, "cm"), cols = unit(4, "cm")) +
  coord_cartesian(ylim = c(0, 10000)) +
  theme(strip.text.x = element_blank(), strip.background = element_blank())

真诚感谢任何帮助：！ 提前非常感谢:)

Answer 1

由于您已经在使用ggh4x ，您可以通过ggh4x::facetted_pos_scales实现您想要的结果，它允许为每个面板单独设置比例。 这样做可以删除上面板行的标签。 要完成这项工作，您还必须设置scales="free_x" 。

由于您没有提供示例数据，因此我使用了一些假数据作为代表。 因此，您必须调整条件以过滤上面板：

library(ggplot2)
library(ggpubr)
library(ggh4x)

ACE2data2 <- data.frame(
  Dilution = rep(1:20, each = 10),
  Time = 1:10,
  Fluorescence = 1:10
)

ggline(ACE2data2, x = "Time", y = "Fluorescence") +
  labs(x = "Time (min)", y = "RFU Ex/Em 320/420nm") +
  theme(axis.title.x = element_text(size = 22)) +
  theme(axis.title.y = element_text(size = 22)) +
  facet_wrap2(~ Dilution,
              nrow = 5,
              ncol = 4,
              axes = "all", scales = "free_x") +
  force_panelsizes(rows = unit(4, "cm"), cols = unit(4, "cm")) +
  #coord_cartesian(ylim = c(0, 10000)) +
  theme(strip.text.x = element_blank(), strip.background = element_blank()) +
  facetted_pos_scales(x = list(
    (Dilution > 16) ~ scale_x_continuous(),
    (!Dilution > 16) ~ scale_x_continuous(labels = NULL)
  ))

Answer 2

如果您的比例是固定的，更简单的解决方案是使用remove_labels = "all" 。

无耻地窃取 stefan 的虚拟数据：

library(ggplot2)
library(ggpubr)
library(ggh4x)

ACE2data2 <- data.frame(
  Dilution = rep(1:20, each = 10),
  Time = 1:10,
  Fluorescence = 1:10
)

ggline(ACE2data2, x = "Time", y = "Fluorescence") +
  labs(x = "Time (min)", y = "RFU Ex/Em 320/420nm") +
  theme(axis.title.x = element_text(size = 22)) +
  theme(axis.title.y = element_text(size = 22)) +
  facet_wrap2(
    ~ Dilution, nrow = 5, ncol = 4,
    axes = "all", remove_labels = "all"
  ) +
  force_panelsizes(rows = unit(4, "cm"), cols = unit(4, "cm")) +
  theme(strip.text.x = element_blank(), 
        strip.background = element_blank())