Как преобразовать коэффициент в целое число \ числовое без потери информации?

R имеет ряд (недокументированных) удобных функций для коэффициентов преобразования:

• as.character.factor
• as.data.frame.factor
• as.Date.factor
• as.list.factor
• as.vector.factor
• ...

Но досадно, что обработать фактор → числовое преобразование нечем. Как продолжение ответа Джошуа Ульриха, я бы предложил преодолеть это упущение с определением вашей собственной идиоматической функции:

as.numeric.factor <- function(x) {as.numeric(levels(x))[x]}

который вы можете сохранить в начале вашего script, или даже лучше в .Rprofile файле.

Самый простой способ - использовать функцию unfactor из пакета varhandle

unfactor(your_factor_variable)

Этот пример может быть быстрым:

x <- rep(c("a", "b", "c"), 20)
y <- rep(c(1, 1, 0), 20)

class(x)  # -> "character"
class(y)  # -> "numeric"

x <- factor(x)
y <- factor(y)

class(x)  # -> "factor"
class(y)  # -> "factor"

library(varhandle)
x <- unfactor(x)
y <- unfactor(y)

class(x)  # -> "character"
class(y)  # -> "numeric"

Каждый ответ в этом сообщении не привел к получению результатов для меня, НС генерировались.

y2<-factor(c("A","B","C","D","A")); 
as.numeric(levels(y2))[y2] 
[1] NA NA NA NA NA Warning message: NAs introduced by coercion

Для меня это работало -

as.integer(y2)
# [1] 1 2 3 4 1

Примечание: этот конкретный ответ заключается не в преобразовании числовых значений в числовые числа, а в преобразовании категориальных факторов в соответствующие номера уровней.

В случае, когда метки факторов соответствуют исходным значениям, возможно только. Я объясню это на примере.

Предположим, что данными является вектор x:

x <- c(20, 10, 30, 20, 10, 40, 10, 40)

Теперь я создам фактор с четырьмя метками:

f <- factor(x, levels = c(10, 20, 30, 40), labels = c("A", "B", "C", "D"))

1) x имеет тип double, f имеет тип integer. Это первая неизбежная потеря информации. Факторы всегда сохраняются как целые числа.

> typeof(x)
[1] "double"
> typeof(f)
[1] "integer"

2) Невозможно вернуться к исходным значениям (10, 20, 30, 40), имеющим только f. Мы можем видеть, что f содержит только целые значения 1, 2, 3, 4 и два атрибута - список меток ( "A", "B", "C", "D" ) и атрибут "factor" класса, Ничего больше.

> str(f)
 Factor w/ 4 levels "A","B","C","D": 2 1 3 2 1 4 1 4
> attributes(f)
$levels
[1] "A" "B" "C" "D"

$class
[1] "factor"

Чтобы вернуться к исходным значениям, нам нужно знать значения уровней, используемых при создании фактора. В этом случае c(10, 20, 30, 40). Если мы знаем исходные уровни (в правильном порядке), мы можем вернуться к исходным значениям.

> orig_levels <- c(10, 20, 30, 40)
> x1 <- orig_levels[f]
> all.equal(x, x1)
[1] TRUE

И это будет работать только в том случае, если метки были определены для всех возможных значений в исходных данных.

Итак, если вам понадобятся исходные значения, вы должны их сохранить. В противном случае существует высокая вероятность того, что вернуться к ним невозможно только из фактора.

Спасибо за это решение.

Однако, когда я использую это преобразование из фактора в числовое значение, я получаю сообщение об ошибке:

1: In eval(substitute(list(...)), '_data', parent.frame()) :
  NAs introduced by coercion

Я прочитал, что это ошибка, которую вы получаете, когда выполняете это преобразование из фактора в число.

Можно ли это решить? Благодарю.

Вы можете использовать hablar::convert если у вас есть фрейм данных. Синтаксис прост:

Образец df

library(hablar)
library(dplyr)

df <- dplyr::tibble(a = as.factor(c("7", "3")),
                    b = as.factor(c("1.5", "6.3")))

Решение

df %>% 
  convert(num(a, b))

дает тебе:

# A tibble: 2 x 2
      a     b
  <dbl> <dbl>
1    7.  1.50
2    3.  6.30

Или, если вы хотите, чтобы один столбец был целым, а другой числовым:

df %>% 
  convert(int(a),
          num(b))

результаты в:

# A tibble: 2 x 2
      a     b
  <int> <dbl>
1     7  1.50
2     3  6.30

случайно в конце игры я обнаружил, что trimws() может преобразовать factor(3:5) в c("3","4","5"). Затем вы можете вызвать as.numeric(). То есть:

as.numeric(trimws(x_factor_var))