如果另一列中存在一部分字符串，则删除一列中的一部分字符串

Question

我有一栏应该只是街道地址。我还有另一列包含城市，州和邮政编码。有时，街道地址列还包含城市，州和邮政编码。如果是这种情况，我要从街道地址列中删除城市，州和邮编。

数据帧示例：

我希望代码检查每一行，如果CityStateZip列中的字符串存在于StreetAdd列的字符串之内，然后删除StreetAdd列中的字符串的那一部分。

我想看的东西

这是我尝试过的：

data$StreetAdd <- gsub(data$CityStateZip, '', data$StreetAdd)

这是我得到的警告：

  

警告消息：在gsub（data $ CityStateZip，“”，data $ StreetAdd）中：
  参数'pattern'的长度> 1，只有第一个元素是   用过

在我的数据框中似乎没有任何变化

Answer 1

它不漂亮，但是可以工作：

2018-03-19  2018-03-19  java.time.LocalDate
2018-03     2018-03     java.time.YearMonth
2018        2018        java.time.Year
2017-02-54  2017-02     java.time.YearMonth
2016-13-19  2016        java.time.Year