希望创建一个基本函数，返回R中特定列的频率

所以我有一个data.frame叫做data.merge它有37列

我需要分析第14列到第26列。这些是分类（1,2,9）

我想创建一个函数，该函数将返回一个包含两列的data.frame：第一列（df.merge selected中列的名称）和第二列（每个列中值的频率百分比）。我只想使用基本的R，没有dplyr包。我是否需要列表中的for循环（如您所想，我是初学者）

我的尝试是这样做：

lista=list(names(df.merge[,c(14:26)]))
lista

analyzelist= function(x){
pctlist=nrow(df.merge[df.merge(???????) ==1/nrow(df.merge)

return(data.frame(Symptome=lista, percentage=pctlist)}`


    I'm hoping to have this as a result
Symptome| Percentage
S_toux  |     0.5
S_autre |    0.45
etc.