在R中将stubhead部分的标签居中对齐。

huangapple
go评论90阅读模式
英文:

Centering label of stubhead section in gt table R

问题

你好，我理解你想要翻译的部分。以下是翻译好的内容：

"Hi guys how are you? I am trying to make a nice table using gt package in R. So far i managed very well, its a nice package, very intuitive. But im struggling trying to center the label on the stubhead section. I tried a lot of thins with no success. Do you know how can i achieve this?.
I created a piece of code with fake data to understand the problem better. I would like to center the label called "INDICADOR".

  1. df=data.frame(indicador= c("MAP","MAC","MB", "REP","APU"),
  2.               actual= c(100,100,100,200,200),
  3.               anual=c(1,2,3,4,5),
  4.               rep=c(0.78,0.21,0.54,0.33,0.7), 
  5.               var=c(1.2,1.2,1.5,1.3,1.1))
  7. df %>% mutate(NewRowNames=c("MONTO APUESTA","MONTO ACIERTO",
  8.                             "MARGEN BRUTO","REPAGO","APUESTAS")) %>%
  9.   column_to_rownames(var="NewRowNames") %>%
  10.   select(-indicador) %>%
  11.   select(-rep) %>%
  12.   gt(rownames_to_stub = T) %>%
  13.   tab_stubhead(label="INDICADOR") %>%
  14.   tab_header(title = md("**KPI´s REPORTE SEMANAL**")) %>%
  15.   fmt_currency(rows = c(1,2,3),
  16.                columns= c(2,3),
  17.                dec_mark = ",",
  18.                sep_mark = ".",
  19.                decimals = 0) %>%
  20.   fmt_percent(columns = c("var"),
  21.               scale_values = T) %>%
  22.   fmt_number(rows = 5,
  23.              columns= c(2,3),
  24.              sep_mark = ".",
  25.              dec_mark = ",",
  26.              decimals = 0) %>%
  27.   fmt_percent(columns = c(2,3),
  28.               rows=4,
  29.               scale_values = T) %>%
  30.   cols_align(align = "center",
  31.              columns = everything()) %>%
  32.   gt_theme_espn() %>%
  33.   opt_align_table_header(align="center")

"

英文:

Hi guys how are you? I am trying to make a nice table using gt package in R. So far i managed very well, its a nice package, very intuitive. But im struggling trying to center the label on the stubhead section. I tried a lot of thins with no success. Do you know how can i achieve this?.
I created a piece of code with fake data to understand the problem better. I would like to center the label called "INDICADOR".

  1. df=data.frame(indicador= c("MAP","MAC","MB", "REP","APU"),
  2.               actual= c(100,100,100,200,200),
  3.               anual=c(1,2,3,4,5),
  4.               rep=c(0.78,0.21,0.54,0.33,0.7), 
  5.               var=c(1.2,1.2,1.5,1.3,1.1))
  8. df %>% mutate(NewRowNames=c("MONTO APUESTA","MONTO ACIERTO",
  9.                             "MARGEN BRUTO","REPAGO","APUESTAS")) %>%
  10.   column_to_rownames(var="NewRowNames") %>% select(-indicador) %>% 
  11.   select(-rep) %>%
  12.   gt(rownames_to_stub = T) %>% 
  13.   tab_stubhead(label="INDICADOR") %>% 
  14.   tab_header(title = md("**KPI´s REPORTE SEMANAL**")) %>% 
  15.   fmt_currency(rows = c(1,2,3),
  16.                columns= c(2,3),
  17.                dec_mark = ",",
  18.                sep_mark = ".",
  19.                decimals = 0) %>% 
  20.   fmt_percent(columns = c("var"),
  21.               scale_values = T) %>% 
  22.   fmt_number(rows = 5,
  23.              columns= c(2,3),
  24.              sep_mark = ".",
  25.              dec_mark = ",",
  26.              decimals = 0) %>% 
  27.   fmt_percent(columns = c(2,3),
  28.               rows=4,
  29.               scale_values = T) %>% 
  30.   cols_align(align = "center",
  31.              columns = everything()) %>%
  32.   gt_theme_espn() %>% 
  33.   opt_align_table_header(align="center")

答案1

得分: 1

以下是翻译好的部分：

要将标签居中对齐的一个选项是使用 tab_style，如下所示：

  1. tab_style(
  2.   style = cell_text(align = "center"),
  3.   locations = cells_stubhead()
  4. )

完整示例代码：

  1. library(gt)
  2. library(dplyr)
  3. library(espnscrapeR)
  5. df %>%
  6.   mutate(NewRowNames = c(
  7.     "MONTO APUESTA", "MONTO ACIERTO",
  8.     "MARGEN BRUTO", "REPAGO", "APUESTAS"
  9.   )) %>%
  10.   column_to_rownames(var = "NewRowNames") %>%
  11.   select(-indicador) %>%
  12.   select(-rep) %>%
  13.   gt(rownames_to_stub = TRUE) %>%
  14.   tab_stubhead(label = "INDICADOR") %>%
  15.   tab_header(title = md("**KPI´s REPORTE SEMANAL**")) %>%
  16.   fmt_currency(
  17.     rows = c(1, 2, 3),
  18.     columns = c(2, 3),
  19.     dec_mark = ",",
  20.     sep_mark = ".",
  21.     decimals = 0
  22.   ) %>%
  23.   fmt_percent(
  24.     columns = c("var"),
  25.     scale_values = TRUE
  26.   ) %>%
  27.   fmt_number(
  28.     rows = 5,
  29.     columns = c(2, 3),
  30.     sep_mark = ".",
  31.     dec_mark = ",",
  32.     decimals = 0
  33.   ) %>%
  34.   fmt_percent(
  35.     columns = c(2, 3),
  36.     rows = 4,
  37.     scale_values = TRUE
  38.   ) %>%
  39.   cols_align(
  40.     align = "center",
  41.     columns = everything()
  42.   ) %>%
  43.   gt_theme_espn() %>%
  44.   opt_align_table_header(align = "center") |>
  45.   tab_style(
  46.     style = cell_text(align = "center"),
  47.     locations = cells_stubhead()
  48.   )

在R中将stubhead部分的标签居中对齐。

英文:

One option to center the stub label would be to use tab_style like so:

  1. tab_style(
  2.   style = cell_text(align = "center"),
  3.   locations = cells_stubhead()
  4. )

Complete example code:

  1. library(gt)
  2. library(dplyr)
  3. library(espnscrapeR)
  5. df %>%
  6.   mutate(NewRowNames = c(
  7.     "MONTO APUESTA", "MONTO ACIERTO",
  8.     "MARGEN BRUTO", "REPAGO", "APUESTAS"
  9.   )) %>%
  10.   column_to_rownames(var = "NewRowNames") %>%
  11.   select(-indicador) %>%
  12.   select(-rep) %>%
  13.   gt(rownames_to_stub = T) %>%
  14.   tab_stubhead(label = "INDICADOR") %>%
  15.   tab_header(title = md("**KPI´s REPORTE SEMANAL**")) %>%
  16.   fmt_currency(
  17.     rows = c(1, 2, 3),
  18.     columns = c(2, 3),
  19.     dec_mark = ",",
  20.     sep_mark = ".",
  21.     decimals = 0
  22.   ) %>%
  23.   fmt_percent(
  24.     columns = c("var"),
  25.     scale_values = T
  26.   ) %>%
  27.   fmt_number(
  28.     rows = 5,
  29.     columns = c(2, 3),
  30.     sep_mark = ".",
  31.     dec_mark = ",",
  32.     decimals = 0
  33.   ) %>%
  34.   fmt_percent(
  35.     columns = c(2, 3),
  36.     rows = 4,
  37.     scale_values = T
  38.   ) %>%
  39.   cols_align(
  40.     align = "center",
  41.     columns = everything()
  42.   ) %>%
  43.   gt_theme_espn() %>%
  44.   opt_align_table_header(align = "center") |> 
  45.   tab_style(
  46.     style = cell_text(align = "center"),
  47.     locations = cells_stubhead()
  48.   )

在R中将stubhead部分的标签居中对齐。

huangapple
  • 本文由 发表于 2023年5月25日 03:34:47
  • 转载请务必保留本文链接：https://go.coder-hub.com/76326871.html
  • gt
  • r
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定