r - 为什么这个返回数据帧值频率的 R 函数不起作用?
问题描述
我正在尝试使用两个参数(变量,值)做一个函数。该函数返回数据帧值的频率。我编写了以下代码,但它返回错误:找不到对象“变量”。关于为什么的任何想法?在控制台中逐步执行此操作似乎有效,但不在功能范围内。
data <- data.frame(SEX = c("MASCULINO", "FEMENINO", "FEMENINO","FEMENINO",
"MASCULINO", "FEMENINO", "FEMENINO","FEMENINO",
"MASCULINO", "FEMENINO", "FEMENINO","FEMENINO",
"MASCULINO", "FEMENINO", "FEMENINO","FEMENINO",
"MASCULINO", "FEMENINO", "FEMENINO","FEMENINO"),
AGE = c(33, 33, 45, 56, 76, 45, 45, 23, 56, 45,
19, 23, 45, 56, 28, 36, 53, 49, 47, 22))
value_frequency <- function(variable, value){
variable <- data$variable
table <- table(data$variable)
frequency<- table[[value]]}
value_frequency (SEX, FEMENINO)
Error in frecuencia_valor(SEXO, FEMENINO) : object 'FEMENINO' not found
解决方案
尝试这个:
value_frequency <- function(variable, value){
variable <- data[,variable]
table <- table(variable)
frequency <- table[value]
return(frequency)
}
value_frequency ("SEX", "FEMENINO")
FEMENINO
15
或者更短一点,只返回值,而不是关联的名称:
value_frequency <- function(variable, value){
return(table(data[,variable])[[value]])
}
推荐阅读
- c# - 无异常抛出的 MediatR 验证行为
- c++ - C++ 和读取大型 txt 文件
- javascript - js/leafletjs表格显示属性
- c++ - 谷物似乎没有正确序列化 std::string
- jupyter-notebook - 由于缺少内存,我逐步训练模型,其中 keras 支持通过 fit_generator() 函数逐步加载数据集
- flutter - 如何修复未处理的异常:NoSuchMethodError:在 null Flutter Firestore 上调用了方法“[]”
- django - 如何获取查询集中所有对象的所有相关对象?
- r - 使用 ggplot 将文本制作为新罗马字体时出现问题
- java - 在本机图像之前使用 Proguard 进行 Java 混淆?
- android - 冻结 .NET MAUI Blazor 应用程序的命令行构建