0

我有 TABLE_LIST 对象，它是一个包含表格的列表（我无法提供隐私政策的内容，抱歉）。

我首先创建了对象 TABLE_LIST（它是 data.frames 2x12 的列表）

TABLE_LIST=lapply(1:4, function(x) data.frame(rbind(total.ratio4[[x]][-(1)], total.ratio2[[x]][-(1)]), row.names=row))

以下代码根据单元格上的值为我提供红色和绿色字体颜色，它就像一个魅力：

formattable(TABLE_LIST[[1]], list(area(,-(c(5,10)))~formatter("span", style=x~style(color=ifelse(x>1,"red","green"))),area(,(c(5,10)))~formatter("span", style=x~style(color=ifelse(x>1,"green","red")))))

但是，我需要颜色和逗号分隔的数字。我失败的尝试是：

formattable(TABLE_LIST[[1]], list(area(,-(c(5,10)))~formatter("span", style=x~style(color=ifelse(x>1,"red","green"))),area(,(c(5,10)))~formatter("span", style=x~style(color=ifelse(x>1,"green","red"),digits(x,2))),

area(1:2,1:10)~formatter("span",x~ style(digits(x,2)))))

此代码运行良好，但会删除颜色的格式。我不知道还能做什么。

我不得不提一下，如果不搞砸一切，我就无法更改原始的 data.frame。所以我必须对 table_list 或 formattable 进行更改。谢谢你。

4

1 回答 1

1

我想我解决了。所以把这个小知识分享给可能和我有同样问题的人：

formattable(TABLE_LIST[[1]], 
            list(
                area(,-(c(5,10)))~formatter("span",
                                            style=x~style(color=ifelse(x>1,"red","green")),
                                            x~style(digits(x,4))),
                area(,(c(5,10)))~formatter("span",
                                           style=x~style(color=ifelse(x>1,"green","red")),
                                           x~style(digits(x,4)))))

基本上，在同一个格式化程序中，在样式级别上，添加逗号和x~style.

于 2017-07-10T20:15:30.870 回答