Css kableExtra和Formattable格式问题

下面的代码创建了一个小表。 我不清楚如何进行这些更改：

1） 两个条之间的空白更少。使用Inspect Element，我可以将填充从8px更改为3px in.table>tfoot>tr>td。这是正确的方法吗？如果是这样，我如何将适当的css添加到我的R脚本中

2） 移除颜色条的圆角。同样，inspect元素显示，如果我为每个单元格更改border_radius:0px和padding right:0px，则会发生更改。但同样，这似乎并不正确

3） 如何更改具有条形图的单元格中文本的字体颜色

---

库（格式化表）
图书馆（kableExtra）
图书馆（knitr）
分数%
kable（“html”，escape=“F”，align=c（“l”，“r”，“l”））%>%
可折叠样式（引导选项=c（“条纹”、“悬停”、“响应”），全宽=F，位置=“浮动左”）

如果您不介意使用不同的软件包（我自己的）：

库（TIBLE）
图书馆（dplyr）
图书馆（huxtable）
df%
设置所有填充（'3px'）%>%
设置文字颜色（无处不在，2:3，“红色”）%>%
添加_colnames（）

但这并不能让你得到颜色条。（嗯，也许我应该添加一个函数。）你可以通过。。。比如：

my_color_bar <- color_bar(color = "lightgrey", fun = "fraction", df)

ht %>% 
  select(Type, Decreasing, Increasing) %>% 
  set_all_padding('3px') %>% 
  set_text_color(everywhere, 2:3, "red") %>% 
  set_escape_contents(everywhere, 2:3, TRUE) %>% 
  set_number_format(everywhere, 2:3, list(my_color_bar)) %>% 
  add_colnames()

my\u color\u bar%
选择（类型、减少、增加）%>%
设置所有填充（'3px'）%>%
设置文字颜色（无处不在，2:3，“红色”）%>%
设置_escape_内容（无处不在，2:3，真）%>%
设置编号格式（无处不在，2:3，列表（我的颜色条））%>%
添加_colnames（）

如果您不介意使用不同的软件包（我自己的）：

库（TIBLE）
图书馆（dplyr）
图书馆（huxtable）
df%
设置所有填充（'3px'）%>%
设置文字颜色（无处不在，2:3，“红色”）%>%
添加_colnames（）

但这并不能让你得到颜色条。（嗯，也许我应该添加一个函数。）你可以通过。。。比如：

my_color_bar <- color_bar(color = "lightgrey", fun = "fraction", df)

ht %>% 
  select(Type, Decreasing, Increasing) %>% 
  set_all_padding('3px') %>% 
  set_text_color(everywhere, 2:3, "red") %>% 
  set_escape_contents(everywhere, 2:3, TRUE) %>% 
  set_number_format(everywhere, 2:3, list(my_color_bar)) %>% 
  add_colnames()

my\u color\u bar%
选择（类型、减少、增加）%>%
设置所有填充（'3px'）%>%
设置文字颜色（无处不在，2:3，“红色”）%>%
设置_escape_内容（无处不在，2:3，真）%>%
设置编号格式（无处不在，2:3，列表（我的颜色条））%>%
添加_colnames（）

color\u bar

来自

formattable

软件包，但好消息是您可以定义自己的

color\u bar

函数（只需在R控制台中键入

color\u bar

即可获得

color\u bar

的源代码，然后您可以修改它）。它将解决你的问题2和3

color_bar2 <- function (color = "lightgray", fun = "proportion", ...) 
{
  fun <- match.fun(fun)
  formatter(
    "span", 
    style = function(x) style(
      display = "inline-block", 
      direction = "rtl", `border-radius` = "0px", `padding-right` = "2px", 
      `background-color` = csscolor(color), color = csscolor("red"),
      width = percent(fun(as.numeric(x), ...))))
}

mutate(df,
       Decreasing = color_bar2(color = "lightgrey", fun = "fraction", df)(Decreasing),
       Increasing = color_bar2(color = "lightgreen", fun = "fraction", df)(Increasing)
) %>% 
  select(Type, Decreasing, Increasing) %>% 

  kable("html", escape = "F", align = c("l", "r", "l")) %>% 
  kable_styling(bootstrap_options = c("striped", "hover", "responsive"), full_width = F, position = "float_left")

color\u bar2%
kable（“html”，escape=“F”，align=c（“l”，“r”，“l”））%>%
可折叠样式（引导选项=c（“条纹”、“悬停”、“响应”），全宽=F，位置=“浮动左”）

---

对于问题1，如果要在rmarkdown中呈现表，请查看此页面，了解如何在rmarkdown中使用自定义_css

color\u bar

来自

formattable

软件包，但好消息是您可以定义自己的

color\u bar

函数（只需在R控制台中键入

color\u bar

即可获得

color\u bar

的源代码，然后您可以修改它）。它将解决你的问题2和3

color_bar2 <- function (color = "lightgray", fun = "proportion", ...) 
{
  fun <- match.fun(fun)
  formatter(
    "span", 
    style = function(x) style(
      display = "inline-block", 
      direction = "rtl", `border-radius` = "0px", `padding-right` = "2px", 
      `background-color` = csscolor(color), color = csscolor("red"),
      width = percent(fun(as.numeric(x), ...))))
}

mutate(df,
       Decreasing = color_bar2(color = "lightgrey", fun = "fraction", df)(Decreasing),
       Increasing = color_bar2(color = "lightgreen", fun = "fraction", df)(Increasing)
) %>% 
  select(Type, Decreasing, Increasing) %>% 

  kable("html", escape = "F", align = c("l", "r", "l")) %>% 
  kable_styling(bootstrap_options = c("striped", "hover", "responsive"), full_width = F, position = "float_left")

color\u bar2%
kable（“html”，escape=“F”，align=c（“l”，“r”，“l”））%>%
可折叠样式（引导选项=c（“条纹”、“悬停”、“响应”），全宽=F，位置=“浮动左”）

---

对于问题1，如果要在rmarkdown中呈现表，请查看此页面，了解如何在rmarkdown中使用自定义_css

color\u bar

命令未加载-您是否错过了对

library

的调用？抱歉。请尝试库（knitr）

knitr

没有

color\u-bar

命令。color\u-bar{formattable}

color\u-bar

命令未加载-是否缺少对

library

的调用？抱歉。请尝试库（knitr）

knitr

没有

color\u-bar

命令。color\u-bar{formattable}谢谢您提醒我这一点。很高兴知道现在和将来。谢谢你提醒我这一点。很高兴知道现在和将来。