我正在嘗試使用管道內和管道內的spread函式將長資料幀轉換為寬資料幀。我的資料采用以下格式：-tidyrdplyr
df<-structure(list(Hour = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L,
1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L),
dt = c("05/06/2021", "07/06/2021", "08/06/2021", "10/06/2021",
"12/06/2021", "12/06/2021", "14/06/2021", "14/06/2021", "15/06/2021",
"09/06/2021", "10/06/2021", "10/06/2021", "11/06/2021", "13/06/2021",
"14/06/2021", "05/06/2021", "06/06/2021", "07/06/2021", "08/06/2021",
"08/06/2021", "09/06/2021", "09/06/2021", "10/06/2021", "11/06/2021",
"12/06/2021"), Programme_watched = c("Wrestling", "Drama",
"Drama", "Football", "Rugby", "Movie", "Movie", "News", "Music",
"Tennis", "Racing", "Racing", "Documentary ", "Movie", "Movie",
"Athletics", "News", "Children", "Music", "Movie", "Football",
"News", "Football", "Rugby", "Drama")), class = "data.frame", row.names = c(NA,
-25L))
df
Hour dt Programme_watched
1 0 05/06/2021 Wrestling
2 0 07/06/2021 Drama
3 0 08/06/2021 Drama
4 0 10/06/2021 Football
5 0 12/06/2021 Rugby
6 0 12/06/2021 Movie
7 0 14/06/2021 Movie
8 0 14/06/2021 News
9 0 15/06/2021 Music
10 1 09/06/2021 Tennis
11 1 10/06/2021 Racing
12 1 10/06/2021 Racing
13 1 11/06/2021 Documentary
14 1 13/06/2021 Movie
15 1 14/06/2021 Movie
16 2 05/06/2021 Athletics
17 2 06/06/2021 News
18 2 07/06/2021 Children
19 2 08/06/2021 Music
20 2 08/06/2021 Movie
21 2 09/06/2021 Football
22 2 09/06/2021 News
23 2 10/06/2021 Football
24 2 11/06/2021 Rugby
25 2 12/06/2021 Drama
我希望能夠使其更寬，將日期轉換為以Programme_watched變數為值的列標題。然而，這就是我得到的：-
df%>%
group_by(Hour,dt)%>%
summarise(Programmes=Programme_watched)%>%
spread(dt, Programmes)
`summarise()` has grouped output by 'Hour', 'dt'. You can override using the `.groups` argument.
Error: Each row of output must be identified by a unique combination of keys.
Keys are shared for 10 rows:
* 19, 20
* 21, 22
* 11, 12
* 5, 6
* 7, 8
是否因為某些分組變數（即Hour和 ）有多個值dt？如果是這樣，我希望將這兩個值一起粘貼到一個單元格中，然后通過dt變數傳播。任何人都可以幫忙嗎？
uj5u.com熱心網友回復：
您是否正在尋找這樣的解決方案？
spread被取代：
開發spread()已完成，對于新代碼，我們建議切換到pivot_wider()，它更易于使用，功能更多，并且仍在積極開發中。df %>% spread(key, value)相當于df %>% pivot_wider(names_from = key, values_from = value)
df%>%
group_by(Hour,dt)%>%
summarise(Programmes=Programme_watched) %>%
ungroup() %>%
pivot_wider(
names_from= dt,
values_from = Programmes
) %>%
unnest()
# A tibble: 6 x 12
Hour `05/06/2021` `07/06/2021` `08/06/2021` `10/06/2021` `12/06/2021` `14/06/2021` `15/06/2021`
<int> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
1 0 Wrestling Drama Drama Football Rugby Movie Music
2 0 Wrestling Drama Drama Football Movie News Music
3 1 NA NA NA Racing NA Movie NA
4 1 NA NA NA Racing NA Movie NA
5 2 Athletics Children Music Football Drama NA NA
6 2 Athletics Children Movie Football Drama NA NA
# ... with 4 more variables: 09/06/2021 <chr>, 11/06/2021 <chr>, 13/06/2021 <chr>, 06/06/2021 <chr>
或者
library(tidyr)
library(dplyr)
df %>%
pivot_wider(
names_from= dt,
values_from = Programme_watched
) %>%
unnest() %>%
distinct()
Hour `05/06/2021` `07/06/2021` `08/06/2021` `10/06/2021` `12/06/2021` `14/06/2021` `15/06/2021` `09/06/2021` `11/06/2021` `13/06/2021` `06/06/2021`
<int> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
1 0 Wrestling Drama Drama Football Rugby Movie Music NA NA NA NA
2 0 Wrestling Drama Drama Football Movie News Music NA NA NA NA
3 1 NA NA NA Racing NA Movie NA Tennis "Documentary " Movie NA
4 2 Athletics Children Music Football Drama NA NA Football "Rugby" NA News
5 2 Athletics Children Movie Football Drama NA NA News "Rugby" NA News
uj5u.com熱心網友回復：
一個選項是在處理重復元素rowid之前按組 ( )創建一個序列pivot_wider
library(data.table)
library(tidyr)
library(dplyr)
df%>%
group_by(Hour,dt)%>%
summarise(Programmes=Programme_watched, .groups = 'drop') %>%
mutate(rn = rowid(Hour, dt)) %>%
pivot_wider(names_from = dt, values_from = Programmes) %>%
select(-rn)
-輸出
# A tibble: 6 × 12
Hour `05/06/2021` `07/06/2021` `08/06/2021` `10/06/2021` `12/06/2021` `14/06/2021` `15/06/2021` `09/06/2021` `11/06/2021` `13/06/2021` `06/06/2021`
<int> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
1 0 Wrestling Drama Drama Football Rugby Movie Music <NA> <NA> <NA> <NA>
2 0 <NA> <NA> <NA> <NA> Movie News <NA> <NA> <NA> <NA> <NA>
3 1 <NA> <NA> <NA> Racing <NA> Movie <NA> Tennis "Documentary " Movie <NA>
4 1 <NA> <NA> <NA> Racing <NA> <NA> <NA> <NA> <NA> <NA> <NA>
5 2 Athletics Children Music Football Drama <NA> <NA> Football "Rugby" <NA> News
6 2 <NA> <NA> Movie <NA> <NA> <NA> <NA> News <NA> <NA> <NA>
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/342981.html
上一篇：如何在R圖上提取y軸值？