将现有列拆分为多个新列

Question

我有一个这样的数据框：

我想要这样的结果：

我写了这段代码：

test$statetwentyeighteen = test$state[test$year=="2018"]

但我得到了这个错误的结果：

你能帮忙看看如何修改代码吗？

---

更新：

我在这件事上遇到了一个新问题。 当原始表更新为：

此代码不再有效

test %>% group_by(name) %>% mutate(state_twentyeighteen = state[year == 2018])

相反，我收到此错误消息：

Error: Column `state_twentyeighteen` must be length 3 (the group size) or one, not 2

你能看看应该对代码做哪些修改吗？

Answer 1

使用dplyr ，你可以做

library(dplyr)
test %>% group_by(name) %>% mutate(state_twentyeighteen = state[year == 2018])

与data.table类似

library(data.table)
setDT(test)[, state_twentyeighteen := state[year == 2018], name]