在 R 语言中，可以使用 `drg` 包来进行 DRG 分组。下面是一个简单的例子：
首先，安装 `drg` 包：
```R
install.packages("drg")
```
然后，加载 `drg` 包：
```R
library(drg)
```
接下来，我们可以使用 `drg()` 函数来进行 DRG 分组。假设我们有一个数据框 `data`，其中包含了患者的诊断和手术信息。我们可以使用以下代码来进行 DRG 分组：
```R
result <- drg(data, dx_cols = c("DX1", "DX2", "DX3"), pr_cols = c("PR1", "PR2"))
```
其中，`dx_cols` 参数指定了诊断列的名称，`pr_cols` 参数指定了手术列的名称。`drg()` 函数将返回一个包含 DRG 分组结果的数据框 `result`，其中包含了每个患者的 DRG 分组代码和名称。
需要注意的是，`drg` 包中的 DRG 分组算法可能与不同国家或地区的实际情况有所不同。因此，在使用时需要仔细阅读文档并根据实际情况进行调整。
用R作图，比用EXCEL要灵活的多。 散点图，直接用plot()即可 多类别，在R中就是多变量，用pionts() 加类别 拟合曲线用 fit<- lm() lines(fit) 添加文字用 text()
