| 主隊 | 客隊 | FTR |
|---|---|---|
| 利物浦 | 獨角獸 | H |
| 西漢姆。 | 起重臂。 | D. |
| 曼城。 | 小丑。 | 一個。 |
| 伯恩茅斯。 | 房子。 | H。 |
| 謝菲爾德。 | 超人。 | 一個。 |
如何一次性替換H為Hometeam、AwithAwayteam和D單詞Drawall 中的資料？
我試過使用，str_replace但它只適用于一個特定的資料......請幫助
uj5u.com熱心網友回復：
一種方法是使用case_wheninside of mutate。
library(tidyverse)
df %>%
mutate(FTR = case_when(FTR == "H" ~ HomeTeam,
FTR == "A" ~ AwayTeam,
FTR == "D" ~ "Draw"))
輸出
HomeTeam AwayTeam FTR
1 Liverpool Norwich Liverpool
2 West Ham Man City Man City
3 Bournemouth Sheffield United Draw
或者如果你想堅持str_replace，那么你也可以在里面使用它case_when。
df %>%
mutate(FTR = case_when(
str_detect(FTR, "H") ~ HomeTeam,
str_detect(FTR, "A") ~ AwayTeam,
str_detect(FTR, "D") ~ "Draw"
))
資料
df <-
structure(
list(
HomeTeam = c("Liverpool", "West Ham", "Bournemouth"),
AwayTeam = c("Norwich", "Man City", "Sheffield United"),
FTR = c("H",
"A", "D")
),
class = "data.frame",
row.names = c(NA,-3L)
)
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/408940.html
標籤：