R переменные имена в цикле, get и т. Д.

Question

Все еще относительно новое для R. Попытка иметь динамические переменные в цикле, но сталкивается со всеми видами проблем. Первоначальный код выглядит примерно так (но больше)

data.train$Pclass_F <- as.factor(data.train$Pclass) 
data.test$Pclass_F <- as.factor(data.test$Pclass) 

, который я пытаюсь построить в петлю, представляя себе что-то вроде этого

datalist <- c("data.train", "data.test") 
for (i in datalist){ 
    i$Pclass_F <- as.factor(i$Pclass) 
} 

, который не работает. Небольшое исследование подразумевает, что для преобразования строки datalist в переменную мне нужно использовать функцию get. Поэтому моя следующая попытка была

datalist <- c("data.train", "data.test") 
for (i in datalist){ 
    get(i$Pclass_F) <- as.factor(get(i$Pclass)) 
} 

который все еще не работает Error in i$Pclass : $ operator is invalid for atomic vectors. Протестировано

datalist <- c("data.train", "data.test") 
for (i in datalist){ 
    get(i)$Pclass_F <- as.factor(get(i)$Pclass) 
} 

который все еще не работает Error in get(i)$Pclass_F <- as.factor(get(i)$Pclass) : could not find function "get<-". Даже попробовал

datalist <- c("data.train", "data.test") 
for (i in datalist){ 
    get(i[Pclass_F]) <- as.factor(get(i[Pclass])) 
} 

который все еще не работает Error in get(i[Pclass]) : object 'Pclass' not found. Испытанный

datalist <- c("data.train", "data.test") 
for (i in datalist){ 
    get(i)[Pclass_F] <- as.factor(get(i)[Pclass]) 
} 

, который до сих пор не работает Error in '[.data.frame'(get(i), Pclass) : object 'Pclass' not found

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

> class(data.train$Pclass) 
[1] "integer" 
> class(data.test$Pclass) 
[1] "integer" 
> datalist 
[1] "data.train" "data.test" 

Answer 1

проблема, связанная с тем, как кадры данных и большинство других объектов обрабатываются в R. Во многих языках программирования объекты (или, по крайней мере, могут быть) переданы в функции по ссылке. В C++, если я передаю указатель на объект функции, которая управляет этим объектом, оригинал будет изменен. Это не так, как вещи работают по большей части в R.

Когда объект создается следующим образом:

x <- list(a = 5, b = 9) 

А потом скопировали, как это:

y <- x 

Первоначально y и x будет указывать на один и тот же объект в ОЗУ. Но как только y будет вообще изменен, будет создана копия. Поэтому назначение y$c <- 12 не влияет на x.

get() не возвращает именованный объект таким образом, который может быть изменен без предварительного присвоения ему другой переменной (что означает, что исходная переменная остается неизменной).

Правильный способ выполнения этого в R заключается в хранении ваших кадров данных с именем list. Затем вы можете прокручивать список и использовать синтаксис замены для изменения столбцов.

datalist <- list(data.train = data.train, data.test = data.test) 
for (df in names(datalist)){ 
    datalist[[df]]$Pclass_F <- as.factor(datalist[[df]]$Pclass_F) 
} 

Вы также можете использовать:

datalist <- setNames(lapply(list(data.train, data.test), function(data) { 
    data$Pclass_Fb <- as.factor(data$Pclass_Fb) 
    data 
}), c("data.train", "data.test")) 

Это использует lapply для обработки каждого элемента списка, возвращая новый список с измененными столбцами.

В теории вы могли бы достичь того, что изначально пытались сделать, используя оператор [[ в глобальной среде, но это был бы необычный способ сделать что-то и может привести к путанице позже.