クレアチニンクリアランス

薬剤の投与量を考えるときに、クレアチニンクリアランスというものを考慮しないといけないのだが、クレアチニンクリアランスにはクレアチニンと男女と体重が必要である。
そんなものは電子カルテで自動計算してくれればいいのだが、デフォルトではしてくれない仕様である。
クレアチニンクリアランスで、だいたい50以下、30以下、10以下、くらいがわかればいいのでとりあえずやってみる。
クレアチニンクリアランスは、クレアチニン値、年齢、体重 として

で、女性は0.85倍される。

体重60kgとすると、<30 となる領域は80歳以上でCre >1.5 であるので、そんなに高齢でなければCre 2 くらいまではなんにも腎調節のことは考えずに初回投与してもたぶん大丈夫そう。

age <- 16:100
cre <- seq(0, 10, by=0.1)[-1]
bw <- 60

d <- c(0, 10, 30, 50, 10000)
CCR <- mapply(function(z) matrix(c(cut(outer((140-age)*bw/72, cre, "/")*z, d)), length(age), length(cre)), c("male"=1, "female"=0.85), SIMPLIFY=FALSE)

v0 <- seq(0, 100, by=5)
v1 <- seq(0, 10, by=0.5)
txt <- sprintf("%d - %s", head(d, -1), c(d[-c(1, length(d))], ""))
cols <- rev(c("lightgreen", "yellow", "orange", "red"))
par(mfrow=c(1, 2), mar=c(5, 5, 2, 2), las=1, cex.lab=1.5, cex.axis=2)
for(i in seq(CCR)){
  image(age, cre, CCR[[i]], xlab="Age", ylab="Creatinine clearance [mg/dL]", col=cols, main=names(CCR)[[i]])
  abline(v=v0, h=v1, lty=3)
  legend("topright", legend=txt, bg="white", title="CCr", col=cols, pch=15, cex=1.5)
}