我有一个足球队数据集，如下所示：
Home_team Away_team Home_score Away_score
Arsenal Chelsea 1 3
Manchester U Blackburn 2 9
Liverpool Leeds 0 8
Chelsea Arsenal 4 1
我想对所涉及的球队进行分组，无论哪支球队在主场和客场比赛。例如，如果切尔西对阵阿森纳，无论比赛是在切尔西还是在阿森纳，我都希望新列“teams_involved”是阿森纳 - 切尔西。我的猜测是这样做的方法是按字母顺序将这些团队添加到新列中，但我不知道该怎么做。
期望的输出：
Home_team Away_team Home_score Away_score teams_involved
Arsenal Chelsea 1 3 Arsenal - Chelsea
Manchester U Blackburn 2 9 Blackburn - Manchester U
Liverpool Leeds 0 8 Leeds - Liverpool
Chelsea Arsenal 4 1 Arsenal - Chelsea
我之所以要这样做，是因为我可以看到每支球队对特定球队的胜利次数，无论比赛地点如何。
我正在创建一个 Shiny 应用程序，它接受一个 Excel 文件并自动操作数据。我希望用户输入他们想要查看的特定 Excel 工作表的名称。为此，我无法找到在 UI 中使用 textInput 并在服务器中使用 input$filesheet 的方法。我的代码可能有助于更了解这个问题：
用户界面
fileInput('file1', 'Insert File',
accept = c(".xlsx"),
textInput('file1sheet','Name of Sheet (Case-Sensitive)')
服务器
inFile1 <- input$file1
sheetname1 <- input$file1sheet
df1 <- read_excel(inFile1$datapath,sheet = sheetname1)
问题是 sheetname1 似乎不起作用，因为 read_excel 无法将其识别为正确的表达式。我尝试了一些东西，包括 ShQuote 和 as.character。如果有人对此有解决方案，那就太棒了！
谢谢！
斯特凡