R:使用ICD-9包创建IC9-Code描述变量

Question

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

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

谢谢！！

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

Answer 2

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

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