苏联太空犬：以狗为单位的视角
您将使用由 Duncan Geere 整理的苏联太空犬数据库的一个预处理样本，已预先加载为 space_dogs_df。该数据集共有 42 行，每一行代表一次测试火箭发射，搭载了一只或两只非常勇敢的狗。
您的目标是重塑数据，使得每次发射中，每条狗各占一行。
难点在于列名（name_1、name_2、gender_1 和 gender_2）：下划线 _ 之前的部分对应两个不同的变量（name 和 gender），而下划线之后的部分始终表示狗的编号（第 1 只或第 2 只）。
Laika，1957 年首个绕地球轨道飞行的动物
本练习是课程的一部分
使用 tidyr 重塑数据
练习说明
- 将要旋转的列（
name_1、name_2、gender_1和gender_2）作为pivot_longer()的第一个参数传入。 - 完成
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
___
)