Myelomeningocele in utero repair. Perioperative considerations. Case report and review.
Description
This is a comma separated file with data obtained manually at irregular intervals of time: Hora: Time of data capture BIS: Bispectral Index SEVin: Sevoflurane IN SEVesp: Sevoflurane End-Tidal CAM: Minimum Alveolar Concentration NTG: Nitroglycerin Atosiban: ETCO2: Noradrenalina: Norepinephrine Remifentanilo: Remifentanyl VVS: Systolic Volume Variation IC: Cardiac Index GC: Cardiac Output
Files
Steps to reproduce
# R script for plotting data library(readr) install.packages("ggplot2") library(ggplot2) library(scales) MMC2 <- read_csv("~/MMC/MMCdatosHoja2.csv", col_types = cols(Hora = col_time(format = "%H:%M"))) MMC2$SVV = MMC2$VVS MMC2$Norepinephrine = MMC2$Noradrenalina MMC2$CO = MMC2$GC #Plot Bis ggplot(MMC2, aes(x = as.POSIXct(Hora), y = BIS, colour=BIS)) + xlab("Hora") + geom_line() + geom_point() + ylim(0,100) + scale_x_datetime(breaks = date_breaks("20 min"), minor_breaks=date_breaks("5 min"), labels=date_format("%H:%M")) + theme_light() + scale_colour_gradient(low="red",high="green",limits = c(0, 100)) ggplot(MMC2, aes(x = as.POSIXct(Hora), y = BIS, colour=BIS)) + xlab("Time") + geom_line() + geom_point() + ylim(0,100) + scale_x_datetime(breaks = date_breaks("20 min"), minor_breaks=date_breaks("5 min"), labels=date_format("%H:%M")) + theme_light() + scale_colour_gradient(low="red",high="green",limits = c(0, 100)) #Secondary Axis p <- ggplot(MMC2, aes(x = as.POSIXct(Hora))) p <- p + xlab("Time") p <- p + geom_line(data = MMC2[!is.na(MMC2$BIS), ],aes(y = BIS, colour=BIS)) p <- p + geom_point(aes(y = BIS, colour=BIS)) p <- p + geom_line(data = MMC2[!is.na(MMC2$CAM), ],aes(y = CAM*50, colour=CAM/50)) p <- p + geom_point(data = MMC2[!is.na(MMC2$CAM), ],aes(y = CAM*50, colour=CAM/50)) p <- p + ylim(0,100) p <- p + scale_x_datetime(breaks = date_breaks("30 min"), minor_breaks=date_breaks("5 min"), labels=date_format("%H:%M")) p <- p + theme_light() + scale_colour_gradient(low="red",high="green",limits = c(0, 100)) p <- p + scale_y_continuous(breaks = seq(0,100,10), "BIS", sec.axis=sec_axis(~./50, name="MAC") ) p <- p + geom_text(aes(x = as.POSIXct(37000, origin = '1970-01-01'), y = 20,label = "BIS")) p <- p + geom_text(aes(x = as.POSIXct(37000, origin = '1970-01-01'), y = 60,label = "MAC", colour=CAM/50)) p <- p + labs(title="MAC vs BIS") #EV 1000 y demas p <- ggplot(MMC2, aes(x = as.POSIXct(Hora))) p <- p + xlab("Time") p <- p + geom_line(data = MMC2[!is.na(MMC2$CO), ] ,aes(y = CO, color = "CO")) + geom_point(aes(y = CO, color = "CO")) p <- p + geom_line(data = MMC2[!is.na(MMC2$SVV), ],aes(y = SVV, color = "SVV")) + geom_point(aes(y = SVV, color = "SVV")) p <- p + geom_line(data = MMC2[!is.na(MMC2$NTG), ],aes(y = NTG*50, color = "NTG")) + geom_point(aes(y = NTG*50, color = "NTG")) p <- p + geom_line(data = MMC2[!is.na(MMC2$Norepinephrine), ],aes(y = Norepinephrine*50, color = "Norepinephrine")) + geom_point(aes(y = Norepinephrine*50, color = "Norepinephrine")) p <- p + ylim(0,30) p <- p + scale_x_datetime(breaks = date_breaks("30 min"), minor_breaks=date_breaks("5 min"), labels=date_format("%H:%M")) p <- p + theme_light() + labs(color="EV 1000") p <- p + scale_y_continuous(breaks = seq(0,30,2), "CO", sec.axis=sec_axis(~./50, name="ug/kg/min") )