如何計算符合R中特定條件的每列中的行數

Question

下午好！

我已經查看了stackoverflow，但我找不到我的確切問題，所以我們開始吧。

我有以下數據框：

mydata <- read.table(header=TRUE, text="
  rime   point   sound
  50      80       50
  80      80       20
  5       90       80
  0       10       80
  50      80       50
  80      80       20
  5       90       80
  0       10       80
  5       90       80
  0       10       80
")

對於每一列，我想知道大於或等於 50 的觀察百分比。我希望成品看起來像這樣。

mydata2 <- read.table(header=TRUE, text="
  rime   point   sound
  40%     70%     80%
")

有沒有人有任何想法？

先感謝您。

Answer 1

一種選擇可能是：

colSums(mydata >= 50)/nrow(mydata) * 100

 rime point sound 
   40    70    80 

如果您需要它作為數據框：

as.data.frame(rbind(colSums(mydata >= 50)/nrow(mydata)))

Answer 2

一個選項是使用colMeans並乘以 100

100 * colMeans(mydata >= 50)
#   rime point sound 
#  40    70    80 

如果它需要是一個data.frame

as.data.frame.list( 100 * colMeans(mydata >= 50))
#    rime point sound
#1   40    70    80