David Robie's questions

这基本上可以归结为“如何结合使用 pwd 和 sed delete（或替代方法）”。给定一个包含文件路径列表的文件，如何删除包含当前目录的行？

因此，如果 file1 包含：

/dirA/subdir1/somefile
/dirB/subdir2/somefile
/dirB/subdir2/somefile
/dirC/subdir2/somefile
/dirD/subdir1/somefile

我的工作目录是：

/dirB/subdir2/

然后我的输出应该就地编辑 file1 以得到以下结果：

/dirA/subdir1/somefile
/dirC/subdir2/somefile
/dirD/subdir1/somefile

我知道我可以用以下命令删除行：

sed '/pattern to match/d' file1

我可以像这样将 pwd 输入 sed：

sed 's?#REPLACE-WITH-PATH?'`pwd`'?'

所以我认为我可以将它们组合为以下之一：

sed '/'`pwd`'/d' file1
sed '?'`pwd`'?d' file1
sed '#'`pwd`'#d' file1

第一个选项无法正确读取，因为它将路径的斜杠解释为 sed 命令的一部分。第二个选项无法识别问号。第三个选项可以运行，但不会执行任何操作。

问题：您真的可以根据过滤器内部的绘制可靠地执行过滤吗，或者它注定会失败？

目标：在 中dplyr::filter()，如果随机抽签失败，则删除 A 类（versicolor）行，如果抽签通过，则删除 B 类（virginica）行。应始终以 5 行 setosa 数据随机行和 1 行 virginica（1/8 机会）或 versicolor（7/8 机会）随机行结束。

试图：

as_tibble(iris) %>%
   group_by(Species) %>%
   mutate(draw = case_when(
      Species == "setosa" ~ 5,
      Species == "versicolor" ~ 1,
      Species == "virginica" ~ 1
   )) %>%
   slice(sample(n(),draw[1])) %>%
   filter(
      if(round(runif(1),3) <= 1/8){ Species != "versicolor" }
      else { Species != "virginica" }
   )

问题：虽然这通常只返回一个或另一个，但偶尔我会同时返回两个或两个都不返回。 出于好奇，我发现有 11% 的时间我同时返回两个，有 11% 的时间我一个都不返回，而只有 78% 的时间只返回一个（这是正确的）。

我理解一个解决方案是在切片之后结束管道，然后在语句内进行绘制if()：

data <- as_tibble(iris) %>%
   group_by(Species) %>%
   mutate(draw = case_when(
      Species == "setosa" ~ 5,
      Species == "versicolor" ~ 1,
      Species == "virginica" ~ 1
   )) %>%
   slice(sample(n(),draw[1]))

if(round(runif(1),3) <= 1/8){
   data %>%
      filter(Species != "versicolor")
}
else {
   data %>%
      filter(Species != "virginica")
}

但是，自从我意识到可以在过滤器内部进行绘制后，我便很有兴趣了解它是否实用。