0

下面的代码来自 Kyle Cuilla 的主题页面https://kcuilla.github.io/reactablefmtr/articles/themes.html

在他页面上显示的输出中，它显示了一个不错的无衬线字体。但是当我运行它时，我得到了某种 Times 字体。我查看了文档，看不到默认字体的设置位置（我很感激我可能没有安装，但我很确定它以前可以工作）。

library(tidyverse)
remotes::install_github("kcuilla/reactablefmtr", force = TRUE)
library(reactablefmtr)
install.packages("viridis")
library(viridis)

data <- MASS::Cars93[1:20, c("Make", "Cylinders", "MPG.city", "Price")]
data %>%
  reactable(.,
            theme = slate(),
            defaultColDef =
              colDef(
                cell = data_bars(., fill_color = viridis::mako(5), text_position = "inside-end")
              )
  )

在此处输入图像描述

4

1 回答 1

1

一种选择是google_font允许将谷歌字体应用于您的表格的功能：

library(magrittr)
library(reactablefmtr)
#> Loading required package: reactable
library(viridis)
#> Loading required package: viridisLite

data <- MASS::Cars93[1:20, c("Make", "Cylinders", "MPG.city", "Price")]
data %>%
  reactable(.,
            theme = slate(),
            defaultColDef =
              colDef(
                cell = data_bars(., fill_color = viridis::mako(5), text_position = "inside-end")
              )
  ) %>% 
  google_font(font_family = "Source Sans Pro")

于 2022-01-27T21:37:09.347 回答