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

Question

我使用 R 中的 Flextable 包生成了以下 table。我创建了一个条件格式的列，其中包含 LaTeX 箭头符号，但是当我生成它时这些符号不显示作为 flextable。有办法解决这个问题吗？

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()

-输出

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

How to display LaTeX symbols in Flextable (R)

r

flextable