我有一个具有年龄和相应频率的数据框。它的生成类似于:
ages <- sample(15:45,size = 100,replace = TRUE)
> df <- data.frame(table(ages))
> head(df)
ages Freq
1 15 2
2 16 2
3 17 2
4 18 2
5 19 5
6 20 3
我想创建一个函数,当年龄作为输入时,它会拉出相应的频率值。
例如,如果对应于13的频率为2,我应该能够输入13并将输出设为2。
答案 0 :(得分:5)
grab.frequency = function(d, age) {
d$Freq[d$ages == age]
}
例如:
d = data.frame(ages=41:50, Freq=21:30)
print(grab.frequency(d, 44))
# 24