grid.arrange() intrigue et la table se chevauchent

Question

c'est mon premier post sur Stack donc toute aide serait appréciée. Si je dois reformuler ma question ou être plus précis s'il vous plaît faites le moi savoir. Je tente de créer une figure contenant à la fois un tracé et une table relative à ce tracé. Je suis capable de produire l'intrigue, mais ma table est trop longue et se chevauche par la suite avec mon graphique à barres. Ci-dessous un code fictif pour reproduire le problème.

Ma question est: Y a-t-il un moyen de diviser ma table en n parties de façon à ce qu'elle soit bien en dessous de mon diagramme à barres? J'ai plusieurs trames de données pour faire ceci pour des tailles variables, ainsi un sous-arrangement manuel de rangée pour produire plusieurs tables n'est pas préféré. Toute aide serait appréciée.

catg <- rnorm(50) 
amts <- rnorm(50) 
data <- data.frame(catg,amts) 

plt1 <- ggplot(data,aes(x=catg,y=amts))+ 
     geom_bar(stat="identity", width=0.1) 

tbl1 <- tableGrob(amts) 

grid.arrange(plt1,tbl1) 

Answer 1

Je ne sais pas ce que vous avez à l'esprit, mais peut-être remodeler ces valeurs dans les colonnes N (et autour des chiffres)?

grid.table(matrix(round(amts,3), ncol=5))