蘇聯太空犬:從狗的角度看
你將使用由 Duncan Geere 蒐集並經過前處理的蘇聯太空犬資料庫之樣本,課程已預先載入為 space_dogs_df。這個資料集中共有 42 筆列,每一列代表一次測試火箭發射,火箭上搭載了一隻或兩隻非常勇敢的狗。
你的目標是把資料調整為:每次發射中,每一隻狗各有一列。
挑戰在於欄名(name_1、name_2、gender_1、gender_2)裡,底線(_)前半段可能對應到兩個不同的變數(name 與 gender),而後半段一律對應到狗的編號(第 1 隻或第 2 隻)。

Laika,1957 年成為第一個繞行地球的動物
本練習屬於課程
使用 tidyr 重塑資料
練習說明
- 在
pivot_longer()的第一個引數中,傳入要轉換的欄位(name_1、name_2、gender_1、gender_2)。 - 完成
names_to引數,讓欄名的前半段可以被重用。 - 確保移除
NA值,因為不是每次發射都有兩隻狗。
動手互動練習
試著完成這個範例程式碼,體驗一下這個練習。
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
___
)