Dodawanie tabeli w obszarze wykresu ggplot w r

@ user3206440, @ Punintended łatwy sposób usuwania numerów wierszy istnieje: dodaj rows = NULL do wywołania do 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)

Zobacz Gridextra Wiki .

@user3206440: znalazłem pracę, która usuwa numery wierszy. Sformatowałem moje dane jako macierz, przypisałem nazwy kolumn, a następnie wywołałem tableGrob bezpośrednio. Ilekroć miałem tableGrob nazwać to jako ramkę danych, nazwa wiersza utrzymywała się.

Poniżej znajduje się przykład. Jestem pewien, że jest łatwiejszy sposób, aby poradzić sobie z chisq.wyjście testowe

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")

I Później...

annotation_custom(tableGrob(chidf), xmin=2, xmax=6, ymin=700, ymax=800)

Wraz z wydaniem 'ggplot2' 3.0.0 i 'ggpmisc' 0.3.0 możliwa jest nowa prostsza odpowiedź:

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 w pełni obsługuje tibbles (zobacz release announcement), dzięki czemu możliwe jest odwzorowanie listy ramek danych na estetykę label. Nowa geom_table() w pakiecie 'ggpmisc 0.3.0' wykorzystuje to, umożliwiając dodawanie tabel o składni podobnej do składni geom_label() (Zobacz dokumentacja ). Tutaj najlepiej dodać stół jako adnotacja, ale oczywiście geom_table() może być również używana bezpośrednio, jak inne ggplot geometrie.