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

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

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

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)
}