R - 计算每列中某些值的数量

Ess*_*ssi 6 row r predicate aggregate-functions dataframe

我发现了与我类似的问题,但没有一个解释如何为数据框的每一列执行此操作。

我有一个这样的数据框:

x1 = seq(12, 200, length=20)
x2 = seq(50, 120, length=20)
x3 = seq(40, 250, length=20)
x4 = seq(100,130, length=20)
x5 = seq(10, 300, length=20) 

df = data.frame(V1=x1, V2=x2, V3=x3, V4=x4, V5=x5) 
Run Code Online (Sandbox Code Playgroud)

现在我想获取每列大于 120 的值的数量。

我试过了:

nrow(df[,1] >120)
Run Code Online (Sandbox Code Playgroud)

那没有用,它说 0,但它不是真的,而且我想自动完成所有列。

Inf*_*ess 5

你可以用tidyverse它来解决这个问题。

library(tidyverse)

df%>%
gather(x, value, V1:V5)%>%
group_by(x)%>%
tally(value > 120)

# A tibble: 5 x 2
  x         n
  <chr> <int>
1 V1        9
2 V2        0
3 V3       12
4 V4        7
5 V5       12
Run Code Online (Sandbox Code Playgroud)

希望这可以帮助。