Я пытаюсь написать функцию R для преобразования дробей и смешанных чисел в десятичные дроби. например
mixedToFloat <- function(x){
x <- sub(' ', '+', x, fixed=TRUE)
return(unlist(lapply(x, function(x) eval(parse(text=x)))))
}
> mixedToFloat(c('1 1/2', '2 3/4', '2/3', '11 1/4', '1'))
[1] 1.5000000 2.7500000 0.6666667 11.2500000 1.0000000
Это работает для большинства случаев, о которых я могу думать, но кажется немного хакерским. Есть ли более стандартный способ сделать это?
Что-нибудь менее «хакерское» должно будет проанализировать ваши входные данные и сопоставить их с рядом предопределенных шаблонов. Я придумал это:
mixedToFloat <- function(x){
is.integer <- grepl("^\\d+$", x)
is.fraction <- grepl("^\\d+\\/\\d+$", x)
is.mixed <- grepl("^\\d+ \\d+\\/\\d+$", x)
stopifnot(all(is.integer | is.fraction | is.mixed))
numbers <- strsplit(x, "[ /]")
ifelse(is.integer, as.numeric(sapply(numbers, `[`, 1)),
ifelse(is.fraction, as.numeric(sapply(numbers, `[`, 1)) /
as.numeric(sapply(numbers, `[`, 2)),
as.numeric(sapply(numbers, `[`, 1)) +
as.numeric(sapply(numbers, `[`, 2)) /
as.numeric(sapply(numbers, `[`, 3))))
}
mixedToFloat(c('1 1/2', '2 3/4', '2/3', '11 1/4', '1'))
# [1] 1.5000000 2.7500000 0.6666667 11.2500000 1.0000000
1) Это использует strapplyc для извлечения чисел, а затем calc помещает их в стандартную форму, преобразует в числовые и выполняет вычисления:
library(gsubfn)
ff <- c('1 1/2', '2 3/4', '2/3', '11 1/4', '1')
calc <- function(s) {
x <- c(if (length(s) == 2) 0, as.numeric(s), 0:1)
x[1] + x[2] / x[3]
}
sapply(strapplyc(ff, "\\d+"), calc)
2) Другой подход заключается в преобразовании каждого выражения в действительный код R, а затем в анализе и оценке каждого из них.
sapply(sub(" ", "+", ff), function(x) eval(parse(text = x)))
## 1 1/2 2 3/4 2/3 11 1/4 1
## 1.5000000 2.7500000 0.6666667 11.2500000 1.0000000
