diff --git a/README.html b/README.html index 6ecd460..a417e5c 100644 --- a/README.html +++ b/README.html @@ -75,7 +75,7 @@
+

Outros formatos

@@ -106,14 +106,8 @@

Conceito

  • Cada variável forma uma coluna.
  • Cada valor forma uma célula.
    • -

    A Figura Figura 1 ilustra esses princípios.

    +

    A Figura 1 ilustra esses princípios.

    -
    -Código -
    knitr::include_graphics(
-  "https://d33wubrfki0l68.cloudfront.net/6f1ddb544fc5c69a2478e444ab8112fb0eea23f8/91adc/images/tidy-1.png"
-)
    -
    @@ -132,13 +126,13 @@

    Conceito

    Código -
    dados <- tribble(
-  ~id, ~altura, ~peso,
-  1, 1.70, 70,
-  2, 1.80, 80,
-  3, 1.60, 60
-)
-knitr::kable(dados)
    +
    dados <- tribble(
+  ~id, ~altura, ~peso,
+  1, 1.70, 70,
+  2, 1.80, 80,
+  3, 1.60, 60
+)
+knitr::kable(dados)
    @@ -173,16 +167,16 @@

    Conceito

    Código -
    dados <- tribble(
-  ~id, ~tipo_medida, ~valor,
-  1, "altura", 1.70,
-  1, "peso", 70,
-  2, "altura", 1.80,
-  2, "peso", 80,
-  3, "altura", 1.60,
-  3, "peso", 60
-)
-knitr::kable(dados)
    +
    dados <- tribble(
+  ~id, ~tipo_medida, ~valor,
+  1, "altura", 1.70,
+  1, "peso", 70,
+  2, "altura", 1.80,
+  2, "peso", 80,
+  3, "altura", 1.60,
+  3, "peso", 60
+)
+knitr::kable(dados)
    @@ -234,20 +228,20 @@

    Conceito

    Código -
    dados <- tribble(
-  ~id, ~tipo_medida, ~valor,
-  1, "altura", 1.70,
-  1, "peso", 70,
-  2, "altura", 1.80,
-  2, "peso", 80,
-  3, "altura", 1.60,
-  3, "peso", 60
-)
-
-dados_largo <- dados |>
-  pivot_wider(names_from = tipo_medida, values_from = valor)
-
-knitr::kable(dados_largo)
    +
    dados <- tribble(
+  ~id, ~tipo_medida, ~valor,
+  1, "altura", 1.70,
+  1, "peso", 70,
+  2, "altura", 1.80,
+  2, "peso", 80,
+  3, "altura", 1.60,
+  3, "peso", 60
+)
+
+dados_largo <- dados |>
+  pivot_wider(names_from = tipo_medida, values_from = valor)
+
+knitr::kable(dados_largo)
    @@ -283,12 +277,12 @@

    Conceito

    Código -
    dados <- tribble(
-  ~tipo, ~alice, ~bruno, ~carla, ~daniel,
-  "altura", 1.70, 1.80, 1.60, 1.75,
-  "peso", 70, 80, 60, 75
-)
-knitr::kable(dados)
    +
    dados <- tribble(
+  ~tipo, ~alice, ~bruno, ~carla, ~daniel,
+  "altura", 1.70, 1.80, 1.60, 1.75,
+  "peso", 70, 80, 60, 75
+)
+knitr::kable(dados)
    @@ -324,10 +318,10 @@

    Conceito

    Código -
    dados_longo <- dados |>
-  pivot_longer(cols = -tipo, names_to = "nome", values_to = "valor")
-
-knitr::kable(dados_longo)
    +
    dados_longo <- dados |>
+  pivot_longer(cols = -tipo, names_to = "nome", values_to = "valor")
+
+knitr::kable(dados_longo)
    @@ -387,10 +381,10 @@

    Conceito

    Código -
    dados_arrumados <- dados_longo |>
-  pivot_wider(names_from = tipo, values_from = valor)
-
-knitr::kable(dados_arrumados)
    +
    dados_arrumados <- dados_longo |>
+  pivot_wider(names_from = tipo, values_from = valor)
+
+knitr::kable(dados_arrumados)
    @@ -431,15 +425,15 @@

    Conceito

    Código -
    dados <- tribble(
-  ~id, ~altura_peso,
-  1, "1.70 / 70",
-  2, "1.80 / 80",
-  3, "1.60 / 60",
-  4, "1.75 / 75"
-)
-
-knitr::kable(dados)
    +
    dados <- tribble(
+  ~id, ~altura_peso,
+  1, "1.70 / 70",
+  2, "1.80 / 80",
+  3, "1.60 / 60",
+  4, "1.75 / 75"
+)
+
+knitr::kable(dados)
    @@ -474,18 +468,18 @@

    Conceito

    Código -
    dados <- tribble(
-  ~id, ~altura_peso,
-  1, "1.70 / 70",
-  2, "1.80 / 80",
-  3, "1.60 / 60",
-  4, "1.75 / 75"
-)
-
-dados_arrumados <- dados |>
-  separate(altura_peso, into = c("altura", "peso"), sep = " / ")
-
-knitr::kable(dados_arrumados)
    +
    dados <- tribble(
+  ~id, ~altura_peso,
+  1, "1.70 / 70",
+  2, "1.80 / 80",
+  3, "1.60 / 60",
+  4, "1.75 / 75"
+)
+
+dados_arrumados <- dados |>
+  separate(altura_peso, into = c("altura", "peso"), sep = " / ")
+
+knitr::kable(dados_arrumados)
    @@ -525,20 +519,20 @@

    Conceito

    Código -
    dados <- tribble(
-  ~id, ~mes, ~altura, ~peso,
-  "1", 1, 1.70, 70,
-  "1", 2, 1.72, 75,
-  "1", 3, 1.80, 80,
-  "2", 1, 1.80, 80,
-  "2", 2, 1.87, 85,
-  "2", 3, 1.90, 90,
-  "3", 1, 1.60, 60,
-  "3", 2, 1.64, 65,
-  "3", 3, 1.70, 70
-)
-
-knitr::kable(dados)
    +
    dados <- tribble(
+  ~id, ~mes, ~altura, ~peso,
+  "1", 1, 1.70, 70,
+  "1", 2, 1.72, 75,
+  "1", 3, 1.80, 80,
+  "2", 1, 1.80, 80,
+  "2", 2, 1.87, 85,
+  "2", 3, 1.90, 90,
+  "3", 1, 1.60, 60,
+  "3", 2, 1.64, 65,
+  "3", 3, 1.70, 70
+)
+
+knitr::kable(dados)
    @@ -614,10 +608,10 @@

    Conceito

    Código -
    dados |>
-  ggplot(aes(x = mes, y = altura, color = id)) +
-  geom_line() +
-  labs(title = "Evolução da altura dos alunos ao longo do tempo")
    +
    dados |>
+  ggplot(aes(x = mes, y = altura, color = id)) +
+  geom_line() +
+  labs(title = "Evolução da altura dos alunos ao longo do tempo")
    diff --git a/README.md b/README.md index 25081af..8ca15c9 100644 --- a/README.md +++ b/README.md @@ -17,20 +17,9 @@ princípios: 2. Cada **variável** forma uma **coluna**. 3. Cada **valor** forma uma **célula**. -A Figura -Figura 1 +A Figura 1 ilustra esses princípios. -
    -Código - -``` r -knitr::include_graphics( - "https://d33wubrfki0l68.cloudfront.net/6f1ddb544fc5c69a2478e444ab8112fb0eea23f8/91adc/images/tidy-1.png" -) -``` - -
    ![](https://d33wubrfki0l68.cloudfront.net/6f1ddb544fc5c69a2478e444ab8112fb0eea23f8/91adc/images/tidy-1.png) Vamos analisar o primeiro princípio: cada observação forma uma linha. diff --git a/README.pdf b/README.pdf index 3b4ba5a..8090d74 100644 Binary files a/README.pdf and b/README.pdf differ diff --git a/README.qmd b/README.qmd index f098037..bbab9ff 100644 --- a/README.qmd +++ b/README.qmd @@ -26,11 +26,12 @@ O conceito foi proposto por Hadley Wickham em 2014 e é baseado em três princí 2. Cada **variável** forma uma **coluna**. 3. Cada **valor** forma uma **célula**. -A Figura @fig-principios-tidy-data ilustra esses princípios. +A @fig-principios-tidy-data ilustra esses princípios. ```{r} #| label: fig-principios-tidy-data #| fig-cap: "As seguintes três regras tornam um conjunto de dados tidy: variáveis são colunas, observações são linhas e valores são células. Fonte: R for Data Science." +#| echo: false knitr::include_graphics( "https://d33wubrfki0l68.cloudfront.net/6f1ddb544fc5c69a2478e444ab8112fb0eea23f8/91adc/images/tidy-1.png"