[英]Add Every Other Row to new Column - R
我正在尋找一種簡單的方法將每隔一行添加到 R 的新列中。 我有 NCAA 籃球隊在不同的、連續的排上互相比賽。 下面的示例:St. Joes 正在玩 La Salle,而 Connecticut 正在玩 Seton Hall,等等。我希望每個“游戲”都在同一條線上。 我已經搞砸了領先/滯后來解決這個問題,但這讓我在第一行或最后一行出現錯誤,這取決於我使用哪一個。 這是我的數據示例:
# current data
Team spread price
St. Joes -3 -105
La Salle 3 -115
Connecticut -1.5 -105
Seton Hall 1.5 -115
Minnesota 5.5 -110
Penn State -5.5 -110
# desired output below
Team1 spread1 price1 Team2 spread2 price2
St. Joes -3 -105 La Salle 3 -115
Connecticut -1.5 -105 Seton Hall 1.5 -115
Minnesota 5.5 -110 Penn State -5.5 -110
創建一組每兩行並將行號分配為新列。 使用pivot_wider
將數據轉換為寬格式。
library(dplyr)
library(tidyr)
df %>%
group_by(grp = ceiling(row_number()/2)) %>%
mutate(row =row_number()) %>%
pivot_wider(names_from = row, values_from = Team:price) %>%
ungroup %>%
select(-grp)
# Team_1 Team_2 spread_1 spread_2 price_1 price_2
# <chr> <chr> <dbl> <dbl> <int> <int>
#1 St.Joes LaSalle -3 3 -105 -115
#2 Connecticut SetonHall -1.5 1.5 -105 -115
#3 Minnesota PennState 5.5 -5.5 -110 -110
數據
df <- structure(list(Team = c("St.Joes", "LaSalle", "Connecticut",
"SetonHall", "Minnesota", "PennState"), spread = c(-3, 3, -1.5,
1.5, 5.5, -5.5), price = c(-105L, -115L, -105L, -115L, -110L,
-110L)), class = "data.frame", row.names = c(NA, -6L))
使用來自dcast
的data.table
library(data.table)
dcast(setDT(df)[, grp := gl(.N, 2, .N)], grp ~ rowid(grp),
value.var = setdiff(names(df), 'grp'))[, grp := NULL][]
# Team_1 Team_2 spread_1 spread_2 price_1 price_2
#1: St.Joes LaSalle -3.0 3.0 -105 -115
#2: Connecticut SetonHall -1.5 1.5 -105 -115
#3: Minnesota PennState 5.5 -5.5 -110 -110
df <- structure(list(Team = c("St.Joes", "LaSalle", "Connecticut",
"SetonHall", "Minnesota", "PennState"), spread = c(-3, 3, -1.5,
1.5, 5.5, -5.5), price = c(-105L, -115L, -105L, -115L, -110L,
-110L)), class = "data.frame", row.names = c(NA, -6L))
使用reshape
的基本 R 選項
reshape(
cbind(df, p = rep_len(1:2, nrow(df)), q = ceiling(seq(nrow(df)) / 2)),
direction = "wide",
idvar = "q",
timevar = "p"
)
給
q Team.1 spread.1 price.1 Team.2 spread.2 price.2
1 1 St.Joes -3.0 -105 LaSalle 3.0 -115
3 2 Connecticut -1.5 -105 SetonHall 1.5 -115
5 3 Minnesota 5.5 -110 PennState -5.5 -110
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.