r - 如何将单元格颜色添加到 R 中的非数字值?(可格式化或 DT)
问题描述
得到以下数据
library(formattable)
DF <- data.frame(Ticker=c("", "", "", "IBM", "AAPL", "MSFT"),
Name=c("Dow Jones", "S&P 500", "Technology",
"IBM", "Apple", "Microsoft"),
Value=(c(15988.08, 1880.33, NA,
130.00, 97.05, 50.99)),
Change=(c(-0.0239, -0.0216, 0.021,
-0.0219, -0.0248, -0.0399)))
试图在表格中将其可视化,例如 formattable 或 DT
唯一的问题是我想为每个名称值添加不同的单元格颜色
所以基本上,当您查看表格时,您正在查看的名称是彩色单元格
在 DT 或 formmattable 中似乎无法做到
有任何想法吗?
解决方案
是你想要的吗?我不知道包含“ &
”的单元格有什么问题...
DF <- data.frame(Ticker=c("", "", "", "IBM", "AAPL", "MSFT"),
Name=c("Dow Jones", "S&P 500", "Technology",
"IBM", "Apple", "Microsoft"),
Value=(c(15988.08, 1880.33, NA,
130.00, 97.05, 50.99)),
Change=(c(-0.0239, -0.0216, 0.021,
-0.0219, -0.0248, -0.0399)))
colors <- substring(viridisLite::viridis(nrow(DF)), 1, 7)
datatable(DF) %>%
formatStyle(2, backgroundColor = styleEqual(DF$Name, colors))
编辑
一个人必须逃避列来解决问题:
datatable(DF, escape = 2) %>%
formatStyle(2, backgroundColor = styleEqual(DF$Name, colors))
推荐阅读
- python - 资源获取是初始化,在 Python 中
- semaphore - 为什么我们需要单个 cpu 上的信号量?
- javascript - 如何从 JavaScript 在 CSV 中动态显示对象?
- python-3.x - 作为消息的列表被转换为字符串
- tensorflow - 如何用我自己的图像构成 FSNS 数据集以用于注意力 OCR tensorflow 模型
- python - Apache Beam Python 字数统计示例因 BeamIOError 导致 Flink Runner 失败
- android - 如何在 android Webview 中播放 html 音频,我需要简单的编码
- python-3.x - Matplotlib:地球绕太阳运行的动画
- php - 从 PHP 中的文本中删除最后一个 URL 链接的表达式
- forms - Tableau - 使用不同变量的 KPI(表单)