Как избавиться от ошибки non-numeric

Question

x<- read.table('d:\\2.csv', sep=';', header=TRUE)
x <- log(x) #логарифмируем 
x <- x[-1] #отбросим колонку с именами игроков
x <- apply(x, 2, diff) #считаем разницу между последовательными элементами
x <- t(x) #транспонируем таблицу
kmeans(x, 5, 1000000) #будем разбивать на 25 кластеров, максимум 1000000 иттераций

Читаю подготовленный файл - все читается без проблем.

Далее хочу сделать простое логарифмирование x<-log(x) и вылетает ошибка

Error in Math.data.frame(x) :

non-numeric variable(s) in data frame: X.stat1.stat2.stat4.

stat1 и т.д. - это имена колонок в файле.

Как мне привести данные исходные в порядок, чтобы не было таких ошибок? Сама ссылка на файл

Answer 1

В общем случае, если числа являются символьными векторами, можно привести значения к числовым с помощью as.numeric:

> values <- c("9", "100")
> df <- data.frame(values)
> log(as.numeric(df$values))
[1] 0.6931472 0.0000000

В вашем конкретном случае можно попробовать так:

x <- read.table(file, sep=';', header=TRUE)
x <- x[-1] #отбросим колонку с именами игроков
x <- log(x) #логарифмируем 
x <- apply(x, 2, diff) #считаем разницу между последовательными элементами
x <- t(x) #транспонируем таблицу
is.na(x) <- do.call(cbind,lapply(x, is.infinite)) # Заменить все Inf на NA
is.na(x) <- do.call(cbind,lapply(x, is.nan)) # Заменить все NaN на NA
x <- na.omit(x) # Удалить строки, содержащие NA
kmeans(x, 5, 1000000) # будем разбивать на 25 кластеров, максимум 1000000 итераций