您可以使用%in%和which的组合。不过，输出不是按照您发布的顺序。

df1 <- data.frame(id=c(1:3,3:4), val= 11:15)
df2 <- data.frame(id= c(2,0,3,1), val=91:94)

i <- which(df1$id %in% df2$id)
df1[i, ]
#>   id val
#> 1  1  11
#> 2  2  12
#> 3  3  13
#> 4  3  14

创建于2023-04-22使用reprex v2.0.2

编辑

以下将给予已发布的订单。

df1 <- data.frame(id=c(1:3,3:4), val= 11:15)
df2 <- data.frame(id= c(2,0,3,1), val=91:94)

i <- df1$id[df1$id %in% df2$id]
j <- df2$id[df2$id %in% df1$id]
df1[order(match(i, j)), ]
#>   id val
#> 2  2  12
#> 3  3  13
#> 4  3  14
#> 1  1  11

创建于2023-04-22带有reprex v2.0.2

编辑2

在阅读了Ingo Pingo和TarJae的评论后，我将上述解决方案更改为

1

i <- which(df1$id %in% df2$id)
df1[order(match(df1$id[i], df2$id)),]
#>   id val
#> 2  2  12
#> 3  3  13
#> 4  3  14
#> 1  1  11

创建于2023-04-22使用reprex v2.0.2

二

j <- df1$id[df1$id %in% df2$id]
df1[order(match(j, df2$id)), ]
#>   id val
#> 2  2  12
#> 3  3  13
#> 4  3  14
#> 1  1  11

创建于2023-04-22使用reprex v2.0.2

这将给予预期的输出：

library(dplyr)

df1 %>%
  filter(id %in% df2$id) %>%
  arrange(match(id, df2$id)) 

  id val
1  2  12
2  3  13
3  3  14
4  1  11

或在碱R中：

df_subset <- df1[df1$id %in% df2$id, ]
df_subset[order(match(df_subset$id, df2$id)), ]

  id val
2  2  12
3  3  13
4  3  14
1  1  11