给定示例数据,我想对spread
对的子集进行key-value
。在这种情况下,只有一对。但是,在其他情况下,要成为spread
的子集会超过一对。
library(tidyr)
# dummy data
> df1 <- data.frame(e = c(1, 1, 1, 1),
n = c("a", "b", "c", "d") ,
s = c(1, 2, 5, 7))
> df1
e n s
1 1 a 1
2 1 b 2
3 1 c 5
4 1 d 7
所有键值对的经典价差:
> df1 %>% spread(n,s)
e a b c d
1 1 1 2 5 7
所需的输出,仅传播
n=c
e c n s
1 1 5 a 1
2 1 5 b 2
3 1 5 d 7
最佳答案
我们可以在gather
之后做一个spread
df1 %>%
spread(n, s) %>%
gather(n, s, -c, -e)
# e c n s
#1 1 5 a 1
#2 1 5 b 2
#3 1 5 d 7
或代替
spread/gather
,我们在不带'c'行的情况下filter
,然后通过mutate
创建'c'列,同时设置与'c'相对应的's'df1 %>%
filter(n != "c") %>%
mutate(c = df1$s[df1$n=="c"])
关于r - tidyr键值对的传播子集,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/50146421/