R：使用 ICD-9 包创建 IC9 代码描述变量

Posted 2023-02-24

【中文标题】R：使用 ICD-9 包创建 IC9 代码描述变量

【英文标题】：R: Creating a IC9-Code Description Variable using the ICD-9 package

【发布时间】：2015-03-19 16:50:27

【问题描述】：

我有一个包含 3 位 ICD-9 代码的数据集，我想根据 3 位代码创建一个 ICD9 描述变量。这是复制我的数据集的代码：

id=c(1:5);icdcode=c("786","401","780","300","V30");df=data.frame(id,icdcode)

我使用以下代码创建了一个新的 var "icd9.explain"：

df$icd.explain=icd9ExplainShort(as.character(df$icdcode))

我的结果数据集如下所示：

> df
  id icdcode                                    icd.explain
1  1     786 Anxiety, dissociative and somatoform disorders
2  2     401 Anxiety, dissociative and somatoform disorders
3  3     780 Anxiety, dissociative and somatoform disorders
4  4     300 Anxiety, dissociative and somatoform disorders
5  5     V30 Anxiety, dissociative and somatoform disorders

有人知道如何获得正确的代码解释吗？

谢谢！！

【问题讨论】：

这是什么语言？

@Amy R 和包是 icd9

【参考方案1】：

icd（以前的icd9 包作者在这里。刚刚收到您的问题，我意识到这是不久前的事了。

包会猜测你是否有短格式，例如。 0100 或十进制形式，例如010.0，所以你可以稍微简化一下。您也不需要转换为 character，因为它已经可以处理字符或因子。

id=c(1:5)
icdcode <- c("786","401","780","300","V30")
df <- data.frame(id, icdcode, desc = icd::explain_code(icdcode))

还有explain_table，它抓取了短描述和长描述，以及每个代码的ICD章节和子章节。

【参考方案2】：

对于将来可能遇到此问题的任何人，我可以使用 lapply 功能解决我的问题：

 lapply(as.character(df$icdcode),function(x)icd9ExplainShort(x))

【讨论】：

这个接受的答案适用于旧的“icd9”包。有关使用“icd”的更好方法，请参阅我的其他答案。