為什么我會收到“錯誤：顏色必須是有效顏色”。 在 R 中使用 Flextable？

Question

我正在嘗試使用 flextable 創建表格以進入 PowerPoint 進行演示。 但是，一旦我創建了表並一遍又一遍地運行腳本，我就會不斷收到一條錯誤消息，指出“錯誤：顏色必須是有效顏色”。 這很奇怪，因為我第一次運行腳本時，它運行良好。 但是，當我重新運行腳本時，會彈出錯誤。 還有其他人有這個問題嗎？ 我不知道如何解決問題。

這是我的代碼

library(flextable)
library(tidyverse)

MarkI <- tibble(row = 'a',
                column = 'b')

MarkI %>%
  flextable() %>%
  set_flextable_defaults(#big.mark = " ", 
    font.size = 10,
    font.color = 'red'
  )

Answer 1

嘗試使用這些塊。

a) 沒有管道。

library(flextable)
library(tidyverse)

MarkI <- tibble(row = 'a', column = 'b')

ft1 <- flextable(MarkI)
ft1 <- fontsize(ft1, size = 10)
ft1 <- color(ft1, color = "red")
ft1 <- colformat_num(ft1, big.mark=" ")
ft1

b) 帶管道。

  MarkI %>%
      flextable() %>%
      fontsize(size = 10) %>%
      color(color = "green") %>%
      colformat_num(big.mark=" ")