1

Eu tenho a seguinte situação :

all_sec = Matriz de todos os ativos possiveis em uma carteira

all_sec <- matrix(c("SEC1","SEC2","SEC3","SEC4","SEC5"),ncol=1)

portfolio <- composição de um portfolio de ativos (coluna 2 é igual ao peso do ativo na carteira

portfolio <- matrix(c("SEC2","SEC4",0.45,0.55),ncol=2)

Eu quero como resultado uma matrix de 1 coluna no qual o valor retorne 0 se o ativo não estiver no portfolio e retorne o valor do peso (coluna 2 da matriz portfolio) se tiver no portfolio. O resultado seria uma matrix nesse formato :

     [,1]  
[1,] 0
[2,] 0.45
[3,] 0
[4,] 0.55
[5,] 0

Poderiam me ajudar ?

3 Respostas 3

2

Você pode fazer isso com o merge:

resultado <- merge(all_sec, portfolio, all=TRUE) # faz o merge das duas matrizes
resultado <- apply(resultado, 2, as.character) # transforma em texto de novo (porque o default do R é transformar texto em factor
resultado[is.na(resultado)] <-0 #substitui NA por zero
dimnames(resultado) <- NULL # tira os nomes das dimensões

Então você vai ter o seguinte resultado:

resultado
     [,1]   [,2]  
[1,] "SEC1" "0"   
[2,] "SEC2" "0.45"
[3,] "SEC3" "0"   
[4,] "SEC4" "0.55"
[5,] "SEC5" "0"   

E se você quiser somente a segunda coluna:

subset(resultado, select=V2)
     [,1]  
[1,] "0"   
[2,] "0.45"
[3,] "0"   
[4,] "0.55"
[5,] "0"   

Agora, uma coisa importante a se notar é que a sua matriz portfolio está misturando elementos character com numeric então ela vai transformar todo mundo em character. Talvez você deveria trabalhar com um data.frame e não uma matriz.

1
#define as matrizes
all_sec <- matrix(c("SEC1","SEC2","SEC3","SEC4","SEC5"),ncol=1)
portfolio <- matrix(c("SEC2","SEC4",0.45,0.55),ncol=2)
#define o tamanho das matrizes (melhor que ficar chamando dim() toda hora)
all_dim <- dim(all_sec)[1]
portfolio_dim <- dim(portfolio)[1]
#cria a matriz para guardar os resultados
resultado <- matrix(data=NA, nrow=all_dim, ncol=1) 
for(j in 1:all_dim){
   #inicia como 0
   resultado[j] <- 0
   #procura por X no portfolio
   for(i in 1:portfolio_dim){
      #se encontrar define o mesmo
      if(all_sec[j] == portfolio[i,1]){
        resultado[j] <- portfolio[i,2]
        break
      }
   }
}
print(resultado)
0

Você pode fazer isso com o pacote data.table:

> library(data.table)

> all_sec <- matrix(c("SEC1","SEC2","SEC3","SEC4","SEC5"),ncol=1)
> portfolio <- matrix(c("SEC2","SEC4",0.45,0.55),ncol=2)
> all_sec = data.table(all_sec, key='V1')
> all_sec
     V1
1: SEC1
2: SEC2
3: SEC3
4: SEC4
5: SEC5
> portfolio = data.table(portfolio, key='V1')
> portfolio
     V1   V2
1: SEC2 0.45
2: SEC4 0.55
> portfolio[all_sec]
     V1   V2
1: SEC1   NA
2: SEC2 0.45
3: SEC3   NA
4: SEC4 0.55
5: SEC5   NA

> as.matrix(portfolio[all_sec][, list(V1, V2=as.numeric(as.character(V2)))][is.na(V2), V2 := 0][, V2])
     [,1]
[1,] 0.00
[2,] 0.45
[3,] 0.00
[4,] 0.55
[5,] 0.00
> 

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 .