loop in loop, создающий вектор в R

Question

Я хотел бы создать вектор, используя имена и цифры.

У меня есть 2 группы: А и В. у меня есть 2 рода: мужской и женский у меня есть 2 животные: собака и кошка

Вместо того чтобы писать вектор containting имя каждой группы:

vector= c("Amaledog","Afemaledog","Amalecat","Afemalecat","Bmaledog","Bfemaledog","Bmalecat","Bfemalecat") 

Я хотел бы использовать цикл в цикле:

group=c("A","B") 
gender=c("female","male") 
animal=c("dog","cat") 

for (a in group){ 
for (b in gender){ 
    for (c in animal){ 
    vector=paste0(a,b,c) 
    } 
} 
} 

Но я только получить: "Bmalecat"

Знаете ли вы, почему? Как я могу исправить эту проблему?

Answer 1

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

vect <- character(length(group) * length(gender) * length(animal)) 

i <- 1 
for (a in group){ 
    for (b in gender){ 
    for (c in animal){ 
     vect[i] <- paste0(a,b,c) 
     i <- i + 1 
    } 
    } 
} 

Это важно заранее выделить вектор для того, чтобы избежать ада много (неэффективного) перераспределения. Вы должны предпочтительно использовать векторизованное решение.

Answer 2

Вы могли бы просто использовать expand.grid

expand.grid(group=c("A","B"),gender=c("female","male"),animal=c("dog","cat")) 

Выход:

group gender animal 
1  A female dog 
2  B female dog 
3  A male dog 
4  B male dog 
5  A female cat 
6  B female cat 
7  A male cat 
8  B male cat 

Edit:

do.call(paste0, expand.grid(group=c("A","B"),gender=c("female","male"),animal=c("dog","cat"))) 

Это должно сделать это, как отмечалось в комментариях.

Answer 3

Вот вариант использования data.table с крестом присоединиться (CJ)

library(data.table) 
CJ(group, gender, animal)[, do.call(paste0, .SD)] 
#[1] "Afemalecat" "Afemaledog" "Amalecat" "Amaledog" "Bfemalecat" 
#[6] "Bfemaledog" "Bmalecat" "Bmaledog"