如何刪除/更改 flextable 中的小數和值

Question

我設法根據以下代碼創建了一個彈性表。 opleiding1 到 4 中使用的數據看起來有點像這樣：0, 0, 1, 7, 3, 7, 0

t7 <- data.frame(df$opleiding.1.[df$startvraag=="Ja"],
                 df$opleiding.2.[df$startvraag=="Ja"],
                 df$opleiding.3.[df$startvraag=="Ja"],
                 df$opleiding.4.[df$startvraag=="Ja"]
)

t7 <- data.frame(aantal=(apply(t7, 2, sum))) %>% round(digits = 0)
rownames(t7) <- c("hbo, universitair", "mbo, vwo, havo", "vmbo/mavo", "onbekend")
t7

使用以下代碼創建彈性表：

t7 <- xtable(t7)

ft7 <- t7 %>% xtable_to_flextable() %>% 
  fontsize(part = "header", size = 20) %>%
  fontsize(part = "body", size = 18) %>%
  align_text_col(align = "left") %>% 
  align_nottext_col(align = "center") %>%
  width(width = 2.3) %>%
  width(j = 1, width = 2.0) %>%
  height_all(height = .5) %>%
  border_inner(border = std_border) %>% 
  font(fontname = "Open Sans") %>%
  color(part = "header", color = d) %>% 
ft7

這給了我一個 flextable，它是我想要的，除了這里顯示的小數。 我一直在尋找可能的解決方案，但似乎沒有任何效果。 將表格轉換為彈性表格時，似乎添加了小數點。 當我運行前面的代碼（上面提到）時，它不會返回任何小數，如此處所示。 希望有人可以幫我解決這個問題。

Answer 1

我認為這是因為您的aantal列的類型是double ，這意味着它具有真實值。 您可以在創建data.frame時將其類型更改為 integer。

嘗試這個

t7 <- data.frame(aantal=(apply(t7, 2, sum))) %>% 
    round(digits = 0) %>%
    mutate(aantal = as.integer(aantal))