问题描述
library(stringr)
library(dplyr)
library(broom)
# get all unique strings after underscores from your column names
suffix = str_extract(names(dfA),"_.*") %>% na.omit %>% unique
prefix = c("GT","N")
base_formula = "PV ~ SEX + GAN +"
full_formula = paste(base_formula,paste0(prefix[1],suffix),"+",paste0(prefix[2],suffix))
mods = list()
for(i in seq_along(full_formula)) {
mods[[suffix[i]]] = lm(as.formula(full_formula[i]),data = dfA)
}
stats = lapply(mods,tidy)
stats = bind_rows(stats,.id = "suffix")
解决方法
一些想法:
-
在 random.choices()中指定
int
时,已经保证可以消除重复项。 -
使用 return
替换功能中的 print -
collections.Counter()可用于有效计数所有元素,以便您知道每个元素发生了多少次。
-
测试重复项是否存在的简单快捷方法是
replace=False
。