我的代码打印一个二进制矩阵。如果匹配特定的字符串部分(使用grepl)，它将打印一个二进制矩阵。
这是我的输出
A tibble: 11 × 6
Aufzeichnungen `2010` `0070` Ä1 Ä5 `0010`
<chr> <chr> <chr> <chr> <chr> <chr>
1 Aufzeichnungen 0 0 0 0 0
2 07.03.22 A: stechender Schmerz, scharfkantig 0 0 0 0 0
3 D/B: 0 0 0 0 0
4 T: 0 0 0 0 0
5 pat aht an 36 üz distal, seit paartagen 1 0 0 1 0
6 36 vipr++, perk-, keine c zu entdekcne,üz bilfuird 1 1 0 0 0
7 pat aufgekläörtggf RÖ um c auszuschileßen, pat verweigert RÖ aus Angst vor Strahlung, pat 0 0 0 0 0
8 aufgeklärt angst nicht nötig und c unter fllg oder apprx nicht auszuschließen, 0 0 1 0 0
9 pat knirscht, schiene empohlen, pat meldet sich.. 0 0 0 0 0
10 next: noch schmerezn 0 0 0 0 0
11 an 36? 0 0 0 0 0
>
，从这一点开始，我想生成一个输出向量，它给出了列的名称，其中列和>
0。就像这个例子(2010,0070，Ä1， Ä5)
我尝试了一个自己的函数和colsum，但这里是第一列的问题，因为它是一个字符。我考虑过删除进程的第一列，然后为上下文添加它，但也许有一种更简单的方法。
提前谢谢你。
您可以在检查列和之前选择数字列:
tibble(a = c("a", "b", "c"), b = c(0,0,0), c = c(0,0,1)) |>
select(where(is.numeric)) |>
select(where(~ sum(.) > 0)) |>
names()
输出:
[1] "c"