MAFLD定义中的代谢综合征组分定义能用R语言给我编写吗

代谢性脂肪肝病（MAFLD）是介于非酒精性脂肪肝病（NAFLD）和非酒精性脂肪性肝炎（NASH）之间的一种病症，其中包含代谢综合征的一些成分。我们可以创建一个R函数来表示常见的MAFLD特征，如中心型肥胖、高血压和高血糖。这里是一个简化版的定义：

# 定义MAFLD的组件及其阈值
metabolic_components <- list(
  central_obesity = function(bmi) bmi >= 25, # 中心型肥胖 (BMI >= 25 kg/m²)
  hypertension = function(sbp) sbp >= 130 | dbp >= 85, # 高血压 (SBP ≥ 130 mmHg 或 DBP ≥ 85 mmHg)
  hyperglycemia = function(fasting_glucose) fasting_glucose >= 100  # 空腹血糖异常 (FPG ≥ 100 mg/dL)
)

# 判断个体是否符合MAFLD
check_mafld <- function(bmi, sbp, dbp, fasting_glucose) {
  components_status <- lapply(metabolic_components, function(component, value) component(value))
  all(components_status)
}

# 示例
individual_data <- list(
  bmi = 27,
  sbp = 135,
  dbp = 88,
  fasting_glucose = 105
)

has_mafld(individual_data) # 返回TRUE或FALSE

请注意，这里的阈值和诊断标准仅供参考，实际诊断应参考专业文献和临床指南。