tibble1111 <- tibble(name = c("allen", "allen","allen","sb"), type = c("math", "english", NA,"cbhegfi"), score = c(99,89,90,55)) tibble1111 %>% spread(key=type, value=score) 怎么变回去（用gather函数）

您可以使用`gather()`函数将数据框重新变为原来的形式，代码如下：

tibble1111 %>% 
  gather(key = "type", value = "score", -name, na.rm = TRUE)

解释一下上面的代码：

- `gather()`函数可以将数据框从宽格式变为长格式，其中`key`参数指定新列名，`value`参数指定新列的值，`-name`指定不需要被转换的列，`na.rm = TRUE`表示移除缺失值。

- 执行上述代码后，数据框将会变回去，其中`type`列的值为原来的列名，`score`列的值为原来列的值。