Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/typo3/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/mercurial/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 用另一列替换一列中的字符串_R - Fatal编程技术网

R 用另一列替换一列中的字符串

R 用另一列替换一列中的字符串,r,R,我有一个dataframe,它有两列,我想用第二列替换第一列中的一些字符串。在下面的数据框中,我希望将“em”标记替换为“a”标记,并在ulrs列上显示url df1 = data.frame(text = c("I like <em'>Rstudio</em> very much", "<em'> Anaconda</em> is an amazing data science tool"), ur

我有一个dataframe,它有两列,我想用第二列替换第一列中的一些字符串。在下面的数据框中,我希望将“em”标记替换为“a”标记,并在ulrs列上显示url

df1 = data.frame(text = c("I like <em'>Rstudio</em> very much", 
                      "<em'> Anaconda</em> is an amazing data science tool"), 
urls = c('https://www.rstudio.com/', 'https://anaconda.org/'))
df1=data.frame(text=c(“我喜欢Anaconda是一个惊人的数据科学工具”),
URL=c('https://www.rstudio.com/', 'https://anaconda.org/'))
我在找一个像下面这样的向量

text = c("I like <a href = 'https://www.rstudio.com/'>Rstudio</a> very much", 
        "<a href = 'https://anaconda.org/'> Anaconda</a> is an amazing data science tool")
text=c(“我非常喜欢”,
“是一个惊人的数据科学工具”)

使用
gsub
mapply
的选项可以是:

mapply(function(x,y)gsub("<em'>.*</em>",x,y),df1$urls, df1$text)

# [1] "I like https://www.rstudio.com/ very much"            
# [2] "https://anaconda.org/ is an amazing data science tool"
mapply(函数(x,y)gsub(“非常喜欢Rstudio”,
"
df1 = data.frame(text = c("I like <em'>Rstudio</em> very much", 
                          "<em'> Anaconda</em> is an amazing data science tool"), 
                 urls = c('https://www.rstudio.com/', 'https://anaconda.org/'))