R中汇总表的表示方式

Question

我正在尝试在 R 中创建一个汇总表，如下表 4 所示。

现在我所拥有的类似于以下内容。我不知道如何在 R 中自动生成 Latex 代码来创建一个像上面那样的表。

我正在使用以下 R 代码来生成表格。然后我将代码复制并粘贴到 Latex 中，使其出现在 pdf 中。

#Build a rough summary table
summary1 <-
  list("Age (Years)" =
         list("Missing"  = ~ sum(is.na(df$age_years)),
              "Type" = ~ if(is.numeric(df$age_years)==TRUE) {print("Numeric")} else {print("Character")},
              "Min"       = ~ min(age_years),
              "Max"       = ~ max(age_years),
              "Mean" = ~ format(round(mean(df$age_years), 2), nsmall = 2),
              "SD" = ~ format(round(sd(df$age_years), 2), nsmall = 2)),
       "Female" =
         list("Missing"  = ~ sum(is.na(df$sex_DV)),
              "Type" = ~ if(is.numeric(df$sex_DV)==TRUE) {print("Numeric")} else {print("Character")},
              "Min"       = ~ min(sex_DV),
              "Max"       = ~ max(sex_DV),
              "Mean" = ~ format(round(mean(df$sex_DV), 2), nsmall = 2),
              "SD" = ~ format(round(sd(df$sex_DV), 2), nsmall = 2))
       )

whole <- summary_table(df,summary1)
whole

欢迎任何帮助。谢谢！

编辑：具有可重现部分的数据（不是实际数据）

> df
      age_years       sex
    1          33          0
    2          11          1
    3          45          1
    4          67          0
    5          8           0
    6          99          0

Answer 1

鉴于提供的示例数据，您可以实现以下目标。

df <- data.frame(
   age_years = c(33L, 11L, 45L, 67L, 8L, 99L),
         sex = c(0L, 1L, 1L, 0L, 0L, 0L)
)

names <- names(df)
missing_counts <- sapply(df, function(x) sum(is.na(x)))
classes <- sapply(df, function(x) class(x))
min <- sapply(df, function(x) min(x, na.rm = TRUE))
max <- sapply(df, function(x) max(x, na.rm = TRUE))
sd <- sapply(df, function(x) sd(x, na.rm = TRUE))
mean <- sapply(df, function(x) mean(x, na.rm = TRUE))

knitr::kable(as.data.frame(cbind(names, missing_counts, classes, min, max, mean, sd), row.names = FALSE))

names	missing_counts	classes	min	max	sd	mean
age_years	0	integer	8	99	34.8161839762296	43.8333333333333
sex	0	integer	0	1	0.516397779494322	0.333333333333333

旁注，将性别编码为 0 和 1，您可能希望此数据是一个因素而不是数字，并且您可能不想报告此统计数据的平均值/SD。