根据文本删除列和下一列

【问题标题】：Delete column and next column based on text根据文本删除列和下一列
【发布时间】：2021-10-19 03:48:18
【问题描述】：

我有这样的数据：

我想删除包含“rico”的列，并删除所有下一个列。我希望得到这个：

这就是我所做的，但它不起作用：

mydata = data.frame(
  X1 = c("john", "max", "jay", "douglas"),
  X2 = c("alexia", "miguel", "vince", "gary"),
  X3 = c("peter", "rico", "joe", "jenny"),
  X4 = c("marc", "kelly", "max", "jones")
)

mydata[,grepl("rico", names(mydata))]

我们将不胜感激

【问题讨论】：

标签： r dataframe match subset

【解决方案1】：

你可以使用colSums -

mydata[cumsum(colSums(mydata == 'rico') > 0) == 0]

#       X1     X2
#1    john alexia
#2     max miguel
#3     jay  vince
#4 douglas   gary

使用colSums，我们计算'rico'在每一列中出现的次数，我们通过将其与 > 0进行比较来创建一个逻辑向量，使用cumsum我们选择单词第一次出现之前的所有列.

【讨论】：

【解决方案2】：

您可以将 mydata 子集设置为以 grepl 命中 rico 之前的一个范围结尾。

mydata[1:(grep("rico", mydata)-1)]
#mydata[1:(grep("rico", mydata)[1]-1)] #Alternative when there are more hists
#       X1     X2
#1    john alexia
#2     max miguel
#3     jay  vince
#4 douglas   gary

【讨论】：

感谢您的回答。一直想着这个，想找个准filter的函数做列。有这样的东西吗？
@TarJae 也许像mydata[cummax(grepl("rico", mydata)) == 0] ？