R ShinyApp中过滤数据的变量命名问题

希望你们都好。我在ShinyApps上遇到了一个小问题。 我附上了一张我需要的照片。 我的目标基本上是cyl变量mtcars数据。如果我从中按4，我要求过滤后的数据有4个，其余变量的名称有4个。 同样，如果同时按下4和6，我需要过滤数据，将4和6个cyl以及4和6个附加到其余变量名。 随附的图片将使事情更容易理解。 我也在附上我的密码。 请引导我。提前表示感谢：）

数据表使用-

用于创建初始查找，以将
输入$variables
映射到要使用的后缀

在数据

函数中进行实际过滤后，会发生以下情况-

colnames(data_table) <- gsub(paste( paste("_",sapply(repl, paste),sep=""),collapse="|"),"", colnames(data_table))

后缀

根据来自

输入$variables的选择数量，准备可对应于
\u four
、
\u four\u six
的后缀

  setnames(data_table, old = cols[3:length(cols)], new = paste(cols[3:length(cols)], suffix, sep=""))

本部分最后替换为
数据中
集合名
的后缀。表
库有助于替换R
df
中的列名子集。对于4和6部分，如果4和6有不同的行，该怎么办？输出不能是
cbind
表，因为正如shownHi mate所示，现在我们可以假设行数相同，我们也可以进行cbind。如果可能的话，你能更新代码吗。多谢多谢朋友，真的很感谢你的努力。但实际上，我希望“四”、“六”和“八”分开列。现在它们正在连接。是否可以实现单独的列。当做
repl <- list("4"="four","6"="six","8"="eight")

colnames(data_table) <- gsub(paste( paste("_",sapply(repl, paste),sep=""),collapse="|"),"", colnames(data_table))

cols <- colnames(data_table)
  suffix <- paste(paste("_", sapply(repl[input$variables],paste), sep=""),collapse="")

  setnames(data_table, old = cols[3:length(cols)], new = paste(cols[3:length(cols)], suffix, sep=""))