我有下表,我想知道是否有任何方法可以更改表格格式,使分隔线不仅可以水平显示,还可以像在 excel 中一样作为单元格网格显示,或者在 kable 中, kable 额外。但是,我认为我见过的唯一示例以某种 HTML 方式呈现该表格。
编码:
library("htmltools")
library("webshot")
library(formattable)
DF <- data.frame(Ticker=c("", "", "", "IBM", "AAPL", "MSFT"),
Name=c("Dow Jones", "S&P 500", "Technology",
"IBM", "Apple", "Microsoft"),
Value=accounting(c(15988.08, 1880.33, 50,
130.00, 97.05, 50.99)),
Change=percent(c(-0.0239, -0.0216, 0.021,
-0.0219, -0.0248, -0.0399)))
FT <- formattable(DF, list(
Name=formatter("span",
style = x ~ ifelse(x == "Technology", style(font.weight = "bold"), NA)),
#Value = color_tile("white", "orange"),
Value = color_bar("orange" , fun = unit.scale
),
Change = formatter("span",
style = x ~ style(color = ifelse(x < 0 , "red", "green")),
x ~ icontext(ifelse(x < 0, "arrow-down", "arrow-up"), x))) )
FT
当前表:
我想使用的风格:
如果网格平方样式是不可能的,你认为至少可以将分割线从原来的灰色改为黑色或红色线吗?
谢谢!