Skip to main content
adicionou 198 caracteres ao conteúdo; tags editadas
Fonte Link
Marcus Nunes
  • 19mil
  • 9
  • 32
  • 59

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(tidyverse)
library(data.table)
library(recommenderlab)

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

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

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))

listaRecomendacoes <- list(length(usuarios))

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

Nesse trecho o programa gera a recomendação de 5 itens para os usuários.

Entretanto, quando tento visualizar a recomendação através do comando View(listaRecomendacoes), o sistema apresenta apenas os itens recomendados e onde deveria ficar a informação do usuário para o qual o sistema recomendou, fica apenas a palavra "character"., como é possível ver na figura abaixo:

Espero que tenha falado da maneira correta rsrsrsrs.inserir a descrição da imagem aqui

Link com o print do problema eO arquivo de dados dos usuários: que estou usando está (https://drive.google.com/drive/folders/18CvNXblNPcrfvaD9O9I8BoPnmsreRFsQ?usp=sharingneste link).

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.

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

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

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))

listaRecomendacoes <- list(length(usuarios))

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

Nesse trecho o programa gera a recomendação de 5 itens para os usuários.

Entretanto, quando tento visualizar a recomendação, o sistema apresenta apenas os itens recomendados e onde deveria ficar a informação do usuário para o qual o sistema recomendou, fica apenas a palavra "character".

Espero que tenha falado da maneira correta rsrsrsrs.

Link com o print do problema e arquivo de dados dos usuários: (https://drive.google.com/drive/folders/18CvNXblNPcrfvaD9O9I8BoPnmsreRFsQ?usp=sharing)

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(tidyverse)
library(data.table)
library(recommenderlab)

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

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

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))

listaRecomendacoes <- list(length(usuarios))

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

Nesse trecho o programa gera a recomendação de 5 itens para os usuários.

Entretanto, quando tento visualizar a recomendação através do comando View(listaRecomendacoes), o sistema apresenta apenas os itens recomendados e onde deveria ficar a informação do usuário para o qual o sistema recomendou, fica apenas a palavra "character", como é possível ver na figura abaixo:

inserir a descrição da imagem aqui

O arquivo de dados dos usuários que estou usando está neste link.

Fonte Link

Problema com Sistema de Recomendação em R

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.

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

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

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))

listaRecomendacoes <- list(length(usuarios))

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

Nesse trecho o programa gera a recomendação de 5 itens para os usuários.

Entretanto, quando tento visualizar a recomendação, o sistema apresenta apenas os itens recomendados e onde deveria ficar a informação do usuário para o qual o sistema recomendou, fica apenas a palavra "character".

Espero que tenha falado da maneira correta rsrsrsrs.

Link com o print do problema e arquivo de dados dos usuários: (https://drive.google.com/drive/folders/18CvNXblNPcrfvaD9O9I8BoPnmsreRFsQ?usp=sharing)