FlexTable格式编号

Question

我使用记者使用以下代码生成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如何格式化数字？具体而言，不要对所有行应用相同的格式，而是在逐行基础上应用一种有意义的格式？

Answer 1

我用r transposing a data frame的提示解决了我的问题。问题是将数据帧框架强制所有元素转换为字符。使用矩阵解决了这个问题：

ft.list <- list(mua= 1, mub = 2, mug = 1e-7)
ft.data <- as.matrix(ft.list, rownames.force=TRUE )

Answer 2

我在R标记文档中使用flextable解决了这个问题，添加了set_formatter_type，并控制了我的所有double数据类型。我的输出用很多我不想要的零填充所有东西。

```{r echo=FALSE, message=FALSE, warning=FALSE, results='asis'}

图书馆(可弯曲)

图书馆(Tidyverse)

结果<- as.tibble(read.csv:/ALLRESULTS.csv“，header=TRUE)

结果%>% na.omit() %>%过滤器(grepl(“KEY-K”，对齐)) %>%

  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()