參考以下使用 gt 套件,詳細參考 gt 套件線上說明。
# R程式碼:
library(dplyr)
library(gt)
df <- data.frame(matrix(1:15, ncol=3))
df %>%
gt() %>%
tab_options(column_labels.hidden = TRUE) %>%
data_color(
columns = c("X2"),
rows = 1,
palette = c("yellow")
) %>%
data_color(
columns = c("X3"),
rows = 2,
palette = c("yellow")
)
# 執行結果: