求推荐可绘制列名匹配连线的R Shiny/JS组件

针对你需要在Shiny App中实现两表列名一对一连线匹配的需求，推荐以下几种方案：

1. shinyjqui + 自定义匹配逻辑 #

shinyjqui基于jQuery UI，能轻松在Shiny中实现拖拽交互。你可以用它的orderInput分别渲染两张表的列名列表，设置拖拽组允许跨列表拖拽，再通过监听拖拽事件来记录列名的对应关系：

• UI端：创建两个orderInput，分别绑定表1和表2的列名，设置group参数为同一组，限制每个目标列表最多接收一个匹配项（通过maxItems）。
• 服务器端：监听目标列表的input值，对比初始列名列表，就能得到by.x（源列表中被拖拽的项）和by.y（目标列表中对应的位置项）。
• 优势：和Shiny原生集成度高，代码量少，无需额外引入复杂JS库。

2. 基于jsPlumb的自定义交互实现 #

jsPlumb是专门用于实现元素连线交互的JS库，完美契合你"绘制一对一连线"的需求：

• 在Shiny的UI中通过tags$script引入jsPlumb资源，将两表的列名渲染成可连线的端点。
• 编写JS逻辑监听连线的创建/移除事件，通过Shiny.setInputValue将匹配的列名对实时传给Shiny服务器。
• 服务器端接收后，整理成by.x和by.y向量即可用于合并函数。
• 优势：交互体验专业，支持连线可视化，完全满足一对一匹配的视觉需求。

3. sortable包的进阶配置 #

如果你不想换工具，sortable也能通过调整配置实现需求：

• 用sortable::sortable_js创建两个同组的可拖拽列表，设置group的pull和put规则，确保每个列名只能被拖拽一次。
• 服务器端监听目标列表的input值，结合初始列名数据，逆向推导拖拽的对应关系。比如记录每个列名从左表到右表的拖拽映射，生成by.x和by.y。
• 优势：无需学习新工具，基于你已了解的包就能改造实现。

示例服务器端处理逻辑 #

拿到匹配关系后，你可以这样整理成合并参数：

# 假设input$matches是从前端传来的列名对列表，比如list(c("username", "pseudo"), c("id", "num_id"))
matches <- input$matches
by.x <- sapply(matches, `[`, 1)
by.y <- sapply(matches, `[`, 2)
merged_data <- merge(df1, df2, by.x = by.x, by.y = by.y)

内容的提问来源于stack exchange，提问作者mazu