如何解决R中的Datatable / formatStyle-如何更改数据框中最后一行的颜色?
我目前正在使用数据表来形象化显示客户群的数据框。
以下是我的数据和代码的可复制示例:
my_data <- data.frame(month = c("Jan","Feb","Mar","Apr","average"),X0 = c(2000,4000,5000,3200,14200),X1 = c(1200,700,400,NA,767),X2 = c(550,300,425),X3 = c(400,400))
breaks <- quantile(cohorts.wide_revenue_pct[,2:ncol(cohorts.wide_revenue_pct)],probs = seq(.05,.95,.05),na.rm = TRUE)
colors <- sapply(round(seq(130,80,length.out = length(breaks) + 1),0),function(x){ rgb(x,x,155,maxColorValue = 155) } )
require("DT")
DT::datatable(my_data,class = 'cell-border stripe',rownames = FALSE,options = list(
ordering=F,dom = 't',pageLength = 12) ) %>%
formatStyle("X0",backgroundColor = 'lightgrey',fontWeight = 'bold') %>%
formatStyle(names(my_data[c(-nrow(my_data)),c(-1,-2)]),fontWeight = 'bold',color = 'white',backgroundColor = styleInterval(breaks,colors))
在我的数据集中,最后一行显示每月的平均收入。如您所见,所有单元格都根据单元格中的图形着色。但是,我想做的是从最后一行“平均值”中删除颜色。由于我有多个具有不同行数的不同表,因此我尝试使用nrow()
函数。
我通过修改以下代码行进行了尝试:
formatStyle(names(my_data[c(-nrow(my_data)),color = 'white'
我在其中添加了my_data[c(-nrow(my_data)),-2)]
以排除我不想着色的行和列。但是,由于某种原因,“平均”行仍然是彩色的。我该如何更改?
没有必要使用数据表来可视化我的数据框,因此我愿意接受任何其他建议,这些建议可能有助于解决此问题,甚至可以产生更好的代码。
谢谢!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。