如何根据列名中包含的字符串组合 dataframe 中的列？

Question

我有一个 dataframe all_data有 14 列需要组合成 4 列。

到目前为止，我已经为原始列名称字符串创建了对象。

name_pattern <- c( "Geographic.area.name", "Geographic Area Name")
VoS_pattern <- c( "Total.value.of.shipment", "value of shipments")
NAICS_pattern <- c( "NAICS.code", "NAICS code")
industry_pattern <- c("Meaning.of.", "Meaning of NAICS code")

例如，在这里，我有 5 列包含在VoS_pattern中的字符串中，我需要将它们合并为一列。

我需要创建包含所有单独列的对象，这些列将合并到一列。 当只有一个字符串分配了 object 时，例如NAICS_pattern <- "NAICS.code"而不是NAICS_pattern <- c( "NAICS.code", "NAICS code") ，以下工作

NAICS_col_names <- grep( NAICS_pattern, colnames( all_data ), value = TRUE )

不幸的是，当有多个字符串分配给 object 时，它不起作用，并且我收到的警告是：

在 grep(NAICS_pattern, colnames(all_data), value = TRUE) 中：参数 'pattern' 的长度 > 1 并且仅使用第一个元素

有什么解决方案吗？

Answer 1

我们可以用|将它们paste到一个中。

grep(paste(NAICS_pattern, collapse="|"), colnames( all_data ), value = TRUE )