小编Vru*_*run的帖子

有没有办法在 PDF 输出中很好地显示多列表格rmarkdown？寻找一些包装器选项来将其显示为 3 个连续的表，但不会将数据帧分成 3 个单独的帧。这是我的块，它使表格非常小​​并且几乎难以辨认。

library(knitr)
library(readr)
library(kableExtra)
dat_url <- 'https://gender-pay-gap.service.gov.uk/viewing/download-data/2019'
dat <- read_csv(dat_url) 
kable(head(dat), caption='Sample Data: 6 rows', booktabs=TRUE, linesep="")  %>%
kable_styling(latex_options =c('striped', 'scale_down'))

使用 ggplot，我想将 4 个四分位数显示为 400 人（每个四分位数 100 个）作为按性别细分的每个人的单独点

library(tidyverse)
dat_url <- 'https://gender-pay-gap.service.gov.uk/viewing/download-data/2019'
dat <- read_csv(dat_url) 

a <- dat %>% 
  filter(str_detect(EmployerName,'ZELLIS')) %>% # pick a company
  select(matches("\\bMale\\w+le", perl=TRUE)) %>% # grab male quartiles
  pivot_longer(everything()) %>% 
  extract(name, c('gender', 'quartile'), '(\\bMale)(\\w+\\b)') %>% 
  mutate(men=round(value), women = 100 - men) %>% 
  select(-c(gender, value)) %>% 
  pivot_longer(c('men','women'), names_to='gender', values_to='value') %>% 
  mutate(quartile = str_replace(quartile,'(^\\w+?)(Middle)', '\\2\\1'))

样本数据：

 a
# A tibble: 8 x 3
  quartile            gender value
  <chr>               <chr>  <dbl>
1 LowerQuartile       men       39
2 LowerQuartile       women     61
3 …