2

我正在使用 ReporteRs 使用以下代码生成 flexTable：

library( ReporteRs )
baseCellProp <- cellProperties( padding = 2 )
baseParProp <- parProperties(text.align = "center")
ft.list <- list(mua= 1, mub = 2, mug = 1e-7)
ft.data <- t(data.frame(ft.list))

ft.FlexTable <-  FlexTable( data = ft.data,
                            add.rownames = TRUE,
                            header.columns = FALSE,
                            body.cell.props = baseCellProp,
                            body.par.props = baseParProp)

ft.FlexTable <- setFlexTableWidths(ft.FlexTable, widths =c(1,2))
ft.FlexTable

我遇到的问题是所有数字都以科学记数法出现，如下所示：

mua 1e+00
mub 2e+00
mug 1e-07

有没有办法告诉 flexTable 如何格式化数字？具体来说，不要对所有行应用相同的格式，而是逐行应用一种有意义的格式？

4

2 回答 2

1

我flextable在 R Markdown 文档中通过添加set_formatter_type和控制所有double数据类型的呈现方式解决了这个问题。我的输出是用很多我不想要的零填充所有内容。

```{r echo=FALSE, message=FALSE, warning=FALSE, results='asis'}
library(flextable)
library(tidyverse)
results <- as.tibble(read.csv("D:/ALLRESULTS.csv",header=TRUE))
results %>% na.omit() %>% filter(grepl("KEY-K",Alignment)) %>% 
      arrange(Year,Source) %>% 
      select(Source,Question,Year,Target,Actual,Highest,n) %>% 
      regulartable() %>% 
      set_formatter_type(fmt_double="%.01f") %>% 
      align(part="header",align="center") %>% 
      align(align="left") %>% autofit()
```
于 2018-05-25T04:11:02.073 回答
0

我使用来自r 转置数据框的提示解决了我的问题。问题是转置数据框框架将所有元素强制转换为字符。使用矩阵可以解决这个问题：

ft.list <- list(mua= 1, mub = 2, mug = 1e-7)
ft.data <- as.matrix(ft.list, rownames.force=TRUE )
于 2016-01-29T17:49:34.070 回答