r - 如何比较 ICD-10 字符串或搜索诊断是否在范围内？

Question

我有一个关于如何检查某些诊断是否属于 R 中的 ICD-10 范围的问题。

这是我的诊断代码：C349 A219 B003 C509 B700 A090

这是我希望比较的标准 ICD-10 范围：C01.0-C17 A74.8-A75.9 B00.1-B33.1 B69-B72.0 C00.0-C94.2

我试图将字符串拆分为值，但由于它们仍然不是数字，我无法比较它们。

谢谢！

姚

Answer 1

这就是icd旨在解决的问题。ICD-10 代码的范围很难，因为与 ICD-9 代码相比，它们的范围太多了。此外，无论是世界卫生组织还是美国临床修订版，都没有 ICD-10 代码 C01.0。考虑到这一点：

library(icd)
diagnoses <- c("C349", "A219", "B003", "C509", "B700", "A090")
one_pt <- data.frame(id = rep("patient1", length(diagnoses)),
                     diagnoses)
dif_pt <- data.frame(id = paste0("patient", seq_along(diagnoses)),
                     diagnoses)
my_map <- list(c01to17 = icd::expand_range("C01", "C17"),
               a74to75 = icd::expand_range("A748", "A759"),
               b00to33 = icd::expand_range("B001", "B331"),
               b69to72 = icd::expand_range("B69", "B72"),
               c00to94 = icd::expand_range("C000", "C942"))
icd::comorbid(one_pt, map = my_map)
icd::comorbid(dif_pt, map = my_map)

我建议尝试与带或不带小数位的 ICD 代码保持一致。我更喜欢放弃它们。

如果您使用的是非 WHO 或非 ICD-10-CM 代码，您仍然可以使用 ICD，但请注意检查 C01.0 等差异是否正确计算。这可能意味着在某些情况下手动输入代码范围内的代码。@thelatemail 是正确的，您在扩展范围时必须非常小心，不要通过“父”代码扩展，因此比计划的范围更广。中的范围扩展代码icd对此非常小心。