R 中基于用户的推荐

User Based Recommendation in R

我正在尝试使用 recommenderlab 包在 R 中进行基于用户的推荐,但我一直从模型中得到 0(无)预测。

我的代码是:

library("recommenderlab")        
# Loading to pre-computed affinity data  
movie_data<-read.csv("D:/course/Colaborative filtering/data/UUCF Assignment Spreadsheet_user_row.csv")


movie_data[is.na(movie_data)] <- 0

rownames(movie_data) <- movie_data$X
movie_data$X <- NULL

# Convert it as a matrix
R<-as.matrix(movie_data)
# Convert R into realRatingMatrix data structure
#   realRatingMatrix is a recommenderlab sparse-matrix like data-structure
r <- as(R, "realRatingMatrix")
r

rec=Recommender(r[1:nrow(r)],method="UBCF", param=list(normalize = "Z-score",method="Cosine",nn=5, minRating=1))

recom <- predict(rec, r["1648"], n=5)
recom
as(recom, "list")

我总是像这样出去:

as(recom, "list")
$`1648`
character(0)

我正在使用来自此 link 的用户行数据: https://drive.google.com/file/d/0BxANCLmMqAyIQ0ZWSy1KNUI4RWc/view 在该数据列中,A 包含用户 ID,除此之外,所有都是每个电影名称的电影评级。

谢谢。

代码行movie_data[is.na(movie_data)] <- 0是错误的来源。对于 realRatingMatrix(与 binaryRatingMatrix 不同),用户 未评价 的电影预计为 NA 值,而不是零值。例如,以下代码给出了正确的预测:

library("recommenderlab")        
movie_data<-read.csv("UUCF Assignment Spreadsheet_user_row.csv")
rownames(movie_data) <- movie_data$X
movie_data$X <- NULL

R<-as.matrix(movie_data)
r <- as(R, "realRatingMatrix")    
rec=Recommender(r,method="UBCF", param=list(normalize = "Z-score",method="Cosine",nn=5, minRating=1))     
recom <- predict(rec, r["1648"], n=5)
as(recom, "list")
# [[1]]
# [1] "X13..Forrest.Gump..1994."    "X550..Fight.Club..1999."                                   
# [3] "X77..Memento..2000."         "X122..The.Lord.of.the.Rings..The.Return.of.the.King..2003."
# [5] "X1572..Die.Hard..With.a.Vengeance..1995."