pdf( paper="a4r", width=11, height=7 )
options(scipen=999)

library(ggplot2)
library(scales)


df6 <- read.table(text = " Treatment min max 
 \"6 Surgical Cooling\" 0.01 0.2", header=TRUE)

df5 <- read.table(text = " Treatment min max 
 \"5 Medical Cooling\" 0.01 2", header=TRUE)

df4 <- read.table(text = " Treatment min max 
 \"4 Human Hibernation\" 0.01 14", header=TRUE)

df3 <- read.table(text = " Treatment min max 
 \"3 Short Term Suspended Animation\" 0.1 100", header=TRUE)

df2 <- read.table(text = " Treatment min max 
 \"2 Neural Archive Preservation\" 1 100000", header=TRUE)

df1 <- read.table(text = "Treatment min max
 \"1 Cryonic Suspension (whole body)\" 10 100000", header=TRUE)

ggplot() +
 geom_crossbar( data = df1, aes( ymin = min, ymax = max, x = Treatment, y = min ), fill = "red", fatten = 0 ) +
 geom_crossbar( data = df2, aes( ymin = min, ymax = max, x = Treatment, y = min ), fill = "red", fatten = 0 ) +
 geom_crossbar( data = df3, aes( ymin = min, ymax = max, x = Treatment, y = min ), fill = "orange", fatten = 0 ) +
 geom_crossbar( data = df4, aes( ymin = min, ymax = max, x = Treatment, y = min ), fill = "orange", fatten = 0 ) +
 geom_crossbar( data = df5, aes( ymin = min, ymax = max, x = Treatment, y = min ), fill = "green", fatten = 0 ) +
 geom_crossbar( data = df6, aes( ymin = min, ymax = max, x = Treatment, y = min ), fill = "green", fatten = 0 ) +
 ylab( "Days" ) +
 scale_y_log10( breaks=c( 0.01, 0.1, 1.0, 10.0, 100.1, 1000.0, 10000.0, 100000.0 ), labels=c( "0.01", "0.1", "1.0", "10", "100", "1,000", "10,000", "100,000" ) ) +
 coord_flip() +
 ggtitle( "Comparison of Medical Temperature Reduction Treatments" )

