r - R中带有Kable的表格单元格条件
问题描述
如果单元格(data_a)与 kable 的 data_b 匹配,我尝试为单元格着色,我在 cell_spec 中看到了 ifelse 函数,但我没有成功。
data_a <- data.table("01:05", "01:05", "01:16", "00:33", "00:52")
data_b <- data.table("00:02", "01:05", "02:30")
kable(data_a, row.names = FALSE, format = "html") %>%
kable_styling(full_width = F, position = "center")
谢谢
解决方案
试试这样:
library(data.table)
data_a <- data.table(a =c("01:05", "01:05", "01:16", "00:33", "00:52"))
data_b <- data.table(b =c("00:02", "01:05", "02:30"))
library(kableExtra)
data_a %>%
mutate(a = cell_spec(a, "html", color = ifelse(a %in% data_b$b, "green", "red"))) %>%
kable(format = "html", escape = F) %>%
kable_styling("striped", full_width = F)
推荐阅读
- javascript - 根据页面内容更改变量
- wordpress - Wordpress - wp_query 中的动态自定义帖子类型
- scala - Promise 中的泛型类型
- python - 从 Pandas 数据框中的路径移动文件
- javascript - 我如何访问内部函数数据javascript
- java - 我可以为所有步骤定义一个通用 StepListener 吗?Java 批处理作业 API
- kotlin - 如何在 Kotlin 中让暂停调用“等待”内部的阻塞线程?
- php - 将 10e-3 转换为十进制
- python - 在 matlab/python 中创建特定的颜色图
- laravel - 以多个间隔运行 Laravel CRON 调度程序