Как мне умножить два столбца на основе третьего столбца

Question

Я хочу умножить 2 столбца на основе определенных критериев.

Я пробовал IF / IFElse, но, вероятно, не сделал их правильно.

BetData1 <- tibble(
 Date = c("18/04/19", "18/04/19", "18/04/19"),
 Nation = c("Austria","Spain","Colombia"),
 League = c("Regionalliga", "Tercera","Primera A"),
 Home = c("Stadl Paura", "Tamaraceite", "U.Magdalena"),
 Away = c("Vokermarkt", "San Fernando", "America de Cali"),
 Pick = c("Home Win", "Home Win", "Home Win"),
 Odds = c("1.28","1.49","2.22"),
 Stake = c("5","5","5"),
 Result = c("W","W","L"))
BetData1  

Критерий, который я ищу, это если Result = W, то Stake * Odds, если Result = L, тогда Stake-Stake, и для него нужно перейти в новый столбец с именем Return

Есть какая-нибудь помощь в этом? Спасибо.

Answer 1

Я думаю, вы ищете что-то вроде этого:

library(dplyr)

BetData1 %>% 
  mutate(Return = ifelse(Result == "W", as.numeric(Stake)*as.numeric(Odds), 0))