R中使用Kable的热图表

问题描述

我使用Kable在R中创建了一个表。我需要使用formattable()创建一个热图表并提供一个表名。

这是使用的数据集：

structure(list(Type = c("A","B","C","D"),Count = c(38L,32L,13L,4L),`17-Aug` = c(0.13,-1.09,-1.82,-0.38),`24-Aug` = c(-0.13,-0.91,-3.62,-1.51),`31-Aug` = c(-6.84,-6.4,-4.84,-1.29),`07-Sep` = c(-3.31,-0.98,-2.58,0.8),`14-Sep` = c(-3.24,-0.87,-3.31,0.56),`21-Sep` = c(1.47,2.07,-1.73,0.73
    ),`28-Sep` = c(-9.09,-3.33,-3.93,0.09),`05-Oct` = c(-1.33,2.96,-0.53,0.93),`12-Oct` = c(-1.18,2.8,-0.22,0.89),`19-Oct` = c(2.76,4.33,0.22,0.87),`26-Oct` = c(-3.49,-0.71,-1.47,`02-Nov` = c(8.64,6.98,3.07,1.04)),row.names = c(NA,-4L),class = "data.frame")

我使用以下代码创建了一个热图表：

formattable(df,align = "c",lapply(1:nrow(df),function(row) {
  area(row,col = -2) ~ color_tile("white","mediumaquamarine")
}))

执行代码时收到警告消息：

Warning messages:
1: In gradient(as.numeric(x),...) : NAs introduced by coercion
2: In gradient(as.numeric(x),...) : NAs introduced by coercion
3: In gradient(as.numeric(x),...) : NAs introduced by coercion
4: In gradient(as.numeric(x),...) : NAs introduced by coercion

此外，我无法为此表提供表名。我调查了this的解决方案，但没有得到解决方案。

有人可以为此提供解决方案吗？

提前谢谢！

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）