如何根据R中的条件更改整个表值的字体颜色?
我想根据整个表的条件更改字体颜色的所有值。参考下表如何根据R中的条件更改整个表值的字体颜色?,r,colors,dplyr,formattable,R,Colors,Dplyr,Formattable,我想根据整个表的条件更改字体颜色的所有值。参考下表 `Category Name` Oct Nov Dec Jan Feb Mar Apr May Jun Jul Aug <fct> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <
`Category Name` Oct Nov Dec Jan Feb Mar Apr May Jun Jul Aug
<fct> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 Diet Soda 6.05 -5.05 8.70 32.4 -11.0 -26.8 3.19 0.336 -2.62 -3.91 -7.04
2 Soda -8.45 -17.6 0.602 16.5 -14.9 -22.8 15.1 9.75 18.1 28.3 32.2
3 Sparkling Beve~ 9.85 6.58 23.1 42.3 6.43 -15.3 16.6 6.61 6.31 8.53 2.46
4 Energy 30.4 29.1 60.1 91.3 41.4 20.1 67.6 61.2 56.9 56.4 56.4
5 Tea -18.9 -25.4 -2.93 15.2 -17.3 -26.8 9.75 1.28 -2.45 -4.73 4.42
6 Water -10.5 -24.5 -5.66 20.8 -17.5 -33.1 7.43 -5.08 10.6 6.11 -1.01
7 Rtd Coffee -8.65 -11.9 2.63 14.3 -17.5 -32.7 -4.51 -6.31 -15.5 4.56 11.5
8 Vitamin Enhanc~ 36.6 35.2 63.0 110. 53.0 24.7 79.3 64.7 49.7 36.8 34.7
9 New Age Bevera~ -17.5 -16.9 -6.23 12.9 -14.5 -27.2 -16.5 -21.1 -37.0 -33.9 -25.2
10 Hydration / Sp~ 8.71 1.15 18.2 50.1 9.39 -12.4 46.6 45.5 32.7 43.8 40.5
11 Juice -0.414 2.89 45.6 65.3 5 -11.6 16.6 22.2 15.4 29.2 16.4
12 Flavored Nonca~ 65.2 69.1 89.0 114. 78.1 63.4 123. 86.4 85.0 33.8 22.8
13 Soda Can -100 -100 NaN NaN NaN NaN NaN -100 NaN NaN NaN
14 Milk NA NA NA NA NA NA NA NA NA 1250 1114.
15 Diet Soda Can NA -100 NA NA NA NA NA NA NA -75 NA
16 Probiotic Beve~ NaN NaN NA NA NA NA NA NA NA NA NA
# ... with 1 more variable: Sep <dbl>
`类别名称`十月十一月十二月一月二月三月四月五月六月七月八月
1减肥苏打水6.05-5.05 8.70 32.4-11.0-26.8 3.19 0.336-2.62-3.91-7.04
2苏打-8.45-17.6 0.602 16.5-14.9-22.8 15.1 9.75 18.1 28.3 32.2
3波光粼粼的斜面~9.85 6.58 23.1 42.3 6.43-15.3 16.6 6.61 6.31 8.53 2.46
4能源30.4 29.1 60.1 91.3 41.4 20.1 67.6 61.2 56.9 56.4 56.4
5茶-18.9-25.4-2.93 15.2-17.3-26.8 9.75 1.28-2.45-4.73 4.42
6水-10.5-24.5-5.66 20.8-17.5-33.17.43-5.08 10.6 6.11-1.01
7-8.65-11.9 2.63 14.3-17.5-32.7-4.51-6.31-15.5 4.56 11.5
8维生素增强剂~36.6 35.2 63.0 110。53.0 24.7 79.3 64.7 49.7 36.8 34.7
9新时代贝维拉~-17.5-16.9-6.2312.9-14.5-27.2-16.5-21.1-37.0-33.9-25.2
10水合作用/Sp~8.71 1.15 18.2 50.1 9.39-12.4 46.6 45.5 32.7 43.8 40.5
11果汁-0.414 2.89 45.6 65.3 5-11.6 16.6 22.2 15.4 29.2 16.4
12味Nonca~65.2 69.1 89.0 114。78.1 63.4 123. 86.4 85.0 33.8 22.8
13个苏打罐-100-100楠楠-100楠楠楠
14牛奶钠钠钠1250 1114。
15减肥苏打罐钠-100钠-75钠
16益生菌Beve~NaN NA NA NA NA
# ... 还有一个变量:Sep
我想将all-values设置为红色,将all+值设置为绿色。我尝试设置一个全局变量以在formattable表中调用,但它不起作用。参考代码如下:
formatter_bev <-
formatter("span",
style = x ~ style(
font.weight = "bold",
color = ifelse(x > 0, "green", ifelse(x < 0, "red"))))
bev_percent_plt <- formattable(Bev_Percent_change_table, align =c("l","c","c","c","c", "c", "c", "c", "c", "c", "c", "r"), list(
`Indicator Name` = formatter("span", style = ~ style(color = "grey",font.weight = "bold")), formatter_bev(col=2:13)))
formatter_bev 0,“绿色”,ifelse(x<0,“红色”))
你差一点就吃到了。
要更改一列,您可以编写以下内容,而不是“formatter_bev(col=2:13)”:
oct = formatter_bev
要更改多个,它是一个“区域”,因此您需要:
area(col = 2:13) ~ formatter_bev
可在此处找到:
但是,您的ifelse语句在数字为0时缺少一个值,因此您应该添加第三种颜色,如:
color = ifelse(x > 0, "green", ifelse(x < 0, "red", "grey"))
color=ifelse(x>0,“绿色”,ifelse(x<0,“红色”,“灰色”))
brilliant bruv!干杯