如何打印带有颜色的R数据框？

使用蜡笔包，您可以创建彩色字符串：

library(crayon)
dat <- data.frame(X=c(yellow("foobar"), green("baz")), Y = cyan("qux"))

这是编码dat：

> dat
                       X                   Y
1 33[33mfoobar33[39m 33[36mqux33[39m
2    33[32mbaz33[39m 33[36mqux33[39m

使用write.table，可以得到带有颜色的表格：

但是对齐丢失了。如何获得具有良好对齐的彩色数据框？

该colorDF包允许设置颜色的数据帧，但不允许做我想做的。我想要的是能够在列中每次出现这个词时将一个词标记为红色。colorDF的df_search功能接近我想要的，但是它为找到图案的整个单元格着色，我只想为一个单词着色。

#                                file line              code
# 1                        folder/f.R    1 f <- function(x){
# 2              folder/subfolder/g.R    1 g <- function(y){
# 3 folder/subfolder/subsubfolder/h.R    1 h <- function(z){