r - 在 R 中为可格式化数据表着色 - 库存数据

Question

我有一个数据表，用于存储几只股票的每日/每周/每月返回，我试图用 R 的格式化包对其进行着色。我希望负 yield 为红色，正 yield 为绿色。或者更有趣的是，为正值和负值设置单独的渐变 - 因此，如果苹果一天下跌 10%，它将是深红色，如果亚马逊下跌 2%，则该单元格将是浅红色 - 反之亦然获得正返回(浅绿色和深绿色)。

我的问题是，当我使用红-绿渐变时，中间的颜色呈现褐色。我下面的代码将透明/白色作为渐变的低端，将绿色作为渐变的高端，但很难区分。

我的数据表看起来像这样:

Stock day  week   month
AAPL   1.5  3.2   10.6
AMZN   3.2  5.3   4.4
BA    -2.1 -4.0  -10.5
PYPL   -5  -8.5  -12.1



Green <- "#71ca99"

sign_formatter <- formatter("span", 
                            style = x ~ style(color = ifelse(x > 0, "green", 
                                                             ifelse(x < 0, "red", "black"))))
sign_formatter(c(-1, 0, 1))

returns <- formattable(stocks_df, align =c("l","c","c","c","c"), list(
  `Stock` = formatter("span", style = ~ style(color = "grey",font.weight = "bold")), 
  daily_return = color_tile("transparent", Green),
  week_return = color_tile("transparent", Green),
  month_return = color_tile("transparent", Green)))

@dc37

我正在使用您建议的确切代码 - 颜色效果很好。但是当我像下面的例子那样按每周返回率排序时，为了获得本周表现最好的股票，它并没有从最高到最低排序(当我尝试按表现最差的股票排序时遇到同样的问题)。

这是我的格式化输出的图片。我也在 Shiny 中运行它，不确定这是否会导致排序错误。

Answer 1

一个可能的解决方案是创建多个 ifelse 语句，以便根据每列的值设置 5 种不同的颜色(红色/浅红色/白色/浅绿色/绿色)。

这里，一种可能的实现方式:

Test <- formatter("span",
                  style = x ~ style(display = "block", font.weight = "bold",color = "black","border-radius" = "4px",
                                 "padding-right" = "4px",
                                 "background-color" = ifelse(x <= -10, "red", ifelse(x > -10 & x <= -2, "tomato", ifelse(x > -2 & x <= 2, "white", ifelse(x > 2 & x <= 10, "palegreen",ifelse(x > 10, "green",NA)))))),
                  x ~ percent(x/100))

formattable(stocks_df,align =c("l","c","c","c","c"), list(
  `Stock` = formatter("span", style = ~ style(color = "grey",font.weight = "bold")),
  day = Test,
  week = Test, 
  month = Test))

它是否回答了您的问题？

可重现的例子

structure(list(Stock = c("AAPL", "AMZN", "BA", "PYPL"), day = c(1.5, 
3.2, -2.1, -5), week = c(3.2, 5.3, -4, -8.5), month = c(10.6, 
4.4, -10.5, -12.1)), row.names = c(NA, -4L), class = c("data.table", 
"data.frame"), .internal.selfref = <pointer: 0x55b7eeb735c0>)