  tab0 <- tab0 %>%   mutate( x=as.character(x), f=format(round(f,0),nsmall=0) ) %>%   mutate( pe=format(round(pe,0),nsmall=0) ) %>%   mutate( lcl=format(round(lcl,0),nsmall=0) ) %>%   mutate( delta=format(round(delta,0),nsmall=0) ) %>%   mutate( f_delta=format(round(f_delta,0),nsmall=0) ) %>%   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) ) 