如何在 flextable 中包含符号?
How to include symbols in flextable?
问题
我想在 flextable
中包含表示参数的符号。下面是一个例子:
library(flextable)
params_names <- c("T", "A_i", "b", "delta", "s_0")
params_values <- c(0.97, 3.83, 2.83, 1.29, 1.07)
data_tab <- data.frame(Parameter = params_names,
Value = params_values)
ft <- flextable(data_tab)
当前输出
期望的输出
我在 Word 中创建了以下所需的输出:
我试过的
我尝试使用 latex2exp
包中的 Tex
函数,以及 flextable
包中的 mkpar
函数。但是我没有得到想要的输出。请指导我如何将当前输出更改为所需的输出?
这是一个解决方案:
library(flextable)
# equatags::mathjax_install()
params_names <- c("T", "A_i", "b", "\Delta", "s_0")
params_values <- c(0.97, 3.83, 2.83, 1.29, 1.07)
data_tab <- data.frame(Parameter = params_names,
Value = params_values)
ft <- flextable(data_tab)
ft <- compose(ft, j = "Parameter", value = as_paragraph(as_equation(Parameter)))
ft
问题
我想在 flextable
中包含表示参数的符号。下面是一个例子:
library(flextable)
params_names <- c("T", "A_i", "b", "delta", "s_0")
params_values <- c(0.97, 3.83, 2.83, 1.29, 1.07)
data_tab <- data.frame(Parameter = params_names,
Value = params_values)
ft <- flextable(data_tab)
当前输出
期望的输出
我在 Word 中创建了以下所需的输出:
我试过的
我尝试使用 latex2exp
包中的 Tex
函数,以及 flextable
包中的 mkpar
函数。但是我没有得到想要的输出。请指导我如何将当前输出更改为所需的输出?
这是一个解决方案:
library(flextable)
# equatags::mathjax_install()
params_names <- c("T", "A_i", "b", "\Delta", "s_0")
params_values <- c(0.97, 3.83, 2.83, 1.29, 1.07)
data_tab <- data.frame(Parameter = params_names,
Value = params_values)
ft <- flextable(data_tab)
ft <- compose(ft, j = "Parameter", value = as_paragraph(as_equation(Parameter)))
ft