Question

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

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

我使用以下代码创建了一个新的＆＃34; icd9.explain＆＃34;：

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

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

谢谢！

Answer 1

icd（此前为icd9软件包作者。刚刚接到您的问题，我刚才意识到这一点。

包裹会猜测你是否有短格式Eg。 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章节和子章节。

Answer 2

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

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

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

2 个答案: