Ajout d'une table dans le tracé d'une région d'un ggplot dans la r

Je voudrais ajouter une table des coordonnées du site mis en évidence dans un ggplot.

À l'aide d'un précédent question comme exemple de données:

set.seed(1)
mydata <- data.frame(a=1:50, b=rnorm(50))
ggplot(mydata,aes(x=a,y=b)) + 
    geom_point(colour="blue") + 
    geom_point(data=mydata[10:13, ], aes(x=a, y=b), colour="red", size=5)

Je voudrais ajouter le tableau suivant pour le coin inférieur droit de la parcelle dans le traçage de la région. Des conseils?

table<-cbind(sites=c("site 1","site 2","site 3","site 4"),mydata[10:13,])
table

    sites  a          b
    site 1 10 -0.3053884
    site 2 11  1.5117812
    site 3 12  0.3898432
    site 4 13 -0.6212406

InformationsquelleAutor Elizabeth | 2012-09-07

64

Vous pouvez utiliser ggplot2's annotation_custom avec un tableGrob de la gridExtra paquet.
```
library(ggplot2)
library(gridExtra)
set.seed(1)
mydata <- data.frame(a=1:50, b=rnorm(50))
mytable <- cbind(sites=c("site 1","site 2","site 3","site 4"),mydata[10:13,])
k <- ggplot(mydata,aes(x=a,y=b)) + 
  geom_point(colour="blue") + 
  geom_point(data=mydata[10:13, ], aes(x=a, y=b), colour="red", size=5) + 
  annotation_custom(tableGrob(mytable), xmin=35, xmax=50, ymin=-2.5, ymax=-1)
```
- Nice. Je ferais hacher au moins quatre des décimales de b cependant, à moins que vous vous souciez vraiment de 1: 10 000 de précision (astuce: vous n'avez pas, à moins que le vol à Mars).
- Merci!!!! C'est une très belle et simple de la solution. Pour faire le support de table mieux est-il possible de mettre un cadre autour d'elle?
- jetez un oeil à ?tableGrob de voir l'esthétique que vous pouvez contrôler. À l'aide de show.box=TRUE servira de cadre aux cellules.
- Grand. Merci encore
- le contrôle sur l'esthétique a changé dans la dernière version, voir la vignette pour ce qui est des nouvelles options.
- est-il possible de supprimer les numéros de ligne lors de l'affichage il ?
- est-il possible de spécifier le positionnement relatif plutôt qu'absolu ?
- Je ne le crois pas. Vous pouvez utiliser Inf et -Inf de le pousser à des extrémités ou du centre, mais il va tomber à l'extérieur de la parcelle de la région.
InformationsquelleAutor Matthew Plourde

@user3206440, @Punintended Un moyen facile de supprimer les numéros de ligne existe: ajouter rows = NULL à l'appel à tableGrob.

library(ggplot2)
library(gridExtra)
set.seed(1)
mydata <- data.frame(a=1:50, b=rnorm(50))
mytable <- 
   cbind(sites=c("site 1","site 2","site 3","site 4"), mydata[10:13,])
k <- ggplot(mydata,aes(x=a,y=b)) + 
  geom_point(colour="blue") + 
  geom_point(data=mydata[10:13, ], aes(x=a, y=b), colour="red", size=5) + 
  annotation_custom(tableGrob(mytable, rows=NULL), 
                    xmin=35, xmax=50, ymin=-2.5, ymax=-1)

Ajout d'une table dans le tracé d'une région d'un ggplot dans la r

Veuillez voir le gridExtra Wiki.

InformationsquelleAutor Pedro Aphalo

2

Avec la sortie de 'ggplot2' 3.0.0 et 'ggpmisc' 0.3.0 une nouvelle réponse est plus simple possible:
```
library(ggplot2)
library(ggpmisc)

set.seed(1)
mydata <- data.frame(a = 1:50, b = rnorm(50))
table <- cbind(sites=c("site 1", "site 2", "site 3", "site 4"), mydata[10:13, ])

ggplot(mydata, aes(x = a, y = b)) + 
  geom_point(colour = "blue") + 
  geom_point(data = mydata[10:13, ], aes(x = a, y = b), colour = "red", size = 5) +
  annotate(geom = "table", x = 37, y = -0.8, label = list(table), 
           vjust = 1, hjust = 0)
```
'ggplot2' 3.0.0 soutient pleinement tibbles (voir annonce de publication) pour dresser la carte d'une liste de trames de données à la label esthétique. La nouvelle geom_table() dans le paquet 'ggpmisc 0.3.0 profite de ce, ce qui rend l'ajout de tables avec une syntaxe similaire à celle de geom_label() possible (voir la documentation). Ici semblait le plus approprié d'ajouter le tableau comme un
l'annotation, mais bien sûr geom_table() peut également être utilisé directement, comme d'autres ggplot géométries.

InformationsquelleAutor Pedro Aphalo
1

@user3206440: j'ai trouvé une solution qui supprime les numéros de ligne. J'ai formaté mes données comme une matrice, attribué des noms de colonne, puis avait tableGrob appeler directement. Chaque fois que j'ai eu tableGrob l'appeler comme une trame de données, la ligne nom persisté.

Ci-dessous est un exemple. Je suis sûr qu'il ya un moyen plus facile de traiter avec le chisq.test de sortie
```
chivalues <- chisq.test(chitable)
chidf <- matrix(c(unlist(c(round(as.numeric(chivalues[1]), 2),
                    chivalues[2], round(as.numeric(chivalues[3]), 5), numcells))),
                   nrow = 1, ncol = 4, byrow = FALSE)
colnames(chidf) <- c("Chi-Squared", "DF", "P Value", "Total Cells")
```
Et puis plus tard...
```
annotation_custom(tableGrob(chidf), xmin=2, xmax=6, ymin=700, ymax=800)
```
InformationsquelleAutor Punintended

Vous devez vous connecter pour publier un commentaire.