在X轴GGPLOT上的每个第二个标签之间添加空间或断开空间

Question

如何在GGPLOT中X轴上的每个第二个标签之间添加一个空间或破裂，以在每组平台（FB，IG和TW）之间引入一定距离？

如果我尝试在数据框架中添加空白行，则ggplot将它们删除（即使在添加drop = false false scale_x_discrete之后）。

我也不想通过节省更大的图形来解决此问题（因为变量比我在此处包含的变量更多）。

这是代码：

Platform <- c("FB Left-wing", "FB Right-wing",
              "IG Left-wing", "IG Right-wing",
              "TW Left-wing", "TW Right-wing")

Ideology <- c("Left", "Right", "Left", "Right","Left", "Right")

CI_low <- c(1.049, 0.906, 1.212, 0.989, 1.122, 1.080)
CI_high <- c(1.299, 1.144, 1.483, 1.235, 1.362, 1.335)
CI_mid <- c(1.167, 1.018, 1.340, 1.105, 1.236, 1.201)

dat_figure <- data.frame(Platform, Ideology, CI_low, CI_high, CI_mid)

figure <- ggplot(dat_figure, aes(x = Platform, y = CI_mid, colour = Ideology)) + 
  scale_colour_manual(values = c("blue", "red")) +
  geom_pointrange(aes(ymin = CI_low, ymax = CI_high)) + 
  ylim(0, 4) + 
  ylab("Odds Ratio") + 
  xlab("Platform and Ideology") + 
  theme_bw() 

figure

和输出：

我想在'fb右翼和左右之间添加一个空间 - 翼'和“ IG右翼和TW左翼”。

谢谢。

Answer 1

该解决方案并不是您所要求的，但是我认为这是可视化数据结构的一种方法：

library(ggplot2)

Platform <- c("FB Left-wing", "FB Right-wing",
              "IG Left-wing", "IG Right-wing",
              "TW Left-wing", "TW Right-wing")

Party <- c("FB", "FB", "IG", "IG", "TW", "TW")
  
Ideology <- c("Left", "Right", "Left", "Right","Left", "Right")

CI_low <- c(1.049, 0.906, 1.212, 0.989, 1.122, 1.080)
CI_high <- c(1.299, 1.144, 1.483, 1.235, 1.362, 1.335)
CI_mid <- c(1.167, 1.018, 1.340, 1.105, 1.236, 1.201)

dat_figure <- data.frame(Platform, Party, Ideology, CI_low, CI_high, CI_mid)

ggplot(dat_figure, aes(x = Party, y = CI_mid, colour = Ideology)) + 
  scale_colour_manual(values = c("blue", "red")) +
  geom_pointrange(aes(ymin = CI_low, ymax = CI_high), position = position_dodge(0.5)) + 
  ylim(0, 4) + 
  ylab("Odds Ratio") + 
  xlab("Platform and Ideology") + 
  theme_bw() 

Answer 2

显示分类数据的一种常见方法是对其进行设定。这里为facet创建了媒体列。

library(tidyverse)

dat_figure <- dat_figure %>% mutate(media = sub("\\s.*", "", Platform))

ggplot(dat_figure, aes(x = Platform, y = CI_mid, colour = Ideology)) + 
  scale_colour_manual(values = c("blue", "red")) +
  geom_pointrange(aes(ymin = CI_low, ymax = CI_high)) + 
  ylim(0, 4) + 
  ylab("Odds Ratio") + 
  xlab("Platform and Ideology") + 
  theme_bw() +
  facet_wrap(. ~ media, scale = "free")

^{在2022-05-18上由 reprex软件包（v2.0.1）}