欢迎来到SO社区，下次请发一个minimal reproducible example，这样其他人就可以更好地帮助你！
我已经做了一个迷你应用程序，为你做的工作：

### Loading the libraries

library(tidyverse)
library(shiny)

### Building your sample data frame

df <- data.frame("col1" = c("china", "china", "france", "france", "italy"),
                 "col2" = c("A", "B", "A", "C", "B"))

### The user interface part

ui <- fluidPage(fluidRow(
  column(4,
         ### The widget to get the input from user
         selectInput("select", label = "Select box", 
                     choices = unique(df$col1),
                     multiple = TRUE)),
  column(4,
         ### The output to show the mutual options
         textOutput("result")
  ))
)

### The server part

server <- function(input, output) {

  output$result <- renderText({
    tmp <- df %>% filter(col1 %in% input$select)
    tmp <- tmp[with(tmp, col2 == Reduce(intersect, split(col2, col1))),]
    unique(tmp$col2)
  })
  
}

### Running the app

shinyApp(ui = ui, server = server)

在服务器端，我根据用户选择的国家筛选数据集，然后使用intersect()，我们可以根据第一列找到第二列中的共同值。关于这一行的更多细节，您可以查看此SO post here，了解它是如何完成的。