r语言 使用tidyr进行数据清洗

请各位帮忙看看以下如何进行数据清洗，给点提示或者贴出指令。谢谢啦

1. library(tidyverse)
   
2. lotr1 <- lotr2 %>%
   
3.   gather(race, n, 3:5) %>%
   
4.   spread(gender, n)
   
5. 
   
6. lotr2 <- lotr1 %>%
   
7.   gather(gender, n, 3:4) %>%
   
8.   spread(race, n)

复制代码