[R-br] Problemas com grid.arrange

[Bernardo Rangel Tura]

Boa tarde,

estou precisando fazer um gráfico chamado forest plot porem não posso 
usar os já prontos no R. Já esta quase pronto utilizando este script.

require(gridExtra)
nomes <- sample(letters,5)
logOR <- abs(rnorm(5,0,.3))
sd_logOR <-rbeta(5,10,10)
OR <- round(exp(logOR),2)
lci_OR <- round(exp(logOR-1.96*sd_logOR),2)
uci_OR <- round(exp(logOR+1.96*sd_logOR),2)
OR <- paste(OR,' (',lci_OR,' - ',uci_OR,')',sep='')
df <- data.frame(nomes,OR,lci_OR,uci_OR)
p1 <- tableGrob(df[,1:2],cols=c('Estudos','OR (CI)'),row.just 
='left',col.just ='center', core.just ='right')
require(ggplot2)
OR <- round(exp(logOR),2)
df <- data.frame(nomes,OR,lci_OR,uci_OR)
p2 <- p2 <- ggplot(df, aes(x=nomes, y=OR, ymin=lci_OR, 
ymax=uci_OR))+geom_hline(yintercept=1,lty=2)+expand_limits(y = 
c(0,max(uci_OR)*1.1))+geom_pointrange()+coord_flip()#+ 
geom_point(aes(size = sd_logOR))
grid.arrange(p1,p2,ncol=2)

Porém aqui no fim há uma desproporção entre os dados da tabela com os 
dados do gráfico.

Porventura alguém sabe como resolver isto ?

[]s
Tura