Sovětští vesmírní psi – pohled psů

Budeš pracovat s předem zpracovanou ukázkou databáze sovětských vesmírných psů, kterou sestavil Duncan Geere. Databáze je pro tebe předem načtena jako space_dogs_df. Každý z 42 řádků tohoto datasetu představuje zkušební start rakety, na jehož palubě byli jeden nebo dva velmi odvážní psi.

Tvým úkolem je přeformátovat tento dataset tak, aby každý pes z každého startu měl vlastní řádek.

Záludnost spočívá v názvech sloupců (name_1, name_2, gender_1 a gender_2): část před oddělovačem _ může odkazovat na dvě různé proměnné (jméno a pohlaví), zatímco druhá část vždy označuje ID psa (1.^st nebo 2.^nd pes).

Laika

Laika, první živý tvor na oběžné dráze Země, vypuštěný v roce 1957

Toto cvičení je součástí kurzu

Reshaping Data with tidyr

Zobrazit kurz

Pokyny k cvičení

Jako první argument funkce pivot_longer() zadej sloupce k pivotování (name_1, name_2, gender_1 a gender_2).
Doplň argument names_to tak, aby se první část názvů sloupců znovu použila.
Zajisti, aby byly hodnoty NA odstraněny – ne všechny rakety totiž nesly dva psy.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

space_dogs_df %>% 
  pivot_longer(
    # Add the columns to pivot
    ___,
    names_sep = "_",
    # Complete the names_to argument to re-use the first part of the column headers
    names_to = c(___,  "dog_id"),
    # Make sure NA values are dropped
    ___
  )

Upravit a spustit kód