我正在尝试缩进GT表格的存根中的文本。存根中的某些文本很长,并且跨多行。当我对存根应用缩进时,文本的第二行(及后续行)不会缩进。我只想缩进存根的整个换行文本。
下面是一个可重现的示例:
library(dplyr)
library(gt)
library(tidyr)
# Get vectors of 2-letter country codes for
# each region of Oceania
Australasia <- c("AU", "NZ")
Melanesia <- c("NC", "PG", "SB", "VU")
Micronesia <- c("FM", "GU", "KI", "MH", "MP", "NR", "PW")
Polynesia <- c("PF", "WS", "TO", "TV")
# Create a gt table based on a preprocessed `countrypops`
countrypops %>%
filter(country_code_2 %in% c(
Australasia, Melanesia, Micronesia, Polynesia)
) %>%
filter(year %in% c(1995, 2005, 2015)) %>%
mutate(region = case_when(
country_code_2 %in% Australasia ~ "Australasia",
country_code_2 %in% Melanesia ~ "Melanesia",
country_code_2 %in% Micronesia ~ "Micronesia",
country_code_2 %in% Polynesia ~ "Polynesia",
)) %>%
pivot_wider(names_from = year, values_from = population) %>%
arrange(region, desc(`2015`)) %>%
select(-starts_with("country_code")) %>%
gt(
rowname_col = "country_name",
groupname_col = "region"
) %>%
tab_style(
style = list(
cell_text(indent = pct(8))
),
locations = cells_stub()
) %>%
cols_width(country_name ~ 150)
缩进不正确的表格图片:
如何在存根行中一致地应用缩进?
1条答案
按热度按时间v1l68za41#
Intend(
text-indent
)仅适用于第一行,对于多行使用padding-left
,例如