在R中，如何循环表中的列并基于列名执行计算？

我正在加载这样一张表：

mydata <- read.table("c:\\file.tab", header=TRUE, sep="\t", quote="\"")

---

但是我有很多专栏。我想要一种方法来循环抛出并计算每个列的百分比，而不是复制和粘贴上面的行并手动更改列名。我对R非常陌生，因此非常感谢您的帮助。

请使用方括号中的数字而不是名称

i <- 1

sum(sum(mydata[[i]] == "")/nrow(mydata)

---

你也可以考虑<%>代码> <代码> %>而不是<代码> = = ，因为它更能扩展成与向量匹配。

i <- 1

sum(sum(mydata[[i]] == "")/nrow(mydata)

i <- 1
nms <- names(mydata)
sum(mydata[[nms[i]]] == "")/nrow(mydata)