主页 / coding / 问题 / 78798463
Accepted
whv20
Asked: 2024-07-26 21:57:07 +0800 CST

使用 R 或 ggplot2 基础版生成带有数据条的表格

  • 772

我希望制作一个表格，每个单元格中都有水平条形图，以显示具有 2 个分类独立变量的连续数值数据。它看起来类似于以下内容（虚构数据）：

一个 4x4 的表格，每个单元格中有一条水平线。标题是按类型和地区划分的度假住宿物业数量。列表示住宿类型（酒店、住宿加早餐、自助式和露营地）。行表示地区（北、南、东和西）。

我之前尝试过使用 formattable，但保存输出时遇到了很大困难。似乎只有使用 phantomjs 才有可能，但我无法在工作电脑上安装它。或者，我可以从 RStudio 查看器手动复制，但这会产生非常像素化的输出。似乎一定有更好的方法

是否有使用 ggplot2 或基础 R 的解决方案？与使用 formattable 相比，这也使得自定义输出变得更容易。

1 个回答

  1. Best Answer

    我认为我应该将其创建为一个多面 ggplot：

    library(tidyverse)

holiday_accommodation %>% 
  pivot_longer(-Region, names_to = 'Accommodation type') %>%
  mutate(`Accommodation type` = gsub('_', ' ', `Accommodation type`)) %>%
  mutate(Region = factor(Region, c('West', 'East', 'South', 'North'))) %>%
  mutate(`Accommodation type` = factor(`Accommodation type`,
            c('Hotel', 'Bed and breakfast', 'Self catering', 'Campsite'))) %>%
  mutate(xval = max(value) + 30) %>%
  ggplot(aes(value, Region)) +
  geom_col(fill = '#7399cb', color = 'black') +
  geom_text(aes(x = xval, label = value)) +
  facet_grid(Region ~`Accommodation type`, scales = 'free', switch = 'y') +
  scale_x_continuous("Accommodation type",
                     expand = c(0, 0, 0.2, 2.5), position = 'top') +
  theme_bw(14) +
  theme(axis.ticks = element_blank(),
        axis.text = element_blank(),
        panel.spacing = unit(0, 'mm'),
        strip.background = element_rect(fill = NA),
        strip.text.y.left = element_text(angle = 0),
        panel.grid = element_blank(),
        axis.title = element_text(face = 2))

    多面条形图

    从相关表格中推断出的数据

    holiday_accommodation <- data.frame(
  Region = c("North", "South", "East", "West"),
  Hotel = c(46, 179, 86, 156),
  Bed_and_breakfast = c(31, 104, 128, 107),
  Self_catering = c(38, 69, 112, 94),
  Campsite = c(23, 95, 74, 98)
)
    • 2

相关问题