3

Se tenho um data.frame formado pelos vetores:

V1<-c("A","B","C","D","B")
V2<-c("C","D","C","B","B")
V3<-c("D","D","C","A","A")
V4<-c("C","B","C","A","C")
G1<-c("C","C","A","A","B")
G2<-c("D","B","D","C","A")
G3<-c("A","B","B","C","A")
G4<-c("C","C","B","A","D")

dd<-data.frame(V1,V2,V3,V4,G1,G2,G3,G4)


 V1 V2 V3 V4 G1 G2 G3 G4
  A  B  B  A  A  D  B  C
  B  C  A  C  B  C  A  C
  B  D  D  C  D  A  D  D
  C  C  B  C  D  A  D  C
  C  B  C  D  B  B  C  A

Queria criar 4 novas colunas com nomes R1,R2,R3,R4 que vejam se V1=G1, V2=G2 e assim sucessivamente, e levem a informação 1 para verdadeiro e 0 para falso

Tinha conseguido assim, mas queria um comando para fazer todos de uma só vez.

dd$R1<-ifelse(dd$V1 == dd$G1, 1,0)

Tentei usar for mas não estava funcionando.

2 Respostas 2

4

Uma solução R base.

# primeiro determinar as colunas "V" com
# os mesmos números das colunas "G"
v <- grep("^V", names(dd))
g <- match(sub("^V", "", names(dd)[v]), sub("^G", "", names(dd)))

# agora quais têm valores iguais
# +(...) transforma valores lógicos em 0/1
R <- +(dd[v] == dd[g])

# e juntar tudo
colnames(R) <- paste0("R", v)
dd2 <- cbind(dd, R)
dd2
#  V1 V2 V3 V4 G1 G2 G3 G4 R1 R2 R3 R4
#1  A  C  D  C  C  D  A  C  0  0  0  1
#2  B  D  D  B  C  B  B  C  0  0  0  0
#3  C  C  C  C  A  D  B  B  0  0  0  0
#4  D  B  A  A  A  C  C  A  0  0  0  1
#5  B  B  A  C  B  A  A  D  1  0  1  0
3

Pode fazer a comparação diretamente entre o conjunto de colunas "G*" e "V*":

dd[grep("V", names(dd))] == dd[grep("G", names(dd))]
#>         V1    V2    V3    V4
#> [1,] FALSE FALSE FALSE  TRUE
#> [2,] FALSE FALSE FALSE FALSE
#> [3,] FALSE FALSE FALSE FALSE
#> [4,] FALSE FALSE FALSE  TRUE
#> [5,]  TRUE FALSE  TRUE FALSE

Como o R codifica VERDADEIRO como 1 e FALSO como 0, para ter o resultado como números pode aplicar as.integer às colunas:

apply(dd[grep("V", names(dd))] == dd[grep("G", names(dd))], 2, as.integer)
#>      V1 V2 V3 V4
#> [1,]  0  0  0  1
#> [2,]  0  0  0  0
#> [3,]  0  0  0  0
#> [4,]  0  0  0  1
#> [5,]  1  0  1  0

Ou, se preferir usar ifelse:

ifelse(dd[grep("V", names(dd))] == dd[grep("G", names(dd))], 1,0)

Note que assume-se que as colunas estejam na ordem correta (1, 2, 3,...). Se não estiverem, ordene-as primeiro:

dd <- dd[sort(names(dd))]

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .