如何使用 R 中的 "huxtable" 库为 table 中所需的单元格着色。哪种方法更优雅？

Question

我需要用灰色标记 table 中的一些特殊单元格。像这样：

```{r}
library(huxtable)
library(magrittr)
sample_df <- data.frame(matrix(1:25, nrow = 5)) 
sample_df %>% as_huxtable() %>% set_all_borders(1) %>% 
  set_background_color(row = 2, col = 1, value = "grey") %>% 
  set_background_color(row = 3, col = 2, value = "grey") %>%
  set_background_color(row = 4, col = 3, value = "grey") %>% 
  set_background_color(row = 5, col = 4, value = "grey") %>% 
  set_background_color(row = 6, col = 5, value = "grey")
```

在“knitr”作为 HTML 文档之后，它给了我以下内容（作为屏幕截图）：

这就是我需要得到的。但是，我的问题是：有什么比编写这样的代码字符串更优雅的方法呢？我试着这样做：

my_fan <-  function(.data) {for (i in c(2:6))
  {set_background_color(.data, row = i, col = i-1, value = "grey")}
  .data
  }
sample_df %>% 
  as_huxtable() %>% set_all_borders %>% 
  my_fan()

...它根本没有给我任何结果。有什么想法吗？

Answer 1

您可以使用老式界面和关于 R 子集化的鲜为人知的事实：

sample_df <- data.frame(matrix(1:25, nrow = 5)) 
sample_df <- as_huxtable(sample_df)
background_color(sample_df)[matrix(c(2:6, 1:5), ncol = 2)] <- "grey"
sample_df

来自?Extract：

When indexing arrays by [ a single argument i can be a matrix with as many columns as there are dimensions of x; the result is then a vector with elements corresponding to the sets of indices in each row of i.

或者如果你想变得很酷：

diag(background_color(sample_df[-1,])) <- "grey"

我很惊讶这有效:-)

如何使用 R 中的 "huxtable" 库为 table 中所需的单元格着色。哪种方法更优雅？

How to color the required cells in the table using "huxtable" library in R. Which is more elegant way to do it?

r

knitr

r-markdown

huxtable