在r中的ggplot的绘图区域内添加表格 [英] Adding table within the plotting region of a ggplot in r

问题描述

我想在ggplot中添加一个突出显示网站的坐标表。 使用以前的 question 作为示例数据：

  set.seed（1）
 mydata<  -  data.frame（a = 1：50，b = rnorm（50））
 ggplot（mydata，aes（x = a， y = b））+ 
 geom_point（color =blue）+ 
 geom_point（data = mydata [10:13，]，aes（x = a，y = b），color =red ，size = 5）
  

我想将下表添加到图的右下角绘图区域。任何建议？

$ p $ 表<-cbind（sites = c（site 1，site 2，site 3 ，site 4），mydata [10:13，]）
表

网站ab
网站1 10 -0.3053884
网站2 11 1.5117812
site 3 12 0.3898432
site 4 13 -0.6212406


解决方案

您可以使用 ggplot2 的 annotation_custom 与 tableGrob 来自 gridExtra 包。

  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（color =blue）+ 
 geom_point（data = mydata [10:13，]，aes（x = a，y = b）红色，size = 5）+ 
 annotation_custom（tableGrob（mytable），xmin = 35，xmax = 50，ymin = -2.5，ymax = -1）
  pre> 
 
 
  
 
I would like to add a table of the coordinates of highlighted site in a ggplot.

Using a previous question as example data:
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)


I would like to add the following table to the lower right-hand corner of the plot within the plotting region. Any advice?
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

解决方案
You can use ggplot2's  annotation_custom with a tableGrob from the gridExtra package.
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)


                        
这篇关于在r中的ggplot的绘图区域内添加表格的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！