Alveolar O2
fio2=c(.21,.24,.28,.35,.40)
venturi=c("black","blue","white","yellow","red")
palv=94*fio2-5.2/0.8
plot(fio2,palv,type="l",lwd=2,xlab="FiO2",ylab="pAlv[kPa]",font=2)
grid()
points(fio2,palv,pch=21,cex=2,bg=venturi,col=1,lwd=2)
text(fio2[-1],palv[-1],round(palv[-1]),adj=c(1.5,0.5),font=2)
text(fio2[-1],palv[-1],paste(100*fio2[-1],"%",sep=""),adj=c(0.2,2),cex=0.7)
title(main="pAlv ~ FiO2[%] - 8")
| 