主页 / coding / 问题 / 78926052
Accepted
DaniCee
Asked: 2024-08-29 11:58:06 +0800 CST

使用 ggplot2 制作带有文本的色块

  • 772

我有一个cowplot类似下面的东西，ggplot2里面有不同的情节。

plot_list <- list()
plot_list[["P1"]] <- ggplot2::ggplot(mtcars, ggplot2::aes(x = mpg, y = drat)) + ggplot2::geom_point()
plot_list[["P2"]] <- ggplot2::ggplot(mtcars, ggplot2::aes(x = mpg, y = qsec)) + ggplot2::geom_point()
plot_list[["P3"]] <- ggplot2::ggplot(mtcars, ggplot2::aes(x = disp, y = drat)) + ggplot2::geom_point()
plot_list[["P4"]] <- ggplot2::ggplot(mtcars, ggplot2::aes(x = disp, y = qsec)) + ggplot2::geom_point()
P <- cowplot::plot_grid(plotlist=plot_list, ncol=1)

grDevices::pdf(file="test_all.pdf", height=10, width=20)
print(P)
grDevices::dev.off()

生成结果：

图1

现在我想用 制作一个图，ggplot2它只是带有文本的彩色框，以“分组”上面的图。face_wrap()只考虑条带（但更大）strip.position="left"。像这样：

图2

这样，这些框就占据了与主要子图相同的相对垂直空间：

图3

我的最终目标是将这两个图（条带图和主图）并排放置在 Shiny 应用程序中，以便条带固定并且主图可滚动（仅 x 轴）。 这就是我不想使用的原因facet_wrap。

2 个回答

  1. Best Answer

    由于您的计划是将您的图添加到闪亮的应用程序中，因此一个选项是ggplot使用rects 和texts 将您的框创建为单独的 s，然后可以将其放置在闪亮的应用程序中以列布局：

    library(shiny)
library(ggplot2)
library(cowplot)

ui <- fluidPage(
  fluidRow(
    column(1, plotOutput("box1")),
    column(1, plotOutput("box2")),
    column(10, plotOutput("plot"))
  ),
  tags$head(
    tags$style(HTML(
      "div.col-sm-1 { padding-right: 5px; padding-left: 0;}"
    ))
  )
)

server <- function(input, output, session) {
  output$box1 <- renderPlot({
    ggplot() +
      annotate(
        geom = "rect",
        xmin = -Inf, xmax = Inf,
        ymin = -Inf, ymax = Inf,
        fill = "grey65",
        color = "black",
        linewidth = 2
      ) +
      annotate(
        geom = "text",
        label = "mpg", x = 0, y = 0,
        size = 36 / .pt, color = "white"
      ) +
      theme_void()
  })
  output$box2 <- renderPlot({
    labels <- c("drat", "qsec", "drat", "qsec")
    lapply(seq_along(labels), \(x) {
      ggplot() +
        annotate(
          geom = "rect",
          xmin = -Inf, xmax = Inf,
          ymin = -Inf, ymax = Inf,
          fill = if (x %% 2 == 0) "grey85" else "grey95",
          color = "black",
          linewidth = 2
        ) +
        annotate(
          geom = "text",
          label = labels[[x]], x = 0, y = 0,
          angle = 90, size = 24 / .pt, color = "black"
        ) +
        theme_void()
    }) |>
      cowplot::plot_grid(plotlist = _, ncol = 1)
  })
  output$plot <- renderPlot({
    P
  })
}

shinyApp(ui, server)
#> 
#> Listening on http://127.0.0.1:7228

    • 2 
  2. plot_label <- function(label, col="black", size=1, fill="grey", angle=0) {
  cowplot::ggdraw() +
    cowplot::draw_label(label, color = col, angle=angle) +
    theme(panel.border = element_rect(colour = "black", fill=NA, size=size),
          panel.background = element_rect(fill=fill),
          plot.margin=unit(c(1,1,1,1), "mm"))
}

P1 <- plot_label("mpg", fill="grey50", col="white")
P2 <- plot_label("disp", fill="grey", angle=90)
P3 <- plot_label("hp", fill="grey90", angle=90)
P4 <- plot_label("drat", fill="grey", angle=90)
P5 <- plot_label("qsec", fill="grey90", angle=90)

cowplot::plot_grid(plotlist=list(P1, 
                   plot_grid(plotlist=list(P2, P3, P4, P5), ncol=1), 
                   P), ncol=3, rel_widths=c(1,1,10))

    在此处输入图片描述

    • 2

相关问题