为字符变量创建标签列答案

【问题标题】：Creating a Label column for character variables为字符变量创建标签列
【发布时间】：2021-03-16 21:58:54
【问题描述】：

假设我有这个只有字符变量的示例数据集。

dxe1<-c("W07XXXA", "NULL", "3")
dxe1_poa<-c("Y","NULL","N")
dxe2<-c("NULL","NULL","NULL")
dxe2_poa<-c("NULL","NULL","NULL")
df3 <- data.frame(dxe1,dxe1_poa, dxe2,dxe2_poa)

我想给变量加标签，所以我为它们创建了一个标签向量：

var.labels = c(dxe1="External Cause of Injury Diagnosis 1",
               dxe1_poa="External Cause of Injury Diagnosis 1 - Present on Admission", dxe2="External Cause of Injury Diagnosis 2", dxe2_poa="External Cause of Injury Diagnosis 2 - Present on Admission")

label(df3) = as.list(var.labels[match(names(df3), names(var.labels))])

label(df3)

我的目标是创建一个类似于下图的表，也就是说，我想要一个标签列来给出变量描述。我只希望丢失的观察结果显示为统计数据，而不是 min、max、mean、sd。他们应该只是 n.a.如下表所示。

我正在尝试使用以下代码集：

df3 <- Filter(is.character, df3)
Variables <- names(df3)
Label <- label(df3)
Missing <- sapply(df3, function(x) sum(is.na(x)))
Type <- sapply(df3, function(x) {tmp <- class(x);if(length(x) > 1) tmp[2] else tmp[1]})
Min <- sapply(df3, function(x) min(x, na.rm = TRUE))
Max <- sapply(df3, function(x) max(x, na.rm = TRUE))
SD <- sapply(df3, function(x) format(round(sd(x, na.rm=TRUE), 2), nsmall = 2))
Mean <- sapply(df3, function(x) format(round(mean(x, na.rm=TRUE), 2), nsmall = 2))
#To get the Latex table for the rows 
knitr::kable(data.frame(Variables, Label, Missing, Type, Min, Max, Mean, SD, row.names = NULL), "latex")

但是，使用上面的代码集，mean 和 SD 的统计数据仍然显示。我想让它们像上表一样显示为“n.a”。有什么建议么？此外，我在字符形式中出现了最小值和最大值。我只想显示数字形式。

【问题讨论】：

你将如何显示字符变量的min 和max？ I just want the number forms to appear.是什么意思
@RonakShah 嗨，是的。显示字符变量的最小值和最大值没有多大意义。我不确定为什么上面的表格会这样。但我想显示缺失值、标签和类型。对于其余部分，它可能显示为“n.a.”。在 Latex 输出表中。现在，我的显示为 NA。

标签： r dataframe label summary

【解决方案1】：

你可以试试这个：

df3 <- Filter(is.character, df3)
Variables <- names(df3)
Label <- label(df3)
Missing <- sapply(df3, function(x) sum(is.na(x)))
Type <- sapply(df3, function(x) {tmp <- class(x);if(length(x) > 1) tmp[2] else tmp[1]})
Min <- 'n.a'
Max <- 'n.a'
SD <- 'n.a'
Mean <- 'n.a'
#To get the Latex table for the rows 
knitr::kable(data.frame(Variables, Label, Missing, Type, Min, Max, Mean, SD, row.names = NULL), "latex")

【讨论】：