将列表项获取为data.frame

我希望你能帮我做点什么。下面是一些演示代码

library(gender)
library(tidyverse)

test1 = tibble::tribble(
  ~name1,      ~name2, ~name3, ~name4, ~name5,
  "PETER",      "KLAUS",     NA,     NA,     NA,
  "HEIKE", "ANTONIA",     NA,     NA,     NA,
  "SANDRA", "HEIKO", "HEIKO", "HEIKE", "HEIKE"
)

male_female_row <- list()
for (row in 1:nrow(test1)) {
  x1=gender(as.character(test1[row,]))
  y = table(x1$gender)
  male_female_row[[row]] = y
}

model2 = do.call(rbind.data.frame, male_female_row) ### List to dataframe

图书馆（性别）
图书馆（tidyverse）
test1=tibble:：tribble(
~name1、~name2、~name3、~name4、~name5、，
“彼得”，“克劳斯”，不，不，不，
“海克”，“安东妮亚”，不，不，不，
“桑德拉”，“黑子”，“黑子”，“黑子”，“黑子”
)
男\女\行您可以将因子水平设置为性别变量作为解决方案：

male_female_row <- list()
for (row in 1:nrow(test1)) {
  x1=gender(as.character(test1[row,]))
  y=table(factor(x1$gender,levels=c("male","female")))
  male_female_row[[row]] = y
}

model2 = do.call(rbind.data.frame, male_female_row) ### List to dataframe
colnames(model2)=c("male","female")

男\女\行