riinuots

---
title: "Reticulate example"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(
	echo = TRUE,
	message = FALSE,
	warning = FALSE

riinuots

library(tidyverse)
library(palmerpenguins)

penguins %>% 
  ggplot(aes(species, flipper_length_mm, fill = sex, size = body_mass_g)) +
  geom_jitter(shape = 21, colour = "grey", alpha = 0.8) +
  scale_fill_viridis_d() +
  theme_bw()

riinuots

# Part 1/3 of #HealthyR #rstats Season's Greetings
library(tidyverse)
one = tibble(x    = c(2, 4, 3, 2.75, 2.75, 3.25, 3.25),
             y    = c(1, 1, 6, 0,    1,    1,    0),
            group = c(rep("#005a32", 3), rep("#543005", 4)))
              
ggplot(one, aes(x, y, fill = group)) +
  geom_polygon()

riinuots

library(tidyverse)
one = tibble(x    = c(2, 4, 3, 2.75, 2.75, 3.25, 3.25),
             y    = c(1, 1, 6, 0,    1,    1,    0),
             group = c(rep("#005a32", 3), rep("#543005", 4)))

two = tribble(~x,   ~y,
              2.7,  2,
              3,    3,
              3.4,  1.6,
              3.5,  2.5,

riinuots

library(tidyverse)
one = tibble(x    = c(2, 4, 3, 2.75, 2.75, 3.25, 3.25),
             y    = c(1, 1, 6, 0,    1,    1,    0),
             group = c(rep("#005a32", 3), rep("#543005", 4)))

two = tribble(~x,   ~y,
              2.7,  2,
              3,    3,
              3.4,  1.6,
              3.5,  2.5,