用R语言function编写的计算各分类中的比例的代码错误

自己写的function+for循环函数，带入数据算出来比例都是1，但用核心代码单独计算又没有问题，请各位大神指教一下

参考GPT和自己的思路：

根据你的描述和提供的代码片段，出现比例都是1的问题可能是因为在调用这个function时，没有正确传入对应的数据。建议检查一下调用这个function时传入的参数是否正确，并且排除数据出现的问题。此外，也可以考虑在function代码中加入一些调试输出语句，以便更好地了解代码执行的情况。