Plotting tables alsongside charts in R

桃扇骨 2022-08-07 14:40 10阅读 0赞

(This article was first published on  **[mages' blog][mages_ blog]**, and kindly contributed to [R-bloggers)][R-bloggers]

Occasionally I'd like to plot a table alongside a chart in R, e.g. to present summary statistics of the graph itself. Thanks to the `gridExtra` package this is quite straightforward. The function `tableGrob` creates a table like plot of a data frame, while `arrangeGrob` allows me to arrange `ggplot2`, `lattice` and `grid` graphical objects (short ' [grobs][]', such as `tableGrob`) on a page.  
  
Here is a little example:

[![Rplot01.png_w_456][]][Rplot01.png_w_456 1]

<table> 
 <tbody> 
 <tr> 
 <td>1234567891011121314151617181920212223242526272829303132333435363738</td> 
 <td> <pre>
 
 
 <div>
 
 
 # Create some sample data

</div>
 
 
 <div>
 
 
 CV_1 
 
 
 &lt;- 
 
 
 0.2

</div>
 
 
 <div>
 
 
 CV_2 
 
 
 &lt;- 
 
 
 0.3

</div>
 
 
 <div>
 
 
 Mean 
 
 
 &lt;- 
 
 
 65

</div>
 
 
 <div>
 
 
 sigma_1 
 
 
 &lt;- sqrt(log(
 
 
 1 
 
 
 + 
 
 
 CV_1
 
 
 ^
 
 
 2))

</div>
 
 
 <div>
 
 
 mu_1 
 
 
 &lt;- log(
 
 
 Mean) 
 
 
 - 
 
 
 sigma_1
 
 
 ^
 
 
 2 
 
 
 / 
 
 
 2

</div>
 
 
 <div>
 
 
 sigma_2 
 
 
 &lt;- sqrt(log(
 
 
 1 
 
 
 + 
 
 
 CV_2
 
 
 ^
 
 
 2))

</div>
 
 
 <div>
 
 
 mu_2 
 
 
 &lt;- log(
 
 
 Mean) 
 
 
 - 
 
 
 sigma_2
 
 
 ^
 
 
 2 
 
 
 / 
 
 
 2

</div>
 
 
 <div>
 
 
 q 
 
 
 &lt;- c(
 
 
 0.25, 
 
 
 0.5, 
 
 
 0.75, 
 
 
 0.9, 
 
 
 0.95)

</div>
 
 
 <div>
 
 
 Q 
 
 
 &lt;- 
 
 
 data.frame(
 
 
 Quantile
 
 
 =paste0(
 
 
 100
 
 
 *
 
 
 q,
 
 
 "%ile"),

</div>
 
 
 <div> 
 
 
 Loss_1
 
 
 =round(qlnorm(
 
 
 q, 
 
 
 mu_1, 
 
 
 sigma_1),
 
 
 1),

</div>
 
 
 <div> 
 
 
 Loss_2
 
 
 =round(qlnorm(
 
 
 q, 
 
 
 mu_2, 
 
 
 sigma_2),
 
 
 1))

</div>
 
 
 <div>
 
 
 # Create a plot

</div>
 
 
 <div>
 
 
 library(
 
 
 ggplot2)

</div>
 
 
 <div>
 
 
 plt 
 
 
 &lt;- ggplot(
 
 
 data.frame(
 
 
 x
 
 
 =c(
 
 
 20, 
 
 
 150)), aes(
 
 
 x)) 
 
 
 +

</div>
 
 
 <div>
 
 
 stat_function(
 
 
 fun
 
 
 =
 
 
 function(
 
 
 x) dlnorm(
 
 
 x, 
 
 
 mu_1, 
 
 
 sigma_1),

</div>
 
 
 <div>
 
 
 aes(
 
 
 colour
 
 
 =
 
 
 "CV_1")) 
 
 
 +

</div>
 
 
 <div>
 
 
 stat_function(
 
 
 fun
 
 
 =
 
 
 function(
 
 
 x) dlnorm(
 
 
 x, 
 
 
 mu_2, 
 
 
 sigma_2),

</div>
 
 
 <div>
 
 
 aes(
 
 
 colour
 
 
 =
 
 
 "CV_2")) 
 
 
 +

</div>
 
 
 <div>
 
 
 scale_colour_discrete(
 
 
 name 
 
 
 = 
 
 
 "CV",

</div>
 
 
 <div> 
 
 
 labels
 
 
 =c(expression(
 
 
 CV[
 
 
 1]), expression(
 
 
 CV[
 
 
 2]))) 
 
 
 +

</div>
 
 
 <div>
 
 
 xlab(
 
 
 "Loss") 
 
 
 +

</div>
 
 
 <div>
 
 
 ylab(
 
 
 "Density") 
 
 
 +

</div>
 
 
 <div>
 
 
 ggtitle(paste0(
 
 
 "Two log-normal distributions with same mean of ",

</div>
 
 
 <div> 
 
 
 Mean,
 
 
 ", but different CVs"))

</div>
 
 
 <div>
 
 
 # Create a table plot

</div>
 
 
 <div>
 
 
 library(
 
 
 gridExtra)

</div>
 
 
 <div>
 
 
 tbl 
 
 
 &lt;- tableGrob(
 
 
 Q,

</div>
 
 
 <div> 
 
 
 cols 
 
 
 = c(
 
 
 "Quantile",

</div>
 
 
 <div>
 
 
 expression(Loss(
 
 
 CV[
 
 
 1])),

</div>
 
 
 <div>
 
 
 expression(Loss(
 
 
 CV[
 
 
 2]))),

</div>
 
 
 <div> 
 
 
 show.rownames 
 
 
 =
 
 
 FALSE,

</div>
 
 
 <div> 
 
 
 theme
 
 
 =theme.white())

</div>
 
 
 <div>
 
 
 # Plot chart and table into one object

</div>
 
 
 <div>
 
 
 grid.arrange(
 
 
 tbl, 
 
 
 plt,

</div>
 
 
 <div> 
 
 
 nrow
 
 
 =
 
 
 2,

</div>
 
 
 <div> 
 
 
 as.table
 
 
 =
 
 
 TRUE,

</div>
 
 
 <div> 
 
 
 heights
 
 
 =c(
 
 
 3,
 
 
 1))

</div></pre> </td> 
 </tr> 
 </tbody> 
</table>

[view raw][]             [ Plot\_chart\_and\_table.R][Plot_chart_and_table.R]            hosted with ❤ by [ GitHub][GitHub]

### Session Info ###

R version 3.1.3 (2015-03-09)
    Platform: x86_64-apple-darwin13.4.0 (64-bit)
    Running under: OS X 10.10.3 (Yosemite)
    
    locale:
    [1] en_GB.UTF-8/en_GB.UTF-8/en_GB.UTF-8/C/en_GB.UTF-8/en_GB.UTF-8
    
    attached base packages:
    [1] grid      stats     graphics  grDevices utils    
    [6] datasets  methods   base     
    
    other attached packages:
    [1] gridExtra_0.9.1 ggplot2_1.0.1  
    
    loaded via a namespace (and not attached):
     [1] colorspace_1.2-6 digest_0.6.8     gtable_0.1.2    
     [4] labeling_0.3     MASS_7.3-40      munsell_0.4.2   
     [7] plyr_1.8.1       proto_0.3-10     Rcpp_0.11.5     
    [10] reshape2_1.4.1   scales_0.2.4     stringr_0.6.2   
    [13] tools_3.1.3

This post was originally published on [ mages' blog][mages_ blog 1].

[mages_ blog]: http://www.magesblog.com/2015/04/plotting-tables-alsongside-charts-in-r.html
[R-bloggers]: http://www.r-bloggers.com/
[grobs]: https://stat.ethz.ch/R-manual/R-devel/library/grid/html/grid.grob.html
[Rplot01.png_w_456]: http://i0.wp.com/3.bp.blogspot.com/-bYN5a2GYZZw/VSkYjoq_kdI/AAAAAAAAB_U/RKwHs0Dhrds/s400/Rplot01.png?w=456
[Rplot01.png_w_456 1]: http://i2.wp.com/3.bp.blogspot.com/-bYN5a2GYZZw/VSkYjoq_kdI/AAAAAAAAB_U/RKwHs0Dhrds/s1600/Rplot01.png
[view raw]: https://gist.github.com/mages/6b95e8e1318266228330/raw/Plot_chart_and_table.R
[Plot_chart_and_table.R]: https://gist.github.com/mages/6b95e8e1318266228330#file-plot_chart_and_table-r
[GitHub]: https://github.com/
[mages_ blog 1]: http://www.magesblog.com/