使用 R 中的 Formattable 包按行排列条件

Posted

技术标签:

【中文标题】使用 R 中的 Formattable 包按行排列条件【英文标题】:Conditionals by row with Formattable package in R 【发布时间】:2020-09-25 16:39:08 【问题描述】:

我想知道如何为表格分配条件格式,以便每一行都有需要满足的不同条件。因此,在统计行中,如果值 0.05 则变为红色。

我正在从以下数据框格式化

df_try
    Normal        Jan        Feb
1  stistic 0.93069466 0.90404849
2 p-values 0.05123532 0.01056474

我的条件格式在代码 imporvement_formatter 中,但很自然,它会将所有值变为红色,因为所有值均 0.05 条件

i2 <- df_try %>%
+   select(c(`Normal`,`Jan`, `Feb`))
> formattable(i2)
improvement_formatter <- 
+   formatter("span", 
+             style = x ~ style(
+               font.weight = "bold", 
+               color = ifelse(x < 0.96, customRed, "black")))
> 
> formattable(i2, align =c("l","c","c"), list(
+   `Indicator Name` = 
+     formatter("span", style = ~ style(color = "grey",font.weight = "bold")), 
+   `Jan` = improvement_formatter
+ ))

【问题讨论】:

【参考方案1】:

看看area 函数。它有助于在行上使用格式化程序,而不仅仅是在列上。因此,您可以像以前一样定义格式化程序,然后专门在某些行和列上使用它们。这是一个例子:

library(formattable)

df_try <- structure(list(Normal = structure(2:1, .Label = c("p-values", 
                                                            "stistic"), class = "factor"), Jan = c(0.93069466, 0.05123532
                                                            ), Feb = c(0.90404849, 0.01056474)), class = "data.frame", row.names = c("1", 
                                                                                                                                     "2"))

first_col_formatter <- formatter("span", 
                                 style = ~ style(color = "grey",
                                                 font.weight = "bold"))

improvement_formatter <- formatter("span", 
                style = x ~ style(
                font.weight = "bold", 
                color = ifelse(x < 0.96, "red", "black")))

improvement2_formatter <- formatter("span", 
                                   style = x ~ style(
                                     font.weight = "bold", 
                                     color = ifelse(x > 0.05, "red", "black")))

formattable(df_try,
            align =c("l","c","c"),
            list(Normal = first_col_formatter,
              area(row = 1, col = -1) ~ improvement_formatter,
                 area(row = 2, col = -1) ~ improvement2_formatter))

【讨论】:

以上是关于使用 R 中的 Formattable 包按行排列条件的主要内容,如果未能解决你的问题,请参考以下文章

使用 R googlemap 包按集群收集标记

使用 dplyr 包按时间平均 - R

Pandas - 检查列表列中的字符串列是不是按行排列

洛谷 P2355 团体操队形

将字符串中的字符按Z字形排列,按行输出

使用 formattable 过滤数据帧