R中的子集（查询）数据帧保留顺序

Question

I would like to know a way of subsetting with [] which preserves the order of the queries (authors), ex:

authors<-c("Almeda","Acosta", "Moscone", "Guerra")

authorcountry <- read.table(text="
 authoralone countryalone
1      Acosta     Argentina
2    Aguilera     Argentina
3      Almeda         U.S.A
4       Alves        Brazil
5      Araújo        Brazil
6 Bernardello     Argentina
7      Daviña     Argentina
8      Guerra        Brazil
9       Honfi     Argentina
10    Moscone     Argentina",header=TRUE,fill=TRUE,stringsAsFactors=FALSE)

authorcountry$countryalone[(authorcountry$authoralone %in% authors)]
#order should be:
#  [1] "U.S.A"     "Argentina" "Argentina" "Brazil"   

#as in:
authors<-data.frame(authors)
get_merge<-merge(authors,authorcountry, by.x="authors", by.y="authoralone", sort = FALSE)
get_merge$countryalone

Answer 1

You can use match , ie

authorcountry$countryalone[match(authors, authorcountry$authoralone)]
#[1] "U.S.A"     "Argentina" "Argentina" "Brazil" 

Answer 2

Or using dplyr

library(dplyr)
authorcountry %>% 
        slice(match(authors, authoralone)) %>%
        .$countryalone
#[1] "U.S.A"     "Argentina" "Argentina" "Brazil"