如何从向量2中的数字中删除向量1中的数字

Question

输入：

temp_total_time <- c(1.24, 1, 54 , 1.89, 2.45, 34, 54, 6.91, 7.33, 85.42, 1.19)

break_time_vals <- c(2.24, 3.52, 1.24, 5,89, 1.89, 7.33, 17.54)

输出

opr_time_vals <- c(2.24, 3.52, 5.89, 17.54)

尝试的代码：

  my_list <- list(temp_total_time,break_time_vals)
  opr_time_vals <- sapply(my_list,remove_nums)

我想要一个执行速度非常快的代码，因为我的向量的长度约为350000，10000

Answer 1

可能有更快的方法...但这可行。

zz <- break_time_vals[!(break_time_vals %in% temp_total_time)]

Answer 2

您正在寻找else if (higherBMI === false)函数：

else if mark.bmi() < mike.bmi();

这是Demonstration

Answer 3

我现在找到了解决方案。

 temp_total_time <- trimws(temp_total_time,"both")

 break_time_vals <- trimws(break_time_vals,"both")

 opr_time temp_total_time[!temp_total_time %in% break_time_vals]