2人を比較して変数を作りようとしています

Question

私はhome_goalとaway_goalを使って新しい変数を作り、ゲームの結果を見ています。

これは、私はそれが引き分け、すべてのゲームを与える

if(data$home_team_goal < data$away_team_goal){ 
    data$result <- c('H') 
}else if (data$home_team_goal > data$away_team_goal){ 
    data$result<- c('A') 
}else (data$home_team_goal == data$away_team_goal){ 
    data$result<- c('D') 
} 

を持っているものです。

Answer 1

はあなただけ>0、0または<0されている2つの列の間の差にラベルを希望している。この場合case_when

library(dplyr) 
data %>% 
    mutate(result = case_when(home_team_goal == away_team_goal~"D", 
           home_team_goal > away_team_goal ~ "H", 
           TRUE ~ "A")) 
# home_team_goal away_team_goal result 
#1    0    1  A 
#2    0    0  D 
#3    2    4  A 
#4    3    1  H 
#5    3    4  A 
#6    1    1  D 

Answer 2

ifelseステートメントでこれを行うことができます。そしてdplyrパッケージを使用すると、冗長$構文ではなく名前で列を参照するだけで、mutateを使用して新しい列を追加できます。また、dataはデータフレームの大きな名前ではありませんので、data1を使用しています。ここで

install.packages("dplyr") # if required 
library(dplyr) 

data1 <- data.frame(home_team_goal = c(0, 0, 2, 3, 3, 1), 
        away_team_goal = c(1, 0, 4, 1, 4, 1)) 

data1 %>% 
    mutate(result = ifelse(home_team_goal == away_team_goal, "D", 
        ifelse(home_team_goal > away_team_goal, "H", "A"))) 


    home_team_goal away_team_goal result 
1    0    1  A 
2    0    0  D 
3    2    4  A 
4    3    1  H 
5    3    4  A 
6    1    1  D 

Answer 3

とオプションです。それだけで1つの比較であり、複数のif/else、ifelseまたはcase_whenをループするための必要はありません。

factor(with(data1, sign(home_team_goal - away_team_goal)), labels=c("A","D","H")) 
#[1] A D A H A D 
#Levels: A D H 

あなたがfactor出力したくない場合は、次の

c("A","D","H")[factor(with(data1, sign(home_team_goal - away_team_goal)))] 
#[1] "A" "D" "A" "H" "A" "D"