R：(Formattable)有没有办法让color_bar带条件？

Question

我试着在绿色色条中选择“是”，在红色色条中设置为“否”。但是使用下面的代码，只需将单词转换为绿色/红色。我试着做x ~ formattable::style(color_bar = ifelse(x == "yes", "green"，但它不是那样工作的..

YesNo = formattable::color_bar("red")使用此代码，我将获得以下输出。但我试着用绿色说“是”，用红色说“不”..

​

df = data.frame(YesNo = c("yes","no","yes","no"), 
            Numbers = c(4, 5, 10, 10))
df

rownames(df) = c("Test1","Test2","Test3","Test4")
df

formattable(df)

    
  sign_formatter <- formattable::formatter("span", 
                                          style = x ~ formattable::style(color = ifelse(x == "yes", "green", 
                                                                                        ifelse(x == "no", "red", "green"))))                                  

Answer 1

我们可以在background-color中创建一个条件并在formattable中传递该条件

color_formatter <- formattable::formatter(
  "span",
  style = x ~ style(
    color = 'white',
    'background-color' =
      ifelse(x == "yes", "green", "red")
            ))
formattable::formattable(df, list(
  YesNo = color_formatter,
  Numbers = formattable::color_tile("transparent","lightgreen")))

-output

​

​