我不认为在ggpaired中有办法做到这一点，但重要的是要认识到，ggpaired只是geom_boxplot和geom_line的 Package 器，带有一些准备的数据争论和主题选择，所有这些我们都可以自己完成以获得所需的结果：

library(tidyverse)

box_df <- df %>%
  pivot_longer(Before:After, names_to = "Condition", values_to = "Value") %>%
  mutate(Condition = factor(Condition, c("Before", "After")))

joining_lines <- df %>%
  count(Before, After) %>%
  mutate(line_group = row_number()) %>%
  pivot_longer(Before:After, names_to = "Condition", values_to = "Value") %>%
  mutate(Condition = factor(Condition, c("Before", "After")))

ggplot(box_df, aes(Condition, Value)) +
  geom_boxplot() +
  geom_count() +
  geom_line(aes(group = line_group, linewidth = n), data = joining_lines) +
  theme_classic(base_size = 16) +
  scale_linewidth(range = c(0.25, 1.5)) +
  theme(legend.position = "top")

字符串

的数据

数据举例

set.seed(1)

df <- data.frame(Before = rbinom(40, 10, 0.5), After  = rbinom(40, 10, 0.75))

型