Minimal reproducible example - demo

From Riinu Pius - The University of Edinburgh

[https://media.ed.ac.uk/media/HealthyR+demoA+Reproducible+examples+%28reprex%29/1_zo8af9bg]

Day 02 of HealthyR demo

penguins1 <- penguins %>% 
  na.omit()

penguins1 %>% 
  mutate(species = fct_relevel(species, "Adelie", "Gentoo")) %>% 
  ggplot(aes(x=species)) +
  labs(title = "Penguins - Pingüinos",
    subtitle = "Data A.Palmer, in Antarctica - Datos A.Palmer,                  en la Antártida",                 
           x = "Species - Especies",
           y ="Number -Numero",
       )+
  geom_bar()+
  theme_minimal()

penguins1 %>% 
  mutate(species = fct_relevel(species, "Adelie", "Gentoo")) %>%
  ggplot(aes(x=species, y=flipper_length_mm)) +
  labs(title = "Flipper_Length - Longitud_Aleta",
    subtitle = "Data A.Palmer, in Antarctica - Datos A.Palmer,                  
                en la Antártida",                 
           x = "Species - Especies",
           y ="Length(mm) -Longitud(mm",
       )+
  geom_jitter() +
  theme_minimal()+
      geom_boxplot(outlier.color="black")

penguins1 %>% 
  group_by(species) %>% 
  summarise(flipper_mean = mean(flipper_length_mm))
## # A tibble: 3 × 2
##   species   flipper_mean
##   <fct>            <dbl>
## 1 Adelie            190.
## 2 Chinstrap         196.
## 3 Gentoo            217.
library(tidyverse)

example_data = tibble(species = c("a", "b", "c", "a", "b", "c"),
                      flipper = c(1:5, NA))

example_data %>% 
  group_by(species) %>% 
  summarise(flipper_mean = mean(flipper))
## # A tibble: 3 × 2
##   species flipper_mean
##   <chr>          <dbl>
## 1 a                2.5
## 2 b                3.5
## 3 c               NA