R 数据帧中的列名丢失

我正在开发一款闪亮的应用程序。用户界面的一部分涉及使用下拉菜单、复选框等来选择要打印的许多数据列中的哪一列。我正在使用grepl（）和用户输入将大数据框缩减为最终打印的单个列。指定此上下文，以便您知道我无法进行一次性解决；我需要一个健壮的解决方案，我可以通过用户界面应用于一千列或更多列的数据（在你责骂我拥有大量数据之前，我正在进行映射，所以我在shp文件的范围内工作）

重要的是，我保留正在绘制的列的名称，以便调试代码、生成图形标题等，但在修剪的最后阶段，当我只剩下一列时，列名将消失

如果我这样做：

    test <- data.frame(c1 = c(1,2,3), c2 = c(4,5,6))
    trimmed <- test[, grepl("c1", names(test))]

---

test使用
drop=F
保留结构（不删除单值维度）

例如：

有关详细信息，请参见
？“[”
使用
drop=F
保留结构（不删除单值维度）

例如：

有关详细信息，请参见
？“[”
你真棒！！完全按照我需要的方式工作，并解决了我遇到的另一个相关问题。非常感谢！你真棒！！完全按照我需要的方式工作，并解决了我遇到的另一个相关问题。非常感谢！
    test <- data.frame(c1 = c(1,2,3), c2 = c(4,5,6))
    trimmed <- as.data.frame(test[, grepl("c1", names(test))])

test[, grepl("c1", names(test)), drop = FALSE]

> mtcars[1:3, "mpg"]
[1] 21.0 21.0 22.8

> mtcars[1:3, "mpg", drop = F]
               mpg
Mazda RX4     21.0
Mazda RX4 Wag 21.0
Datsun 710    22.8