AKI KDIGO分類Cr経時変化
AKI KDIGOステージ別のCr経時変化テンプレート。Stage1-3の閾値ライン付き。
R Code (ggplot2)
library(ggplot2) # ---- AKI KDIGO Stage Cr Timeline ---- # あなたのデータを入力してください df <- data.frame( x = c(), y = c() ) ggplot(df, aes(x = x, y = y)) + geom_point(size = 2) + geom_line() + scale_x_continuous(name = "Time (hours)", limits = c(0, 72)) + scale_y_continuous(name = "Serum Creatinine (mg/dL)", limits = c(0, 6)) + labs(title = "AKI KDIGO Stage Cr Timeline") + theme_bw(base_size = 14) + theme(plot.title = element_text(face = "bold", hjust = 0.5))
