In sgdf-stat/intuthu: Elements Statistiques SGDF

knitr::opts_chunk$set(
    echo = FALSE,
    message = FALSE,
    warning = FALSE
)

library(intuthu)
library(tidyverse)
library(flextable)

Page 1

Column {data-width=600}

Chart 1

iris %>% 
  ggplot(aes(x = Sepal.Length, fill = Species)) +
  geom_bar() +
  scale_fill_sgdf_discrete() +
  labs(title = "Iris plot") +
  theme_sgdf()

Column {data-width=400}

Chart 2

Chart 3

iris %>% 
  filter(Species == "setosa") %>% 
  head(20) %>% 
  flextable() %>% 
  theme_flex_sgdf()

Page 2

Chart 2

sgdf-stat/intuthu documentation built on Feb. 7, 2021, 11:08 p.m.