## 定义

Definition

Criteria

detail

Fecal Incontinence

Based on the following question, FI was defined as any involuntary loss of mucus, liquid, or solid stool during the last 30 days (gas excluded):
“How often during the past 30 days have you had any amount of accidental bowel leakage that consisted of mucus/liquid stool/solid stool?”
(Response options: 2 or more times a day, once a day, 2 or more times a week, once a week, 1 to 3 times a month, or never.)

←

BHQ020, BHQ030, BHQ040

类别分布:

13364	90.8%		0
1353	9.2%		1

Stool Frequency

Participants were asked the following question: "How often do you usually have bowel movements?" Responses were categorized as:
• <3 times/week
• 3-21 times/week
• >21 times/week

stool_frequency

←

BHD050

类别分布:

13988	95%	3-21 times/week
523	3.6%	<3 times/week
208	1.4%	>21 times/week

Stool Type

Participants were asked the following question: "What is your usual or most common stool type?" Responses were categorized as:
• chronic constipation: hard and lumpy
• normal bowel habits: normal consistencies
• chronic diarrhea: mushy and watery

stool_type

←

BHQ060

类别分布:

12347	84.5%	normal bowel habits: normal consistencies
1141	7.8%	chronic diarrhea: mushy and watery
1131	7.7%	chronic constipation: hard and lumpy

Fecal Urgency

Participants who answered “always” or “most of the time” to the question:
“During the past 12 months, how often have you had an urgent need to empty your bowels that makes you rush to the toilet?”
(Response options: most of the time, always, sometimes, rarely, never.)

fecal_urgency

←

BHQ070

类别分布:

5050	95.9%		0
216	4.1%		1

> Whitehead WE, Borrud L, Goode PS, Meikle S, Mueller ER, Tuteja A, Weidner A, Weinstein M, Ye W; Pelvic Floor Disorders Network. Fecal incontinence in US adults: epidemiology and risk factors. Gastroenterology. 2009 Aug;137(2):512-7, 517.e1-2. doi: 10.1053/j.gastro.2009.04.054. Epub 2009 May 4. PMID: 19410574; PMCID: PMC2748224. > Ballou S, Katon J, Singh P, Rangan V, Lee HN, McMahon C, Iturrino J, Lembo A, Nee J. Chronic Diarrhea and Constipation Are More Common in Depressed Individuals. Clin Gastroenterol Hepatol. 2019 Dec;17(13):2696-2703. doi: 10.1016/j.cgh.2019.03.046. Epub 2019 Apr 4. PMID: 30954714; PMCID: PMC6776710. > Rangan V, Mitsuhashi S, Singh P, Ballou S, Hirsch W, Sommers T, Nee J, Iturrino J, Lembo A. Risk Factors for Fecal Urgency Among Individuals With and Without Diarrhea, Based on Data From the National Health and Nutrition Examination Survey. Clin Gastroenterol Hepatol. 2018 Sep;16(9):1450-1458.e2. doi: 10.1016/j.cgh.2018.02.020. Epub 2018 Feb 21. PMID: 29474972; PMCID: PMC6098738. ## 材料 ### 1-提取变量

BHQ010=FI_gas, BHQ020=FI_mucus, BHQ030=FI_liquid, BHQ040=FI_solid, BHD050=stool_frequency, BHQ060=stool_type, BHQ070=fecal_urgency

### 2-代码材料 ``` rm(list = ls()) # 设置路径 # ----------- 检查并安装包 ----------- for (pkg in c("devtools", "openxlsx", "dplyr")) { if (!requireNamespace(pkg, quietly = TRUE)) { install.packages(pkg) } } library("devtools") library("openxlsx") library("dplyr") # install_github("ZhidoHuang/dbCodeBookr") # 提示更新包, 可选3跳过 library("dbCodeBookr") # ----------- 读取数据 ----------- dt <- read.csv("raw_data.csv") data <-dt # 重要！！！ data[data==""] <- NA # 重要！！！ names(data) # [1] "SEQN" "YEAR" "FI_gas" "FI_mucus" # [5] "FI_liquid" "FI_solid" "stool_frequency" "stool_type" # [9] "fecal_urgency" # ----------- 粪便失禁 ----------- ## 批量清理数据，统一格式 #### # 指定要替换的变量 data[data=="once a week,"] <- 1 data[data=="never?"] <- 0 data[data=="1-3 times a month, or"] <- 1 data[data=="2 or more times a day,"] <- 1 data[data=="once a day,"] <- 1 data[data=="2 or more times a week,"] <- 1 data[data=="don't know"] <- NA data[data=="refused"] <- NA data[data=="never"] <- 0 data[data=="2 or more times a day"] <- 1 data[data=="once a day"] <- 1 data[data=="once a week"] <- 1 data[data=="2 or more times a week"] <- 1 data[data=="1-3 times a month"] <- 1 ## 查看数据 ##### table(data$FI_gas,useNA = "ifany") #气体流失 table(data$FI_mucus,useNA = "ifany") #黏液流失 table(data$FI_liquid,useNA = "ifany") #液体流失 table(data$FI_solid,useNA = "ifany") #固体流失 ## 定义粪便失禁 ##### # FI 定义为过去 30 天内任何非自愿的黏液、液体或固体粪便流失;该 FI 定义不包括气体 data$FI <- case_when( data$FI_mucus == 1 | data$FI_liquid == 1 | data$FI_solid == 1 ~ 1, data$FI_mucus == 0 & data$FI_liquid == 0 & data$FI_solid == 0 ~ 0, TRUE ~ NA ) table(data$FI,useNA = "ifany") table(data$FI,data$YEAR,useNA = "ifany") # ----------- 排便频率 ----------- ## “stool_frequency”，lable：How many times per week do you usually have a bowel movement? -一周排便频率 ##### table(data$stool_frequency,useNA = "ifany") str(data$stool_frequency) # recode.num(data$stool_frequency) data$stool_frequency <- as.numeric(data$stool_frequency) #3 ranges: <3 times/week, 3-21 times/week, >21 times/week. data$stool_frequency <- case_when( data$stool_frequency < 3 ~ "<3 times/week", data$stool_frequency >= 3 & data$stool_frequency <= 21 ~ "3-21 times/week", data$stool_frequency > 21 ~ ">21 times/week", TRUE ~ NA_character_ ) table(data$stool_frequency,useNA = "ifany") # ----------- 粪便类型 ----------- ## “stool_type”，lable：common stool type ##### table(data$stool_type,useNA = "ifany") # recode.chr(data$stool_type) data$stool_type <- case_when( data$stool_type == "type 3 (like a sausage but with cracks in the surface)," ~ "normal bowel habits: normal consistencies", data$stool_type == "type 4 (like a sausage or snake, smooth and soft)," ~ "normal bowel habits: normal consistencies", data$stool_type == "type 6 (fluffy pieces with ragged edges, a mushy stool)," ~ "chronic diarrhea: mushy and watery", data$stool_type == "type 5 (soft blobs with clear-cut edges)," ~ "normal bowel habits: normal consistencies", data$stool_type == "type 1 (separate hard lumps, like nuts)," ~ "chronic constipation: hard and lumpy", data$stool_type == "type 2 (sausage-like, but lumpy)," ~ "chronic constipation: hard and lumpy", data$stool_type == "type 7 (watery, no solid pieces)," ~ "chronic diarrhea: mushy and watery", data$stool_type == "type 4 (like a sausage or snake, smooth and soft)" ~ "normal bowel habits: normal consistencies", data$stool_type == "type 3 (like a sausage but with cracks in the surface)" ~ "normal bowel habits: normal consistencies", data$stool_type == "type 6 (fluffy pieces with ragged edges, a mushy stool)" ~ "chronic diarrhea: mushy and watery", data$stool_type == "type 5 (soft blobs with clear-cut edges)" ~ "normal bowel habits: normal consistencies", data$stool_type == "type 2 (sausage-like, but lumpy)" ~ "chronic constipation: hard and lumpy", data$stool_type == "type 1 (separate hard lumps, like nuts)" ~ "chronic constipation: hard and lumpy", data$stool_type == "type 7 (watery, no solid pieces)" ~ "chronic diarrhea: mushy and watery", TRUE ~ NA_character_ ) table(data$stool_type,useNA = "ifany") # ----------- 粪便急迫症 ----------- ## “fecal_urgency”，lable：How urgent is it for you to have a bowel movement? -排便急迫性 ##### table(data$fecal_urgency,useNA = "ifany") # 回答“总是”或“大多数时候”的人被归类为粪便急迫症 # recode.chr(data$fecal_urgency) data$fecal_urgency <- case_when( data$fecal_urgency == "sometimes" ~ "0", data$fecal_urgency == "rarely" ~ "0", data$fecal_urgency == "0" ~ "0", # 0代表never（前面进行替换了） data$fecal_urgency == "most of the time" ~ "1", data$fecal_urgency == "always" ~ "1", TRUE ~ NA_character_ ) table(data$fecal_urgency,useNA = "ifany") ## 相关文献 ##### # 19410574、29474972、30954714 names(data) # ----------- 创建新字典 ----------- ## 读取原始变量字典文件（包含原始变量名、标签等元数据信息），将新生成的变量也加入到字典 #### name_z <- read.csv("raw_codebook.csv") names(name_z) ## 变量映射表：将新生成的变量与原始变量进行映射，便于后续生成字典 #### add_mapping <- function(map, new_var, original_var) { # 将向量转换为逗号分隔的字符串存储 original_var_str <- paste(original_var, collapse = ", ") rbind(map, data.frame(Variable = new_var, original_vars = original_var_str, stringsAsFactors = FALSE)) } map <- data.frame(Variable = character(), original_vars = character()) map <- add_mapping(map, "FI", c("FI_mucus", "FI_liquid", "FI_solid")) ## 创建codebook字典：为每个变量（包括新生成的变量）匹配原始字典信息，生成包含变量名、原始变量名、标签等信息的字典表 #### codebook <- lapply(names(data), function(col) { col_var <- col # 获取原始变量列表（如果是映射变量） if (col %in% map$Variable) { original_vars_str <- map$original_vars[map$Variable == col] original_vars_list <- unlist(strsplit(original_vars_str, ", ")) } else { original_vars_list <- col } # 对每个原始变量查找匹配项 matches_list <- lapply(original_vars_list, function(orig_var) { name_z[grepl(orig_var, name_z$newname) & sapply(gsub(orig_var, "", name_z$newname), function(x) stringr::str_count(x, "_") <= 1), ] }) # 过滤掉空的数据框 matches_list <- matches_list[sapply(matches_list, nrow) > 0] if (length(matches_list) > 0) { matches <- do.call(rbind, matches_list) matches <- matches[!duplicated(matches), ] # 去除重复 } else { matches <- data.frame(Variable = character(), newname = character(), Label = character(), stringsAsFactors = FALSE) } data.frame( Variable = col_var, original_vars = if(nrow(matches) > 0) paste(unique(matches$Variable), collapse = ", ") else "", processed_vars = if(nrow(matches) > 0) paste(unique(matches$newname), collapse = ", ") else "", Label = if(nrow(matches) > 0) first(matches$Label) else "", count = if(nrow(matches) > 0) nrow(matches) else 0, stringsAsFactors = FALSE ) }) %>% bind_rows() View(codebook) ## 新生成的变量需要手动标注意思!!!! #### codebook$Label[codebook$Variable == "FI"] <- "Fecal Incontinence" write.xlsx(data, "db_bowel_health.xlsx") write.xlsx(codebook, "codebook_bowel_health.xlsx") ## 输出文件以分析数据 #### analysis_data <- data[c("SEQN","FI","stool_frequency","stool_type","fecal_urgency")] analysis_codebook <- subset(codebook, Variable %in% c("FI","stool_frequency","stool_type","fecal_urgency")) write.xlsx(analysis_data, "analysis_db_bowel_health.xlsx") write.xlsx(analysis_codebook, "analysis_codebook_bowel_health.xlsx") ``` ## 定义的组分概览

+ 点击收起详情点击查看详情

Variable	original_vars	easylabel	2005-2006	2007-2008	2009-2010
Bowel Health
FI_gas	BHQ010	bowel leakage consisted of gas?	4,298	5,156	5,262
FI_mucus	BHQ020	bowel leakage consisted of mucus?	4,305	5,158	5,258
FI_liquid	BHQ030	bowel leakage consisted of liquid?	4,302	5,160	5,261
FI_solid	BHQ040	bowel leakage consisted of solid stool?	4,306	5,160	5,262
FI	BHQ020, BHQ030, BHQ040	Fecal Incontinence	4,303	5,157	5,257
stool_frequency	BHD050	how often have bowel movements?	4,294	5,163	5,262
stool_type	BHQ060	common stool type	4,240	5,133	5,246
fecal_urgency	BHQ070	had an urgent need to empty bowels?			5,266

## 定义的组分详情

+ 点击收起详情点击查看详情

Bowel Health

FI_gas

← BHQ010

bowel leakage consisted of gas?

类别分布:

8286	56.3%		0
6430	43.7%		1

FI_mucus

← BHQ020

bowel leakage consisted of mucus?

类别分布:

14226	96.6%		0
495	3.4%		1

FI_liquid

← BHQ030

bowel leakage consisted of liquid?

类别分布:

13760	93.5%		0
963	6.5%		1

FI_solid

← BHQ040

bowel leakage consisted of solid stool?

类别分布:

14400	97.8%		0
328	2.2%		1

← BHQ020, BHQ030, BHQ040

Fecal Incontinence

类别分布:

13364	90.8%		0
1353	9.2%		1

stool_frequency

← BHD050

how often have bowel movements?

类别分布:

13988	95%	3-21 times/week
523	3.6%	<3 times/week
208	1.4%	>21 times/week

stool_type

← BHQ060

common stool type

类别分布:

12347	84.5%	normal bowel habits: normal consistencies
1141	7.8%	chronic diarrhea: mushy and watery
1131	7.7%	chronic constipation: hard and lumpy

fecal_urgency

← BHQ070

had an urgent need to empty bowels?

类别分布:

5050	95.9%		0
216	4.1%		1

导航目录

数据库

内容目录

热门标签

数据预览