如何计算满足R中特定条件的每一列的行数

下午好！

我已经查看了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%
")

有人有什么想法吗？

先感谢您。