Dodać wartość do pustego wektora W R?

FWIW: analogicznie do Pythona append ():

b <- 1
b <- c(b, 2)

Masz kilka opcji:

• c(vector, values)

• append(vector, values)

• vector[(length(vector) + 1):(length(vector) + length(values))] <- values

Zauważ, że w R nie musisz przechodzić przez wektory. Można je po prostu operować w w całości.

Również, jest to dość podstawowe rzeczy, więc należy przejść przez niektóre z Bibliografia.

Kilka dodatkowych opcji na podstawie opinii OP:

for(i in values) vector <- c(vector, i)

Tylko ze względu na kompletność, dodawanie wartości do wektora w pętli for nie jest tak naprawdę filozofią w R. R działa lepiej, operując na wektorach jako całości, jak zauważył @BrodieG. Sprawdź, czy Twój kod nie może być przepisany jako:

ouput <- sapply(values, function(v) return(2*v))

Wyjście będzie wektorem wartości zwrotnych. Możesz również użyć lapply, jeśli wartości są listą zamiast wektora.

Czasami musimy używać pętli, na przykład, gdy nie wiemy, ile iteracji potrzebujemy, aby uzyskać wynik. Weźmy pętle while jako przykład. Poniżej znajdują się metody, których absolutnie należy unikać:

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 

Są one bardzo nieefektywne, ponieważ r kopiuje wektor za każdym razem, gdy się dołącza.

Najskuteczniejszym sposobem dodawania jest użycie indeksu. Zauważ, że tym razem pozwoliłem iteracji 1e7 razy, ale i tak jest znacznie szybszy niż c.

a=numeric(0)
system.time(
  {
    while(length(a)<1e7){
      a[length(a)+1]=pi
    }
  }
)
# user  system elapsed 
# 5.71    0.39    6.12  

To jest dopuszczalne. I możemy zrób to nieco szybciej, zastępując [ na [[.

a=numeric(0)
system.time(
  {
    while(length(a)<1e7){
      a[[length(a)+1]]=pi
    }
  }
)
# user  system elapsed 
# 5.29    0.38    5.69   

Może już zauważyłeś, że length może być czasochłonne. Jeśli zamienimy length na licznik:

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

Jak wspomnieli inni użytkownicy, wstępna alokacja wektora jest bardzo pomocna. Ale jest to kompromis między szybkością a zużyciem pamięci, jeśli nie wiesz, ile pętli potrzebujesz, aby uzyskać wynik.

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 

Metodą pośrednią jest stopniowe dodawanie bloków wyników.

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

W R, można wypróbować w ten sposób:

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"

To, czego używasz w kodzie Pythona, nazywa się listą w Pythonie i różni się od wektorów R, Jeśli dostanę to, co chcesz zrobić:

# you can do like this if you'll put them manually  
v <- c("a", "b", "c")

# if your values are in a list 
v <- as.vector(your_list)

# if you just need to append
v <- append(v, value, after=length(v))