我有一个两个变量数据框,其中之一是字符向量。 “MyVector”中的每一行都包含一个只有一个名称的字符串(即“Pete”)。该名称在字符串中的位置可能有所不同。我想创建将列表中的名称与字符串中的名称相匹配的代码,并将该名称提取到数据框中的新变量中。
如果名称始终位于向量“MyVector”中的相同位置,我将创建一个新变量作为 MyVector 的子字符串,将名称拉出到新列中。
我尝试了 Stringr 的各种版本的 str_detect 但无济于事。
挑战:如果名称位于多个位置,如何检测名称或将其提取到新变量中并将其放入 MyDF 中?
#Create the data frame
var.1 <-rep(c(1,5,3),2)
MyVector <- c("I know Pete", "Jerry has a new job","Victor is an employee","How to work with Pete","Too Many Students","Bob is mean")
MyDF <-as.data.frame(cbind(var.1,MyVector))
#Create a vector of a list of names I want to extract into a new column in the dataframe.
Extract <- c("Jerry","Pete", "Bob", "Victor")
#Match would be perfect if I could use it on character vectors
MyDF$newvar <-match(MyDF$MyVector,Extract)
我的最终 data.frame 应该类似于下面的输出。
var.1 MyVector NEWVAR
1 1 Don knows Pete Pete
2 5 Jerry has a new job Jerry
3 3 Victor and Bob are employees Victor
4 1 How to work with Pete Pete
5 5 Too Many Students NA
6 3 Bob is mean Bob