多谢您及时回复！除了前两行以外，剩下的全用您的代码，一点没改，结果见截图。我是Windows系统，请教一下问题出在哪里？另外，之前的优先级规则可能引入人为误差（选择偏倚），我想将优先级规则更改为以下规则：如果三列中有两列一致，另一列不一致，认为不一致的可能是记录错误，取两列一致的值（Unknown与Not Available除外），例如：Complete Remission/Response、Not Applicable、Not Available，取Complete Remission/Response；Partial Remission/Response、Complete Remission/Response、Partial Remission/Response，取Partial Remission/Response
麻烦您：按照新规则再设计代码，再次感谢！

data_web <- dat.Clinic[, 13:15]
View(data_web)
data_web$outcome <- "Unknown"
library(stringr)
n <- NROW(data_web)
for (i in 1:n) {
  if(sum(str_detect(string=data_web[i,],pattern = "Progressive Disease"),na.rm=T)!=0)
  { data_web$outcome <-"Progressive Disease"}
  if (sum(str_detect(string=data_web[i,],pattern = "Stable Disease"),na.rm=T)!=0)
  {  data_web$outcome <-"Stable Disease" }
  if (sum(str_detect(string=data_web[i,],pattern = "Partial Remission/Response"),na.rm=T)!=0)
  {  data_web$outcome <- "Partial Remission/Response"}
  if (sum(str_detect(string=data_web[i,],pattern = "Complete Remission/Response"),na.rm=T)!=0)
  { data_web$outcome <- "Complete Remission/Response"}
}
View(data_web)

我是用你网页上文件粘到excel中然后读入做的。不知你str_detect(string=data_web[20,],pattern = "Progressive Disease")这名代码执行的结果是什么，不妨截图来看一下。把20换成其它数字，，如15，17，19，等，执行一下看又是什么结果。

多谢！数据已传到网盘，链接: https://pan.baidu.com/s/13ljnN0I4oFfpcz0_wDLP_g 提取码: fe2u
请用read.table读取txt文件吧。将13-15这3列数据合并在新建的Outcome列，新规则（改了原来考虑优先级的第3条）如下：
1.认为Unknown与Not Available同义，并且级别最低，如果某一行数据在三列中不同，取Unknown或Not Available以外的某列数据。
2.如果Unknown或Not Available与Complete Remission/Response、Partial Remission/Response、Stable Disease、Progressive Disease等值在某一个格子内同时出现，认为是原始记录错误，忽略Unknown或Not Available。
3.如果三列中有两列一致，另一列不一致，认为不一致的可能是记录错误，取两列一致的值（Unknown与Not Available除外），例如：Complete Remission/Response、Not Applicable、Not Available，取Complete Remission/Response；Partial Remission/Response、Complete Remission/Response、Partial Remission/Response，取Partial Remission/Response。如果三列完全不一样（认为Unknown与Not Available一样），赋值为DEL或系统允许的表示删除的值，例如83行的Complete Remission/Response、 Partial Remission/Response、 Not Available，无法判断前两个值哪一个正确。
4. Outcome列中的结果都用简写吧: Complete Remission/Response简写为CR、Partial Remission/Response简写为PR、Stable Disease简写为SD、Progressive Disease简写为PD。

您所建议的，我执行后结果如图，都是3个FALSE，但相应的行是有相应的pattern的

我也不知为啥您结是这样。我还是用的一样的代码。

还是相同的方法，读入excel，没啥问题。其它问题空了来整。我也是半罐水。你不妨也试一下读文件的方法试一下。说不定问题就出在这儿。

您过谦了，多谢您耐心解答。