[英]How to extract same texts/values from 2 columns in R data frame?
I want to extract text/value that is same in col1 and col2 , and create "desired_col" as provided in my data frame. 我想提取col1和col2中相同的文本/值,并创建我的数据框中提供的“desired_col”。 I tried few things but did not work ..
我尝试了一些东西,但没有工作..
mydata_1<-data.frame(col1=c("SL1234","SL786876"),col2=c("SL1334","SL78076"),desired_col=c(c("SL1","SL78")))
An option using mapply
as: 使用
mapply
的选项:
mydata_1$matched <- mapply(function(x,y){
# First take same length fron both columns
x <- substring(x,1, min(nchar(x),nchar(y)))
y <- substring(y,1, min(nchar(x),nchar(y)))
matching_len <- which(strsplit(x, split = "")[[1]] != strsplit(y, split = "")[[1]])[1]-1
substring(x, 1, matching_len)
}, mydata_1$col1, mydata_1$col2)
mydata_1
# col1 col2 desired_col matched
# 1 SL1234 SL1334 SL1 SL1
# 2 SL786876 SL78076 SL78 SL78
Data: 数据:
mydata_1<-data.frame(col1=c("SL1234","SL786876"),
col2=c("SL1334","SL78076"),
desired_col=c(c("SL1","SL78")),
stringsAsFactors = FALSE)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.