Я пытаюсь изучить R, и я не могу понять, как добавить в список.
Если бы это был Python, я бы это сделал.,.
#Python
vector = []
values = ['a','b','c','d','e','f','g']
for i in range(0,len(values)):
vector.append(values[i])
Как вы это делаете в R?
#R Programming
> vector = c()
> values = c('a','b','c','d','e','f','g')
> for (i in 1:length(values))
+ #append value[i] to empty vector
Вот несколько способов сделать это. Все они обескуражены. Добавление к объекту в цикле for приводит к тому, что весь объект копируется на каждой итерации, что заставляет многих людей говорить, что "R медленный" или "R-циклы следует избегать".
# one way
for (i in 1:length(values))
vector[i] <- values[i]
# another way
for (i in 1:length(values))
vector <- c(vector, values[i])
# yet another way?!?
for (v in values)
vector <- c(vector, v)
# ... more ways
help("append") ответил бы на ваш вопрос и сэкономил время, которое потребовалось вам, чтобы написать этот вопрос (но вызвало бы у вас развитие вредных привычек).; -)
Заметим, что vector <- c() не является пустым вектором; это NULL. Если вам нужен пустой вектор символов, используйте vector <- character().
Также обратите внимание, что BrodieG указал в комментариях: если вы абсолютно должны использовать цикл for, то по крайней мере предварительно выделите весь вектор до петля. Это будет намного быстрее, чем добавление для больших векторов.
set.seed(21)
values <- sample(letters, 1e4, TRUE)
vector <- character(0)
# slow
system.time( for (i in 1:length(values)) vector[i] <- values[i] )
# user system elapsed
# 0.340 0.000 0.343
vector <- character(length(values))
# fast(er)
system.time( for (i in 1:length(values)) vector[i] <- values[i] )
# user system elapsed
# 0.024 0.000 0.023
FWIW: аналогично python append():
b <- 1
b <- c(b, 2)
У вас есть несколько вариантов:
c(vector, values)
append(vector, values)
vector[(length(vector) + 1):(length(vector) + length(values))] <- values
Первый - это стандартный подход. Второй дает вам возможность добавить куда-нибудь еще, кроме конца. Последнее немного искажено, но имеет преимущество в изменении vector (хотя на самом деле вы могли бы также легко сделать vector <- c(vector, values).
Обратите внимание, что в R вам не нужно перебирать векторы. Вы можете просто оперировать ими в целом.
Кроме того, это довольно простой материал, поэтому вам следует ознакомиться с некоторыми ссылками.
Еще несколько опций, основанных на обратной связи с OP:
for(i in values) vector <- c(vector, i)
Только для полноты добавление значений к вектору в цикле for на самом деле не является философией R. R работает лучше, работая на векторах в целом, как отметил @BrodieG. Посмотрите, нельзя ли переписать код:
ouput <- sapply(values, function(v) return(2*v))
Вывод будет вектором возвращаемых значений. Вы также можете использовать lapply, если значения представляют собой список вместо вектора.
Иногда нам приходится использовать циклы, например, когда мы не знаем, сколько итераций нам нужно получить. Возьмем в качестве примера петли. Ниже приведены методы, которые вам следует избегать:
a=numeric(0)
b=1
system.time(
{
while(b<=1e5){
b=b+1
a<-c(a,pi)
}
}
)
# user system elapsed
# 13.2 0.0 13.2
a=numeric(0)
b=1
system.time(
{
while(b<=1e5){
b=b+1
a<-append(a,pi)
}
}
)
# user system elapsed
# 11.06 5.72 16.84
Это очень неэффективно, потому что R копирует вектор каждый раз, когда он добавляет.
Наиболее эффективным способом добавления является использование индекса. Обратите внимание, что на этот раз я пропустил его итерацию 1 раз, но он все еще намного быстрее, чем c.
a=numeric(0)
system.time(
{
while(length(a)<1e7){
a[length(a)+1]=pi
}
}
)
# user system elapsed
# 5.71 0.39 6.12
Это приемлемо. И мы можем сделать это немного быстрее, заменив [ на [[.
a=numeric(0)
system.time(
{
while(length(a)<1e7){
a[[length(a)+1]]=pi
}
}
)
# user system elapsed
# 5.29 0.38 5.69
Возможно, вы уже заметили, что length может занять много времени. Если мы заменим length на счетчик:
a=numeric(0)
b=1
system.time(
{
while(b<=1e7){
a[[b]]=pi
b=b+1
}
}
)
# user system elapsed
# 3.35 0.41 3.76
Как отмечают другие пользователи, предварительное выделение вектора очень полезно. Но это компромисс между скоростью и использованием памяти, если вы не знаете, сколько циклов вам нужно, чтобы получить результат.
a=rep(NaN,2*1e7)
b=1
system.time(
{
while(b<=1e7){
a[[b]]=pi
b=b+1
}
a=a[!is.na(a)]
}
)
# user system elapsed
# 1.57 0.06 1.63
Промежуточный метод заключается в постепенном добавлении блоков результатов.
a=numeric(0)
b=0
step_count=0
step=1e6
system.time(
{
repeat{
a_step=rep(NaN,step)
for(i in seq_len(step)){
b=b+1
a_step[[i]]=pi
if(b>=1e7){
a_step=a_step[1:i]
break
}
}
a[(step_count*step+1):b]=a_step
if(b>=1e7) break
step_count=step_count+1
}
}
)
#user system elapsed
#1.71 0.17 1.89
В R вы можете попробовать:
X = NULL
X
# NULL
values = letters[1:10]
values
# [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j"
X = append(X,values)
X
# [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j"
X = append(X,letters[23:26])
X
# [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "w" "x" "y" "z"
> vec <- c(letters[1:3]) # vec <- c("a","b","c") ; or just empty vector: vec <- c()
> values<- c(1,2,3)
> for (i in 1:length(values)){
print(paste("length of vec", length(vec)));
vec[length(vec)+1] <- values[i] #Appends value at the end of vector
}
[1] "length of vec 3"
[1] "length of vec 4"
[1] "length of vec 5"
> vec
[1] "a" "b" "c" "1" "2" "3"