kable颜色行和柱单元格（不是单元格值）

Question

给定：

library(kableExtra)
df <- iris[c(1:10), c(1:5)]
df
#    Sepal.Length Sepal.Width Petal.Length Petal.Width Species
# 1           5.1         3.5          1.4         0.2  setosa
# 2           4.9         3.0          1.4         0.2  setosa
# 3           4.7         3.2          1.3         0.2  setosa
# 4           4.6         3.1          1.5         0.2  setosa
# 5           5.0         3.6          1.4         0.2  setosa
# 6           5.4         3.9          1.7         0.4  setosa
# 7           4.6         3.4          1.4         0.3  setosa
# 8           5.0         3.4          1.5         0.2  setosa
# 9           4.4         2.9          1.4         0.2  setosa
# 10          4.9         3.1          1.5         0.1  setosa

我想使用kable为某些列为每一行着色。

所需输出：

一种手动​​方法可能是以下方法，然后尝试将它们合并在一起：

kable(df) %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)

kable(df[, c(2:3)]) %>%
  row_spec(seq(1, nrow(df), 2), background = "red") %>% 
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE) 

kable(df[, c(4:5)]) %>%
  row_spec(seq(1, nrow(df), 2), background = "blue") %>% 
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)

但是，我想要一种自动化的方式来一次呼叫。有没有办法将row_spec用于按位置进行特定列的方法？

谢谢