[英]Spreading a character column by time and id r
與許多其他人的風格問題,但仍然不同。 我經常看到人們想要一種方法將列擴展成幾個,但它通常在df中,其中列中的每個名稱都有一個度量值。
像這樣:
head(df)
id time fish weight
1 1 1 marlin 4
2 1 1 cod 1
3 1 2 cod 1
4 2 1 salmon 2
5 2 1 cod 2
6 2 2 cod 3
所以我可以使用像這樣的傳播(或dcast或類似的:
df<-spread(df, fish,weight, fill=F)
id time cod marlin salmon
1 1 1 1 4 <NA>
2 1 2 1 <NA> <NA>
3 2 1 2 <NA> 2
4 2 2 3 <NA> <NA>
但是,如果你沒有變量的值(這里是重量),但只是想傳播魚類? 所以輸出是這樣的
id time Fish1 Fish2
1 1 marlin salmon
1 2 cod <NA>
2 1 salmon cod
2 2 cod <NA>
你是怎樣做的? 感謝您的任何幫助。 非常感謝。
我們需要按順序分組
df %>%
select(-weight) %>%
group_by(id, time) %>%
mutate(ind = paste0("Fish", row_number())) %>%
spread(ind, fish)
# A tibble: 4 x 4
# Groups: id, time [4]
# id time Fish1 Fish2
# <int> <int> <chr> <chr>
#1 1 1 marlin cod
#2 1 2 cod NA
#3 2 1 salmon cod
#4 2 2 cod NA
df <- structure(list(id = c(1L, 1L, 1L, 2L, 2L, 2L), time = c(1L, 1L,
2L, 1L, 1L, 2L), fish = c("marlin", "cod", "cod", "salmon", "cod",
"cod"), weight = c(4L, 1L, 1L, 2L, 2L, 3L)), .Names = c("id",
"time", "fish", "weight"), class = "data.frame", row.names = c("1",
"2", "3", "4", "5", "6"))
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.