r - 如何在 Flextable (R) 中显示 LaTeX 符号

Question

我使用FlextableR 中的包生成了下表。我创建了一个带有 LaTeX 箭头符号的条件格式列，但是当我将其生成为弹性表时，这些符号不会显示。有没有办法来解决这个问题？

library(tidyverse)
library(flextable)

data.frame(one = c(10,20,30), two = c(30,20,6)) %>% 
  mutate(Trend = case_when(.[,2] == .[,1] ~ "$\\rightarrow$", .[,2] > .[,1] ~ "$\\nearrow$", TRUE ~ "$\\searrow$")) %>% 
  flextable()

Answer 1

使用符号的 unicode 值执行此操作可能更容易

library(dplyr)
library(flextable)
data.frame(one = c(10,20,30), two = c(30,20,6)) %>% 
  mutate(Trend = ifelse(two == one,  "\U2192", "\U2190")) %>% 
  flextable()

-输出