Question

我正在尝试使用package :: huxtable将包含4位数年份的脚注添加到表中。这一年以科学记数法输出。我在表格的主体和我的问题here中遇到了同样的问题，@ katia解释了发生了什么。但是现在我仍然试图解决同样的问题，但是在桌子的脚注中：

options(scipen = 100, digits = 10)
library(huxtable)
t <- huxtable(mtcars[1:5, 1:2])
number_format(t) <- 1
add_footnote(t, "No cars in 1776")

脚注打印为：

# No cars in 1.78e+03

我无法理解发生了什么 - number_format（）将整个表的小数位设置为1。或者应该。删除它会将整个表格恢复为科学记数法。将1776放在引号中会导致错误：

Error: unexpected numeric constant in "add_footnote(t, "No cars in "1776"

非常感谢任何指针/帮助!!

Answer 1

footnote中的

huxtable带有自己的属性 - 您可以传递其他参数，然后传递给`set_cell_properties

参数
...其他属性，传递给脚注单元格的set_cell_properties。

指定number_format作为add_footnote的附加参数应该有效

add_footnote(t, "No cars in 1776", number_format = 0)

  # 21.0           6.0           
  # 21.0           6.0           
  # 22.8           4.0           
  # 21.4           6.0           
  # 18.7           8.0           
# ───────────────────────────────
  # No cars in 1776              

# Column names: mpg, cyl

包中的年份:: huxtable表脚注默认为科学概念

1 个答案: