2

我有一个包含 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

有谁知道如何获得正确的代码解释?

谢谢!!

4

2 回答 2

3

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 章节和子章节。

于 2016-02-02T10:20:28.350 回答
0

对于将来可能遇到此问题的任何人,我都可以使用 lapply 函数解决我的问题:

 lapply(as.character(df$icdcode),function(x){icd9ExplainShort(x)})
于 2015-03-19T20:30:22.157 回答