我希望使用R基重现plyr::revalue的行为。我想根据查找表替换下面foo的值。plyr::revalue做了我想要的事情。如何在R基中实现这一点的提示？很高兴使用data.frame或命名向量进行查找。

lookupDF <- data.frame(shortName=c("app","or","ba","ma","unk"),
                       longName=c("Apple", "Orange", "Banana", "Mango", "Something Else"))

lookupVec <- lookupDF$longName
names(lookupVec) <- lookupDF$shortName

foo <- c("or","app","def","app","abc","ban")
plyr::revalue(foo,lookupVec)