gikoha’s blog

個人的メモがわり

経過表

大学病院勤務時代は、経過表を教授回診前にボードに色鉛筆で記入し血圧・薬剤について一目でわかるようにグラフにしていたものだった。

同様にプレゼン等でも特に薬剤などは一目でわかるようにしたい

例:

http://idsc.nih.go.jp/iasr/rapid/graph/pf33241.gif

薬剤が単剤であればそれほど問題ないが、漸増や漸減したときにうまく量を表現したい

 

kotlin+TornadeFX(JavaFX)

val bc = barchart("Patient",CategoryAxis(), NumberAxis())
bc.isLegendVisible=false
bc.barGap=0.0
bc.categoryGap=0.0
bc.isHorizontalGridLinesVisible=false
bc.isVerticalZeroLineVisible=false
bc.isHorizontalZeroLineVisible=false


val ser = XYChart.Series<String,Number>()

ser.name = drugHdr[i]
for(j in 1..maxColumn)
{
ser.data.add(XYChart.Data(columnName[j], numdata[i][j]))
}
bc.data.add(ser)


vbox += bc

結果

f:id:gikoha:20180906120202j:plain

グラフがいまいちカスタマイズしづらい

 

R

 

# quartz(type="pdf",width=7,height=5,file="hoge.pdf")
y  = c(1.25, 2.5, 3.75, 5.0, 5.0)
x <- seq_along(y)
y2 <- rep(y, each=2)
y2 <- y2[-length(y2)]
x2 <- rep(x, each=2)[-1]
x3 <- c(min(x2), x2, max(x2))
y3 <- c(0, y2, 0)
plot(x, y, ylim=c(0, max(y)), type="n", bty="n", xlab="",ylab="",axes=F)
polygon(x3, y3, border=1, col="grey")
# dev.off()

 結果

f:id:gikoha:20180906120828j:plain

こっちのほうが編集に使いやすいのでこっちにした

手書きのほうが速いってのはお約束