假设我有一个小数列表
x <- c(0.55, 0.246, 0.767)
然后我希望将这些转换成 10 以内的分数，这样我就得到
6/10 2/10 8/10
我遇到过这个，效果非常好。但是，我想知道是否有一个函数可以做到这一点？
frac.fun <- function(x, den){
dec <- seq(0, den) / den
nams <- paste(seq(0, den), den, sep = "/")
sapply(x, function(y) nams[which.min(abs(y - dec))])
}
frac.fun(x, 10)
#[1] "6/10" "2/10" "8/10"
这与我遇到的其他堆栈溢出问题不同，因为我对所有小数有一个共同的分母感兴趣，并且对指定分母是什么感兴趣。
Thanks!
以防万一您需要使用上述函数的更简化版本
f = function(x, den) {paste0(round(x * den), "/", den)}
x <- c(0.55, 0.246, 0.767)
f(x, 10)
[1] "6/10" "2/10" "8/10"
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
