我是tidyverse的新手。我的这段笨拙的代码将许多功能结合在一起
flow[grep(paste(paste(series, "J8","F", sep = "."), "TEMP",sep = "_")
, flow$Final.code), -1]
流是一个数据集。
有没有办法让我使用吹笛者重写此代码,以便于查看?
答案 0 :(得分:0)
一种方法可能是:
flow %>%
filter(str_detect(NAME_OF_-1_COLUMN, paste(paste(series, "J8","F", sep = "."), "TEMP", sep = "_")))
尚不清楚您的数据是什么,因此我不确定这是一个完美的解决方案。如果您使用grep命令来引用行名,则此方法无效。如果您想全面整理,请将paste()
替换为str_c()
。
您还可以将粘贴信息分配给变量,并在需要考虑可读性的情况下使用它:
things_to_detect = paste(paste(series, "J8","F", sep = "."), "TEMP", sep = "_")
flow %>%
filter(str_detect(NAME_OF_-1_COLUMN, things_to_detect))