teste

Quarto

Quarto enables you to weave together content and executable code into a finished document. To learn more about Quarto see https://quarto.org.

Running Code

library(tidyverse)

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.4     ✔ readr     2.1.5
✔ forcats   1.0.0     ✔ stringr   1.5.1
✔ ggplot2   3.5.2     ✔ tibble    3.3.0
✔ lubridate 1.9.4     ✔ tidyr     1.3.1
✔ purrr     1.1.0     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(sidrar)
library(ggplot2)

fazendo um data frame simples: devemos eleborar nossas colunas com as variaveis correspondentes:

tabela <- data.frame(
  nomes = c("Ana", "Cris", "Alex", "Daisy", "João", "Chico", 
            "Maria", "Helena"), 
  Idade = c(27, 55, 34, 42, 20, 27, 34, 42), 
  Genero = c("F", "F", "M", "F", "M", "M", "F", "F"), 
  Notas = c(4.5, 7.75, 8.25, 10, 6.5, 5.5, 4.5, 9)
)

agora vamos criar outro data frame para descobrirmos quem foi aprovado por media (>7)

tabela_medias <- data.frame(
  nomes = c("Ana", "Cris", "Alex", "Daisy", "João", "Chico", 
            "Maria", "Helena"),
  Notas = c(4.5, 7.75, 8.25, 10, 6.5, 5.5, 4.5, 9)
)
tabela_medias %>% 
  mutate(situacao = ifelse(Notas>= 7, "Aprovado", "Reprovado"))

   nomes Notas  situacao
1    Ana  4.50 Reprovado
2   Cris  7.75  Aprovado
3   Alex  8.25  Aprovado
4  Daisy 10.00  Aprovado
5   João  6.50 Reprovado
6  Chico  5.50 Reprovado
7  Maria  4.50 Reprovado
8 Helena  9.00  Aprovado

agora vamos calcular a media por genero

media_por_genero <- tabela %>%
  group_by(Genero) %>%
  summarise(media_notas = mean(Notas))

media_por_genero

# A tibble: 2 × 2
  Genero media_notas
  <chr>        <dbl>
1 F             7.15
2 M             6.75

vamos buscar a tabela starwars

data(starwars)

seleciinamos as colunas necessarias

starwars[starwars$species == 'Droid'& is.na(starwars$species), ]

# A tibble: 4 × 14
  name  height  mass hair_color skin_color eye_color birth_year sex   gender
  <chr>  <int> <dbl> <chr>      <chr>      <chr>          <dbl> <chr> <chr> 
1 <NA>      NA    NA <NA>       <NA>       <NA>              NA <NA>  <NA>  
2 <NA>      NA    NA <NA>       <NA>       <NA>              NA <NA>  <NA>  
3 <NA>      NA    NA <NA>       <NA>       <NA>              NA <NA>  <NA>  
4 <NA>      NA    NA <NA>       <NA>       <NA>              NA <NA>  <NA>  
# ℹ 5 more variables: homeworld <chr>, species <chr>, films <list>,
#   vehicles <list>, starships <list>