DF = data.frame(
    month=c( 'Aug', 'Sept', 'Oct', 'Nov', 'Dec', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'June', 'July' ),
    before=c( 6.4, 7.1, 6.5, 8.6, 8.1, 10.4, 11.5, 13.8, 15.4, 15.7, 11.7, 15.8 ),
    during=c( 5.0, 13.0, 14.0, 12.0, 6.0, 9.0, 13.0, 16.0, 25.0, 13.0, 14.0, 20.0 ), 
    after=c( 5.8, 9.2, 7.9, 7.7, 11.0, 12.9, 13.5, 13.1, 15.8, 13.3, 12.8, 14.5 )
)

library(reshape2)
DF_melt = melt(DF, id.vars=c('month'), value.name='admission_rate', variable.name='time')