我有一個看起來像這樣的資料框：
precinct, race, age, people
1001, black, 18-40, 1
1001, white, 18-40, 2
1001, hispanic, 18-40, 3
1001, asian, 18-40, 4
1001, black, 40 or older, 5
1001, white, 40 or older, 6
1001, hispanic, 40 or older, 7
1001, asian, 40 or older, 8
我想讓它看起來像這樣：
precinct, black, white, hispanic, asian, 18-40, 40 or older
1001, 6, 8, 10, 12, 10, 26
我用過dcast
dcast(
data = mydataframe,
formula = Precinct ~ race age,
fun.aggregate = sum,
value.var = 'people'
)
但這不會產生我想要的結果。
uj5u.com熱心網友回復：
當我們 在其 rhs 上創建公式時，~它會創建這些列之間的組合，而不是擁有這些列中的每個唯一元素。為了擁有后者，我們可能需要melt長格式，然后dcast在單個列上使用（假設這些列屬于同一型別）
library(data.table)
dcast(melt(setDT(mydataframe), id.var = c('precinct', 'people')),
precinct ~ value, fun.aggregate = sum, value.var = 'people')
-輸出
Key: <precinct>
precinct 18-40 40 or older asian black hispanic white
<int> <int> <int> <int> <int> <int> <int>
1: 1001 10 26 12 6 10 8
library(dplyr)
library(tidyr)
mydataframe %>%
pivot_longer(cols = c(race, age), names_to = NULL) %>%
pivot_wider(names_from = value, values_from = people, values_fn = sum)
-輸出
# A tibble: 1 × 7
precinct black `18-40` white hispanic asian `40 or older`
<int> <int> <int> <int> <int> <int> <int>
1 1001 6 10 8 10 12 26
資料
mydataframe <- structure(list(precinct = c(1001L, 1001L, 1001L, 1001L, 1001L,
1001L, 1001L, 1001L), race = c("black", "white", "hispanic",
"asian", "black", "white", "hispanic", "asian"), age = c("18-40",
"18-40", "18-40", "18-40", "40 or older", "40 or older", "40 or older",
"40 or older"), people = 1:8), row.names = c(NA, -8L),
class = "data.frame")
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/525514.html
標籤：r广播
上一篇：結合遷入遷出資料