The following ended up working well enough.
The reshape
library pulls in the melt
command which recognises the data into a format usable by ggplot
.
library(ggplot2)
library(reshape)
data=read.csv("out20",comment.char = "#",sep = "")
mdata=melt(data,id=c("Time"))
ggplot(mdata, aes(x=Time,y=value,group=variable,fill=variable)) + geom_area(position="fill")