Polyglot Python + R RMarkdown example

minimal_polyglot_rmd.Rmd

---
title: "Minimal examples of polyglot Rmd"
author: "Henry Miller"
date: "3/2/2022"
output: html_document
---

## Minimal example of polyglot python + R in RMarkdown

First, we load the `iris` dataset using seaborn in **python**:

```{python}
import seaborn as sns
import matplotlib.pyplot as plt
iris = sns.load_dataset('iris')
iris
```

Then, we plot this in **R**:

```{r}
library(ggplot2)
py <- reticulate::py  # Interface to python session
ggplot(py$iris, aes(x = sepal_length, y = petal_length)) +
  geom_point() +
  stat_smooth(method = "lm") +
  theme_bw(base_size = 13) +
  ggtitle("Relationship between sepal and petal length in Iris") 
```

### We can also do the *reverse*.

Load the `iris` dataset using `data()` in **R**

```{r}
data(iris)
head(iris)
```

Then, we plot this in **python**

```{python}
# the "r" object is the interface to the R environment.
sns.regplot(
  data=r.iris,
  x="Sepal.Length",
  y="Petal.Length"
).set(title="Relationship between sepal and petal length in Iris")
plt.show()
```

The output is here