workingMarkdownSideBySide

---
title: "Quicky and dirty: side-by-side plot and table"
author: "Omar AlOmeir"
output: 
  github_document
---

```{r}
library(ggplot2)
suppressMessages(library(dplyr))
#devtools::install_github("jennybc/gapminder")
library("gapminder")
gtbl <- tbl_df(gapminder)
```

<table>
    <tr>
    <th>
        
```{r results = 'asis', echo=FALSE}
tbl1 <- gtbl %>%
  group_by(continent) %>%
  summarise_each(funs(mean, median), gdpPercap)
knitr::kable(tbl1,'html')
```
</th>
<!--
```{r plotOuter,echo=FALSE}
ggplot(gtbl, aes(x = continent, y = gdpPercap, color = continent)) +
  geom_point() + ggtitle("GDP per cap by continent") 
```
-->
<th>
<img src="hede_files/figure-markdown_github/plotOuter-1.png" style="width:304px;height:228px;">
</th>
</tr>
</table>