  rbind( ., data.frame(x="",f="",pe="",lcl="",delta="",f_delta="") ) %>%   rbind( ., data.frame(x="", f="", pe="Exp", lcl="Diff", delta="=", f_delta=exp.expr) ) %>%   rbind( ., data.frame(x="",f="",pe="",lcl="",delta="=",f_delta=exp.delta) ) 