在 table 中打印 DescribeBy 的输出

Print the output of DescribeBy in a table

我想以美观的方式打印使用 describeBy 函数获得的输出 table 以包含在我的报告中。

means<-describeBy(compdata1$lnfdinet, group=compdata1$namegeozone, mat=TRUE)
> means
    item group1 vars   n     mean       sd   median  trimmed      mad      min      max     range        skew    kurtosis         se
X11    1     AP    1 183 21.69083 1.996922 21.55382 21.61259 2.033396 16.41214 26.23397  9.821830  0.24999690 -0.05324277 0.14761670
X12    2    LAC    1 280 21.02388 1.900368 20.80716 20.98591 1.764128 15.86233 25.22215  9.359819  0.12315398 -0.21092124 0.11356872
X13    3  Other    1 239 21.55694 1.413843 21.50751 21.53762 1.586090 18.23622 24.98966  6.753438  0.09846572 -0.66249855 0.09145388
X14    4    SSA    1 327 19.79257 1.609993 20.00355 19.85755 1.491339 12.10486 23.52093 11.416070 -0.71694582  1.77092546 0.08903281

你知道任何代码吗?

我不确定您使用什么软件编写报告,但以下软件可能适合您。

请注意,在发布问题时,请通过说明您正在使用的包并尽可能使用预定义的数据集来使您的示例可重现。

  library(psych)

  means <- describeBy(mtcars$mpg, group=mtcars$gear, mat=TRUE)

  htmlTable::htmlTable(format(means, digits = 2)) 

您可以使用sjPlot包来获得word文件中的描述性统计信息,如

library(psych)
library(sjPlot)

tab_df(describe(iris),
       digits = 2,
  title = "Descriptive statistics", #give your tables title
  file = "Descriptive_statistics.doc")