r - R - 数据帧行上的函数错误 True/False

Question

尝试创建一个函数，如果 a != b 则返回 b 否则返回空值，然后将其 cbind 到原始数据帧。

但是出现以下错误：“参数长度为零”

将不胜感激 - python 中的类似功能可以正常工作。

DataFrame 非常简单

大肠杆菌 col1 col2。预期产出

1.      Blue  Blue
   

2. 蓝色 蓝色 空
3. 红色 蓝色 蓝色

4.            Null
   

library(readr)
library(tidyverse)
library(purrr)

df <- read_csv('/Users/david/Downloads/trustdata.csv')
df_dups <- df[!duplicated(df), ]

wins = function(a,b) {
  if(NULL) return(NULL)
  else if(a != b) {return (b)}
  else {return ("NULL")}
}


df_wins <- apply(df, 1, function(x) wins(x["col1"],x["col2"])) ```

标签： rdplyr