R DT styleColorBar中心和左/右依赖于Sign [英] R DT styleColorBar Center and shift Left/Right dependent on Sign

问题描述

我正在寻找创建酒吧，当使用DT的 datatable 出现在列的单元格的中间时，可以向左或向右伸出，具体取决于单元格为正或负。

I am looking to create bars that when using DT's datatable appear in the middle of the cells of a column and reach out left or right depending on whether the value in the cell is positive or negative.

我已尝试使用函数 styleColorBar 并更改参数 backgroundPosition 到'left'或'center'然而，每个尝试吧显示在单元格的右侧，并始终向左移动。

I have tried using the function styleColorBar and changing the argument backgroundPosition to 'left' or 'center' however with each try the bars still appear to the right of the cell and always go to the left.

我找不到R代码的示例，但附有一个可以完成的例子在Excel上颜色是不必要的，但如果包含这将是一个奖金。

I can't find an example from R code, but have attached an example of what can be done on Excel; the colours aren't necessary but if included that would be a bonus.

推荐答案

您可以使用自定义的 styleColorBar 使用CSS渐变的功能（与原始 styleColorBar ），使您想要的那种酒吧。

You could make a custom styleColorBar function that uses the CSS gradients (same as the original styleColorBar) to make the kind of bars you want.

这是一个例子（对于长行，对于添加新行打破CSS）抱歉）：

Here is an example (sorry for the long line, adding new lines breaks the CSS):

color_from_middle <- function (data, color1,color2) 
{
  max_val=max(abs(data))
  JS(sprintf("isNaN(parseFloat(value)) || value < 0 ? 'linear-gradient(90deg, transparent, transparent ' + (50 + value/%s * 50) + '%%, %s ' + (50 + value/%s * 50) + '%%,%s  50%%,transparent 50%%)': 'linear-gradient(90deg, transparent, transparent 50%%, %s 50%%, %s ' + (50 + value/%s * 50) + '%%, transparent ' + (50 + value/%s * 50) + '%%)'",
             max_val,color1,max_val,color1,color2,color2,max_val,max_val))
} 

使用一些测试数据：

data <- data.frame(a=c(rep("a",9)),value=c(-4,-3,-2,-1,0,1,2,3,4))

datatable(data) %>%
  formatStyle('value',
              background=color_from_middle(data$value,'red','blue'))

这篇关于R DT styleColorBar中心和左/右依赖于Sign的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！