计算模态y在变量x中的权重比例的函数

Question

我创建了两个函数。 计算模态 y 在变量 x 中所占比例的百分比函数， 计算数值变量 x 的平均值的 average 函数，其单位为 y.

对于比例，我使用 scale 包将结果格式化为漂亮的百分比。第一个“百分比”函数仅适用于字符变量。 现在我想写这两个函数来引入一个权重变量和另一个变量来按区域过滤结果。你能帮帮我吗？

这里有这两个函数：

library(scales) #
 
pourcentage <- function(x, y) {
  prop <- scales::percent((sum(x == y, na.rm = TRUE)/sum(!is.na(x))), accuracy = 0.1)
  return(prop)
}
 
moyenne <- function(x, y) {
  moy <- paste(round(mean(x, na.rm = TRUE), digits = 1),
               y
               )
  return(moy)
}