Fatal编程技术网
  • r/
  • 在R中创建表1

在R中创建表1

r

在R中创建表1,r,R,我有一个数据集，叫做unchf_data，它包含一些参与者，其中一些人回答了问卷，而另一些人没有回答。我想制作一个描述性表格（表1），其中有列（Total，No-answer，answer） 为表1创建新列子组若PREG列回答“是”或1，则进入最后一组。 `unchf_data2如果您包含一个简单的示例输入和所需的输出，可以用来测试和验证可能的解决方案，那么就更容易帮助您。请包含您加载的所有非标准库（例如，cbind.na来自何处？）。 `unchf_data2 <- unchf_data

我有一个数据集，叫做
unchf_data
，它包含一些参与者，其中一些人回答了问卷，而另一些人没有回答。我想制作一个描述性表格（表1），其中有列（
Total
，
No-answer
，
answer
）

为表1创建新列子组若PREG列回答“是”或1，则进入最后一组。 
`unchf_data2如果您包含一个简单的示例输入和所需的输出，可以用来测试和验证可能的解决方案，那么就更容易帮助您。请包含您加载的所有非标准库（例如，
cbind.na
来自何处？）。

`unchf_data2 <- unchf_data2[!(unchf_data2$PREG == "0"),]`# removing all where pregnancy is 0. If no pregnancy then no chance of having an APO.

    unchf_data2<- unchf_data2[!c(is.na(unchf_data2$HYPTPREG) == "TRUE" & 
                                   is.na(unchf_data2$DIABPREG) == "TRUE" &
                                   is.na(unchf_data2$BABYLT5LBS) == "TRUE" &
                                   is.na(unchf_data2$BORN3WKSERLY) == "TRUE" &
                                   is.na(unchf_data2$PREECLMP) == "TRUE" &
                                   is.na(unchf_data2$BABYGT9LBS) == "TRUE"),]  # removing all that have missing in all APO variables. 

`unchf_data2$subgroup <- 1` # creating new variable - subgroup which has 1 in all

    unchf_data2$subgroup <- factor(unchf_data2$subgroup, levels = c(1))

`subgroup2 <- unchf_data2$subgroup` # making the new vector from subgroup variable

library(qpcR)
unchf_data <- qpcR:::cbind.na(subgroup2, unchf_data)  # Binds our new vector with length of 10375 to our data set with length of 44174, filling in NA values for everything longer than the vector. 


unchf_data$subgroup2[is.na(unchf_data$subgroup2) == "TRUE"] <- 0 # recoding all NA values to 0
unchf_data$subgroup2 <- factor(unchf_data$subgroup2, levels = c(0,1), labels = c("No answer", "Answer")) # converting variable to factor. 

summary(unchf_data$subgroup2) # No answer 33799, Answer 10375