Эта проблема уже решена.Пакет 'icd' R, который я и соавторы поддерживали в течение пяти лет, может сделать это.В частности, он использует стандартизированные наборы сопутствующих заболеваний, в том числе диабет с осложнениями, которые вы ищете, от AHRQ, оригинал Elixhauser, Charlson и т. Д.
Например, для ICD-10 AHRQ, вы можете увидеть коды для диабетас осложнениями здесь.Начиная с версии icd 4.0, они включают коды ICD-10 от ВОЗ и все годы ICD-10-CM.
icd::icd10_map_ahrq$DMcx
Чтобы использовать их, сначала просто возьмите кадр данных своего пациента и попробуйте:
library(icd)
pts <- data.frame(visit_id = c("encounter-1", "encounter-2", "encounter-3",
"encounter-4", "encounter-5", "encounter-6"), icd10 = c("I70401",
"E16", "I70.449", "E13.52", "I70.6", "E11.51"))
comorbid_ahrq(pts)
# and for diabetes with complications only:
comorbid_ahrq(pts)[, "DMcx"]
Или вы можете получить фрейм данных вместо матрицы следующим образом:
comorbid_ahrq(pts, return_df = TRUE)
# then you can do:
comorbid_ahrq(pts, return_df = TRUE)$DMcx
Если вы приведете пример исходных данных и вашей цели, я могу помочь вам больше.