Я пытаюсь создать границы вокруг определенных столбцов в R. Я могу сделать это, используя пакет kableExtra (показано ниже)
iris <- datasets::iris
iris2 <- do.call(data.frame, aggregate(. ~ Species, iris, function(x) c(mean = mean(x), sd = sd(x))))
res2 <- kable(iris2,"html", col.names = c("Species", "Mean", "SD", "Mean", "SD", "Mean", "SD", "Mean", "SD"), align = c("r","c","c","c","c","c","c","c","c")) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
add_header_above(c(" " = 1, "Sepal Length" = 2, "Sepal Width" = 2, "Petal Length" = 2, "Petal Width" = 2))
print(res2)
res3<- column_spec(res2, c(2,4,6,8), border_left = TRUE, border_right = FALSE)
column_spec(res3, c(3,5,7,9), border_left = FALSE, border_right = TRUE)
Это создает границу, которая мне нужна в правильных позициях, но я бы хотел, чтобы они были серыми, а не черными. Я попытался использовать 'color =' из функции column_spec, но он превращает весь столбец серый, а не только границу.
res3<- column_spec(res2, c(2,4,6,8), border_left = TRUE, border_right = FALSE, color = "#D8D7D7")
column_spec(res3, c(3,5,7,9), border_left = FALSE, border_right = TRUE, color = "#D8D7D7")
Любые предложения о том, как изменить цвет границы, были бы полезны! На данный момент я использую getAnywhere()
, чтобы увидеть, могу ли я просто слегка изменить функцию.