4

Estou tentando desenvolver um sistema de recomendação utilizando a linguagem R.
Basicamente, o sistema é de recomendação musical coleta informações de um arquivo onde existe uma certa quantidade de usuários e para cada usuário, uma contagem de vezes que ele ouviu determinado artista.

library(recommenderlab) #Bibliotecas utilizadas para carregar dados e montar recomendações
library(tidyverse)
library(data.table)

setwd("C:/Users/DIRETORIO/Documents/R/dados") #Local de arquivo de treinamento

dados <- fread("dadosTreinamento.txt", header = TRUE, sep = "\t", fill = TRUE) #Dados carregados em variável

names(dados)[2:3] <- c("IdArtist", "IdUser") #Renomeando colunas 2 e 3

dadosGrupo <- group_by(dados, IdUser, IdArtist) #Agrupando os dados

dadosGrupo2 <- summarise(dadosGrupo, count = n()) #Gerando tabela com soma da quantidade de vezes que cada usuário ouviu determinado artista
dadosGrupo2 <- as.data.frame(dadosGrupo2) #Convertendo dadosGrupo2 para data.frame

matrizAfinidade <- as(dadosGrupo2, "realRatingMatrix") #Matriz real de dados

Rec.model<-Recommender(matrizAfinidade, method = "UBCF")

usuarios <- length(unique(dadosGrupo2$IdUser)) #Capturando a quandidade de usuários únicos

listaRecomendacoes <- vector("list", usuarios)

for (i in 1:usuarios) {
  itemRecomendado <- predict(Rec.model, matrizAfinidade[i,], n=5)
  listaRecomendacoes[[i]] <- as((itemRecomendado), "list")
}

Após gerar a recomendação em:

for (i in 1:usuarios) {
  itemRecomendado <- predict(Rec.model, matrizAfinidade[i,], n=5)
  listaRecomendacoes[[i]] <- as((itemRecomendado), "list")
}

Preciso, por meio do resultado com o id do album, resgatar a linha com os dados correspondentes sobre o artista. Por exemplo: para o usuário 7687 foi gerada a recomendação "54" "85" "52" "245" "8035". Com o id do primeiro Album do exemplo (54), preciso recuperar as informações de toda a linha correspondente.

Pesquisei muitas formas de fazer isso, porém todas ensinam por meio de endereçamento, não com o dado em si.

A base de dados está neste link

1 Resposta 1

6

Use a função subset(seuDataFrame, seuDataFrame$colunaID == valorID), ele vai retornar a linha correspondente ao ID que você quer.

1
  • 1
    Obrigado, sanou minha dúvida. Commented 11/11/2019 às 12:12

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 .