, если ваши данные находятся в data.frame
df:
> ifelse(!grepl('mutiny of' , df$actor) & grepl('military forces of',df$actor) & apply(df,1,function(x) grepl(x[2],x[1])),1,0)
[1] 1 0 0 0
grepl
возвращает логический вектор, и его можно присвоить любому, например, df$actor_type
.
это приложение:
!grepl('mutiny of', df$actor)
и grepl('military forces of', df$actor)
удовлетворяют вашим первым двум требованиям.последний кусок, apply(df,1,function(x) grepl(x[2],x[1]))
идет строка за строкой и greps
для страны в актере.