#
# Script demo.txt
#

library("ggforce")

Dat1 <- dget("data1.txt")
Dat2 <- dget("data2.txt")

shps <- c(24,20,25)
culs <- c("black","blue","black")
tkst <- c("0","intermed","1")

plotObj1 <- ggplot(Dat1) +
            geom_point(aes(y = Sfrac, x = Dose,
                       shape  = extremes, colour = extremes)) +
            scale_shape_manual("Point type:",values = shps,labels=tkst) +
            scale_colour_manual("Point type:",values = culs,labels=tkst) +
            xlab("") + ylab("") +
            facet_grid_paginate(facets=degC~Duration,nrow=2,ncol=2,page=1)


plotObj2 <- ggplot(Dat2) +
            geom_point(aes(y = Sfrac, x = Dose,
                       shape  = extremes, colour = extremes)) +
            scale_shape_manual("Point type:",values = shps,labels=tkst) +
            scale_colour_manual("Point type:",values = culs,labels=tkst) +
            xlab("") + ylab("") +
            facet_grid_paginate(facets=degC~Duration,nrow=2,ncol=2,page=1)