DF = data.frame(
    author=as.factor( c( rep( 'Twain', 8 ), rep( 'QCS', 10 ) ) ),
    prop=c( 0.225, 0.262, 0.217, 0.240, 0.230, 0.229, 0.235, 0.217, 0.209, 
            0.205, 0.196, 0.210, 0.202, 0.207, 0.224, 0.223, 0.220, 0.201 )
)