Как получить эквивалент функциональности R ifelse, используя логические операторы

Это должно работать:

finalmark <- (x * 0.2 + y * 0.8) * (y >= 50) + (y + 10 * (x > 70)) * (y < 50)

Что-то вроде этого?

if(y>=50){
    0.2*x+0.8*y 
     }else{
      if(y<50 & x>70){
         y+10 
          }else{ 
            if(y<50 & x<70){
               y 
              }else{
               "OMG I did not expect this scenario"
            }
        }
    }

попробуйте: y=45; x=70 чтобы понять, почему у меня последнее условие.

Если y — это число, то после проверки y > = 50 значение y должно быть меньше 50, поэтому не продолжайте проверку на это. Точно так же, как только вы нашли x > 70, вам не нужен последний ifelse. У вас нет возврата для x = 70. Я предполагаю, что вы хотите проверить ситуацию ‹= или >=.

ifelse(y>=50, 0.2*x+0.8*y, ifelse(x>70, y+10, y)) 

в скаляре это

if(y >= 50){
  0.2*x+0.8*y
}else if(x > 70){
  y+10
}else y

Учитывая, что вам, похоже, трудно вообще написать логику, я предлагаю вам опубликовать более полный вопрос. Возможно (вероятно), что вы делаете здесь что-то, чего на самом деле делать не хотите.

Есть несколько подходов, которые вы можете предпринять. Ниже приведены несколько примеров построения функции «f», чтобы «f (x, y)» соответствовало вашим критериям, указанным в вопросе, с использованием логики, отличной от операторов «ifelse». Примечание. Я также добавляю одну поправку к исходному сообщению, так как "x=70" нарушит логику. Я добавляю "x>=70" ко второму критерию.

Вариант 1. Используйте стандартный логический блок if / else if / else. Лично мне этот вариант нравится, потому что он легко читается.

f <- function(x, y){
    if (y>= 50){
        return(0.2*x+0.8*y)
    } else if (y < 50 & x >= 70){
        return(y+10)
    } else {
        return(y)
    }
}

Вариант 2. Объедините два логических теста (на самом деле их всего два) в строку и используйте переключатель. Обратите внимание, что последняя и безымянная опция рассматривается как «еще».

f <- function(x, y){
    return(
        switch(paste(x >= 70, y >= 50, sep=""), 
            TRUEFALSE = y + 10, 
            FALSEFALSE = y,
            0.2*x+0.8*y 
        )
    )
}

Вариант 3. Упорядочите операторы if, чтобы уменьшить количество логических сравнений. Это то, что нужно делать, если у вас большой набор данных или очень ограниченная память. Это немного сложнее устранить, так как вам нужно прочитать весь блок, чтобы полностью понять его. Вариант 1 лучше, если у вас нет ограничений по памяти или циклу.

f <- function(x, y){
    if (y >= 50){
        return(0.2*x+0.8*y)
    } else {
        if (x >=70){
            return(y+10)
        } else {
            return(y)
        }
    }
}

Есть и другие варианты, но это самые простые, которые приходят на ум.