Question

我试图把三块土地合并为三个小组,一个数字。由于三个小组在轴心上拥有相同数据,我谨去除第1和2号地的轴和标签。然而,我遇到了一个问题,即1和2号地块的地块面积远远大于对地块的面积。 3. 。我如何确定这一点?

library(ggplot2)
library(ggpubr)

# Generate synthetic data
set.seed(123)
df1 <- data.frame(x = 1:10, y = rnorm(10))
df2 <- data.frame(x = 1:10, y = rnorm(10))
df3 <- data.frame(x = 1:10, y = rnorm(10))

# Create plots
p1 <- ggplot(df1, aes(x, y)) + geom_point() + labs(title = "Plot 1")
p2 <- ggplot(df2, aes(x, y)) + geom_point() + labs(title = "Plot 2")
p3 <- ggplot(df3, aes(x, y)) + geom_point() + labs(title = "Plot 3")

# Arrange plots using ggarrange
ggarrange(
  p1 + rremove(c("x.text")) + rremove("xlab"),
  p2 + rremove("x.text") + rremove("xlab"),
  p3,
  labels = c("A", "B", "C"),
  common.legend = TRUE,
  legend = "bottom",
  nrow = 3
)

Answer 1

您可使用<代码>facet_Function in ggplot 2。

library(dplyr)
library(ggplot2)

set.seed(123)
df1 <- data.frame(x = 1:10, y = rnorm(10)) %>% mutate(facet = "A")
df2 <- data.frame(x = 1:10, y = rnorm(10)) %>% mutate(facet = "B")
df3 <- data.frame(x = 1:10, y = rnorm(10)) %>% mutate(facet = "C")

df <-
  bind_rows(df1,df2,df3)

df %>% 
  ggplot(aes(x, y)) + geom_point() +
  facet_wrap(facets = vars(facet),ncol = 1)+
  theme(panel.spacing = unit(0, lines ))

Answer 2

头两块地的数字区面积较大,因为你搬走了轴心。飞机自动调节地高度,以尽量减少白色空间(地块之间的空地)。

你们可以人工调整3块地的高度,具体如下:

ggarrange(
  p1 + rremove(c("x.text")) + rremove("xlab"),
  p2 + rremove("x.text") + rremove("xlab"),
  p3,
  labels = c("A", "B", "C"),
  nrow = 3,
  heights = c(1, 1, 1.25) # <- Make the third one 25% taller than the others.
)

25%是审判和错误,因为在确定地块之前,不可能轻易确定最佳价值。

友情链接