![](/img/trans.png)
[英]How can I remove all rows of a dataframe that have the same string value across a subset of columns in R?
[英]R - How can I subset rows of a dataframe using an index of integers?
我正在尝试根据出现在一个列/变量中的某个字符串的每次出现来找到一种对 dataframe 进行子集或切片的方法 - 例如,我想删除字符串两次出现之间的所有行。 这个问题类似于这个问题,但关键的区别是我有多次出现的字符串,并且想删除每对出现之间的行。 我是一个 R 笨蛋,我找不到以任何优雅的方式将解决方案应用于超过两个整数的索引的方法。
假设我有以下 dataframe:
a <- c("one", "here is a string", "two", "three", "four", "another string", "five", "six", "yet another string", "seven", "last string")
b <- c("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k")
c <- c("type1", "type1", "type1", "type1", "type1", "type1", "type2", "type2", "type2", "type2", "type2")
df <- data.frame(a,b,c)
这给出了以下内容:
print(df)
a b c
1 one a type1
2 here is a string b type1
3 two c type1
4 three d type1
5 four e type1
6 another string f type1
7 five g type2
8 six h type2
9 yet another string i type2
10 seven j type2
11 last string k type2
我想对其进行子集化,以便删除其中的所有行,包括字符串“string”的任何迭代:
a b c
1 one a type1
2 five g type2
8 six h type2
使用我链接到的问题中接受的解决方案,我可以通过创建行号索引并使用索引中的前两个位置来删除第一组行:
index = grep("string", df$a)
df[-(ind[1]:ind[2]),]
但我想做的还包括删除索引中下一对整数之间的行
df[-(ind[3]:ind[4]),]
我的实际索引有 128 个整数(64 个“对”),所以像我上面所做的那样手动提取行会让人头疼。 如果我找不到一个优雅的解决方案,我目前的计划是打印索引并手动提取行(tbh,这可能比写这个问题要快,但看起来很糟糕,不会教我任何东西):
print(index)
[1] 2 6 9 11
df[-c(2:6, 9:11), ]
有没有办法遍历索引中每对连续的整数,或者另一种方法来做我想做的事情? 我不是一个经验丰富的 R 用户,在创建此示例之前,我已经搜索了我想要做的事情(我希望遵守 reprex 标准;这是我第一次提出问题)。
我在reprex中包含了列'c',因为它反映了我的实际数据的结构(对于列'c'的每次观察变化,列'a'中出现一对'字符串'),我想知道是否有一种方法可以将 group_by() 与基本子设置表达式一起使用? 但这可能是一个完全的红鲱鱼。 只是包括它以防万一。
使用Map
在连续的index
对之间创建一个序列并删除这些行。 获得连续对的一种方法是使用备用逻辑值。
df[-unlist(Map(`:`, index[c(TRUE, FALSE)], index[c(FALSE, TRUE)])),]
# a b c
#1 one a type1
#7 five g type2
#8 six h type2
由于我已经在 twitter 上发布了它,这里有一个 tidyverse-y 解决方案:
df %>% mutate(stringy = grepl("string", a),
seq = cumsum(stringy)) %>%
filter(seq %% 2 == 0, !stringy)
技巧基本上是一样的——我们找到哪些行有你要找的字符串,然后创建一种交替它们的方法(在这种情况下,用 cumsum 添加一个索引,然后使用模 2)然后过滤掉赔率加上任何字符串的最后一次出现(这将是结束索引)。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.