styleColorBar中心和左/右移动取决于符号 [英] styleColorBar Center and shift Left/Right dependent on Sign

问题描述

我希望创建一些条形，这些条形在使用DT的数据表时会出现在列单元格的中间，并根据其值是向左还是向右伸出。

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.

推荐答案

您可以制作一个使用CSS渐变的自定义 styleColorBar 函数（与原始的 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'))

这篇关于styleColorBar中心和左/右移动取决于符号的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！