在R中编辑{gt}中的行标签

gorkyyrv 于 2023-03-05 发布在其他

关注(0)|答案(1)|浏览(116)

我已经使用以下代码创建了一个gt表：

bovids.summary.carb <- 
  bovids %>% 
  mutate(across(Member, factor, levels = c("UpperBurgi", "KBS", "Okote"))) %>% 
  group_by(Dep_context, Member, Tribe) %>% 
  summarize( 
    mean_d13C = mean(d.13.C, na.rm = TRUE), 
    median_d13C = median(d.13.C, na.rm = TRUE), 
    range_d13C = max(d.13.C, na.rm = TRUE) - min(d.13.C, na.rm = TRUE)) 
#table
gt(bovids.summary.carb) %>% 
  tab_header(title = "Mean, median, and ranges of d.13.C values by Tribe across Depositional Environemnt and Member")%>%  
  fmt_number(columns = vars(mean_d13C, median_d13C, range_d13C), decimals = 2)%>% 
  sub_missing(missing_text = "--")%>% 
  cols_label(mean_d13C = "Mean", median_d13C = "Median", range_d13C = "Range") %>% 
  tab_style(style = cell_text(weight = "bold"), 
            locations = cells_body(columns = "Tribe"))

我得到了这样的输出：

我尝试过其他一些tab_style调用来获取Deltaic - Upper Burgi（和等价物）的粗体，而不是部落名称。有什么建议吗？
以下是部分数据：

> dput(bovids)
structure(list(CA = c("41", "131", "131", "131", "131", "131", 
"131", "131", "131", "131", "131", "131", "131", "1A", "1A", 
"1A", "1A", "1A", "1A", "1A", "1A", "1A", "1A", "1", "1", "1", 
"1", "1", "1", "1", "1", "1", "1", "3", "3", "3", "3", "6", "6", 
"6", "6", "8", "8", "11", "1A", "1A", "1A", "6/6A", "6/6A", "6/6A", 
"6A", "8A", "8A", "8A", "8A", "8A", "8A", "8A", "8A", "8A", "8A", 
"8A", "41", "41", "41", "41", "41", "41", "41", "41", "41", "41", 
"41", "41", "41", "41", "41", "41", "41", "41", "41", "41", "41", 
"41", "105", "105", "41", "105", "105", "105", "105", "105", 
"105", "105", "105", "105", "8", "103", "131", "131", "100", 
"123", "6"), Member = c("Okote", "Okote", "Okote", "Okote", "Okote", 
"Okote", "Okote", "Okote", "Okote", "Okote", "Okote", "Okote", 
"Okote", "Okote", "Okote", "Okote", "Okote", "Okote", "Okote", 
"Okote", "Okote", "Okote", "Okote", "Okote", "Okote", "Okote", 
"Okote", "Okote", "Okote", "Okote", "Okote", "Okote", "Okote", 
"Okote", "Okote", "Okote", "Okote", "Okote", "Okote", "Okote", 
"Okote", "Okote", "Okote", "Okote", "Okote", "Okote", "Okote", 
"Okote", "Okote", "Okote", "Okote", "Okote", "Okote", "Okote", 
"Okote", "Okote", "Okote", "Okote", "Okote", "Okote", "Okote", 
"Okote", "UpperBurgi", "UpperBurgi", "UpperBurgi", "UpperBurgi", 
"UpperBurgi", "UpperBurgi", "UpperBurgi", "UpperBurgi", "UpperBurgi", 
"UpperBurgi", "UpperBurgi", "UpperBurgi", "UpperBurgi", "UpperBurgi", 
"UpperBurgi", "UpperBurgi", "UpperBurgi", "UpperBurgi", "UpperBurgi", 
"UpperBurgi", "UpperBurgi", "UpperBurgi", "KBS", "KBS", "UpperBurgi", 
"KBS", "KBS", "KBS", "KBS", "KBS", "KBS", "KBS", "KBS", "KBS", 
"KBS", "KBS", "KBS", "UpperBurgi", "UpperBurgi", "KBS", "KBS"
), Dep_context = c("Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", 
"Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", 
"Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", 
"Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", 
"Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", 
"Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", 
"Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", 
"Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", 
"Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", 
"Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", 
"Fluvial ", "Fluvial ", "Fluvial ", "Fluvial ", "Deltaic", "Deltaic", 
"Deltaic", "Deltaic", "Deltaic", "Deltaic", "Deltaic", "Deltaic", 
"Deltaic", "Deltaic", "Deltaic", "Deltaic", "Deltaic", "Deltaic", 
"Deltaic", "Deltaic", "Deltaic", "Deltaic", "Deltaic", "Deltaic", 
"Deltaic", "Deltaic", "Deltaic", "Deltaic", "Deltaic", "Deltaic", 
"Deltaic", "Deltaic", "Deltaic", "Deltaic", "Deltaic", "Deltaic", 
"Deltaic", "Deltaic", "Fluvial ", "Fluvial ", "Deltaic", "Deltaic", 
"Deltaic", "Lacustrine", "Fluvial "), Family = c("Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae", 
"Bovidae", "Bovidae", "Bovidae", "Bovidae", "Bovidae"), Tribe = c("Alcelaphini", 
"Alcelaphini", "Alcelaphini", "Alcelaphini", "Bovini", "Tragelaphini", 
"Tragelaphini", "Tragelaphini", "Tragelaphini", "Tragelaphini", 
"Tragelaphini", "Tragelaphini", "Tragelaphini", "Reduncini", 
"Reduncini", "Reduncini", "Reduncini", "Reduncini", "Reduncini", 
"Reduncini", "Reduncini", "Reduncini", "Reduncini", "Reduncini", 
"Reduncini", "Reduncini", "Reduncini", "Reduncini", "Reduncini", 
"Tragelaphini", "Tragelaphini", "Tragelaphini", "Tragelaphini", 
"Alcelaphini", "Bovini", "Reduncini", "Reduncini", "Alcelaphini", 
"Alcelaphini", "Reduncini", "Tragelaphini", "Alcelaphini", "Alcelaphini", 
"Reduncini", "Alcelaphini", "Alcelaphini", "Antilopini", "Alcelaphini", 
"Alcelaphini", "Alcelaphini", "Reduncini", "Aepycerotini", "Aepycerotini", 
"Alcelaphini", "Alcelaphini", "Alcelaphini", "Reduncini", "Reduncini", 
"Reduncini", "Reduncini", "Reduncini", "Tragelaphini", "Aepycerotini", 
"Aepycerotini", "Aepycerotini", "Aepycerotini", "Alcelaphini", 
"Alcelaphini", "Alcelaphini", "Alcelaphini", "Alcelaphini", "Alcelaphini", 
"Alcelaphini", "Alcelaphini", "Reduncini", "Reduncini", "Reduncini", 
"Reduncini", "Reduncini", "Alcelaphini", "Alcelaphini", "Alcelaphini", 
"Alcelaphini", "Alcelaphini", "Alcelaphini", "Antilopini", "Reduncini", 
"Reduncini", "Reduncini", "Reduncini", "Reduncini", "Reduncini", 
"Reduncini", "Reduncini", "Reduncini", "Reduncini", "Tragelaphini", 
"Tragelaphini", "Tragelaphini", "Tragelaphini", "Tragelaphini", 
"Tragelaphini", "Tragelaphini"), Genus = c("", "", "", "", "", 
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
"", ""), d.13.C = c(0.4, 0.7, 0.6, -1.2, -1.2, -6.4, -5, -3, 
-2.7, -6.5, -6.2, -2.7, -5.7, -1.2, -0.4, -0.7, 0.8, 0.8, -2, 
0.6, 0.4, -1.2, 0.6, 2.8, -0.3, -1, -0.8, 1, -1, -4.8, -5.9, 
-3.9, -8.7, -1, 0.8, 1.7, 0, -1.1, 0.3, -2.3, -11.5, -0.3, -1.1, 
-1.9, -0.1, 2.2, 1.5, -0.3, 0.2, -1.2, 0.8, 0.9, -2.4, 1.2, 2.4, 
0.1, -0.7, -1.7, 0.6, 0.1, -2.4, -1.7, -0.9, 0.3, -3.3, 1.5, 
1.7, 1.1, 1.2, 1.3, 1.8, 1.2, 1, 1.5, 1.3, 1, 0.5, 0.7, 1.3, 
1.5, 2.7, -0.2, 2.1, 2, 0.6, -3.3, 1.3, 0.8, -3.2, 0.1, -1.2, 
0.2, -1.6, -0.4, 0.3, 0.3, -4.2, -2.6, -4.5, -5.3, -8.1, -8.7, 
-8.1), d.18.O = c(0.9, 0.8, 3.1, 1, 2.3, 1.5, 1.6, 2.5, 4.3, 
1, -2.1, 2.7, 2.5, -0.1, -0.3, -0.6, 1.1, 0.5, -1, 1.3, 0.3, 
0, 0.9, -0.6, 1.7, 0.5, 0, 3.9, -3.4, 0.1, -1.1, 0.2, -0.2, 1.6, 
4.1, 4.2, 0, 2, 2.9, -0.4, 2.1, 2.5, 0.1, -0.8, 0.7, 1, 3.2, 
-1.4, 5.3, 4.1, 2.5, 3.2, 0.4, 1.9, 1.2, 1.7, -0.1, -2.1, 0.5, 
0.5, 0.2, 1.8, -2.3, -3.6, -1.8, -0.4, -1.6, -0.7, 0.1, -1.1, 
-1, -0.3, 0.1, -0.7, -1.1, -2.3, -0.8, -3.7, -2.2, 2.6, 1.3, 
1.1, 1.7, 1.5, 2.2, 1.2, -1.4, 0.3, -0.6, -0.4, 1.5, 0.3, -0.6, 
-1.6, 0.6, -4.3, 3.3, 2.4, -1.3, 0.4, 1.4, 3.7, 0), Age.range = c("1.55-1.4", 
"1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", 
"1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", 
"1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", 
"1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", 
"1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", 
"1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", 
"1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", 
"1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", 
"1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", 
"1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", "1.55-1.4", 
"1.55-1.4", "2.1-1.9", "2.1-1.9", "2.1-1.9", "2.1-1.9", "2.1-1.9", 
"2.1-1.9", "2.1-1.9", "2.1-1.9", "2.1-1.9", "2.1-1.9", "2.1-1.9", 
"2.1-1.9", "2.1-1.9", "2.1-1.9", "2.1-1.9", "2.1-1.9", "2.1-1.9", 
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
"", "", "", "", "", "", "", "")), row.names = c(NA, -103L), class = c("tbl_df", 
"tbl", "data.frame"))

我尝试使用cell_row_groups（），但收到一条警告消息““自gt v0.3.0以来，'columns = vars（...）已被弃用。请改用'columns = c（...）'，并出现相同的粗体表格。我想知道这是否与我使用group_by（）的顺序有关。

r

来源：https://stackoverflow.com/questions/75633338/editing-row-labels-in-gt-in-r

1条答案

按热度按时间

41zrol4v1#

要设置行组标题的样式，请使用cells_row_groups()而不是tab_style中的cells_body
使用基于gtcars数据集的一些伪示例数据：

library(gt)
library(dplyr)

bovids.summary.carb <- gtcars |>
  group_by(ctry_origin, bdy_style) %>%
  summarize(
    mean_d13C = mean(hp, na.rm = TRUE),
    median_d13C = median(hp, na.rm = TRUE),
    range_d13C = diff(range(max(hp, na.rm = TRUE)))
  )

gt(bovids.summary.carb) %>%
  tab_header(title = "Mean, median, and ranges of d.13.C values by Tribe across Depositional Environemnt and Member") %>%
  fmt_number(columns = c(mean_d13C, median_d13C, range_d13C), decimals = 2) %>%
  sub_missing(missing_text = "--") %>%
  cols_label(mean_d13C = "Mean", median_d13C = "Median", range_d13C = "Range") %>%
  tab_style(
    style = cell_text(weight = "bold"),
    locations = cells_row_groups()
  )

赞(0）回复(0）举报 2023-03-05

我来回答

在R中编辑{gt}中的行标签

1条答案

相关问题

热门标签

最新问答