r - SAS SGPLOT 或 R ggplot2 - 为同一图生成单独的组件

Question

我想生成一个使用 SAS 或 R 附加的图。Y 轴的刻度为 1 到 100 作为连续值（中断为 21 到 49），X 轴有一个带有两个值的分类刻度。

我需要将 70% 的绘图区域分配给底部组件（即绘制 0-20 的值），然后将 30% 的绘图区域分配给顶部组件（即绘制 50 到 100 的值）。

有什么办法吗，我可以绘制 3 个不同的分量，即 0-20，中断 21-49，然后 50 到 100

Answer 1

您可以使用 gridExtra 将它们拼凑在一起。并且可以使用 coord_cartesian() 或 grid.arrange() 中的高度规范调整缩放

library(tidyverse)
library(gridExtra)

data <- bind_cols(category = rep(c("Category1", "Category2"), 5),
          value = c(sample(0:20,6), sample(50:100,4)),
          group = c(1,1,2,2,3,3,4,4,5,5))
topgraph <- data %>% 
    ggplot(aes(x = category, y = value, group = group)) +
    geom_line() +
    labs(x = "") +
    theme(axis.text.x = element_blank())+
    coord_cartesian(ylim = c(50,100))


lowergraph <- data %>% 
    ggplot(aes(x = category, y = value, group = group)) +
    geom_line() +
    coord_cartesian(ylim = c(0,20))




grid.arrange(topgraph, lowergraph, heights = c(.3,.7))