匹配和替换来自两个不同数据帧的所选数据

问：

（第一次发帖，请耐心等待）我有两个不同的数据帧，其中一个包含一列替换数据，用于在第一个数据帧中选择数据。

#dataframe 1 
df<-data.frame(site= rep(1:4,3), landings = rep("val",12),
               harbour = c("a","b","c","d","e","f","g","h","i","j","k","l"))


#dataframe 2
new_site4<-data.frame(harbour = c("a","b","c","d","e","f","g","h","i","j","k","l"),
                     sub_site = c("x","x","y","x","y","y","y","x","y","x","y","y") )

我想根据“港湾”的匹配将数据帧 1 中的“站点”替换为数据帧 2 中的“子站点”，但是我只需要对站点“4”的记录执行此操作。

有没有一种巧妙的方法可以只选择站点 4，然后将站点编号替换为子站点，理想情况下不合并或不创建全新的数据帧。我的真实数据集很大，但键很小，因为它仅引用需要添加子站点的一小部分数据。

我尝试在我的主数据集上使用 match（），但由于某种原因，它只匹配了一些所需的数据，而不是全部，但此代码也不适用于我的示例数据。

#df$site[match(df$harbour, new_site4$harbour)] <- new_site4$sub_site[match(df$harbour, df$harbour)]`