R语言实战实现基于用户的简单的推荐系统(数量较少)
来源:互联网 发布:linux gtk 图形化编程 编辑:程序博客网 时间:2024/06/07 23:17
a<-c(1,1,1,1,2,2,2,2,3,3,3,4,4,4,5,5,5,5,6,6,7,7)
b<-c(1,2,3,4,2,3,4,5,4,1,2,3,2,4,5,2,6,4,1,2,3,4)
da<-data.frame(a,b)
a<-c(1,1,2,2,3,3,3,3,3,4,4,5,5,5,6,6,7,7)
b<-c(2,5,7,2,6,4,7,1,8,6,3,3,4,1,2,4,4,9)
da2<-data.frame(a,b)
ax<-unique(da$a)
bx<-unique(da$b)
m<-matrix(0,max(ax),max(ax))
for(i in 1:max(ax))
{
for(j in 1:max(ax))
{
if(i==j)
{
m[i,j]=0
}else{
m[i,j]=length(intersect(t(da[which(da$a==i),][2]),t(da[which(da$a==j),][2])))
}
}
}
m
myfun<-function(da,k,da2,m)
{
uid<-unique(c)
pre=0
recall=0
for (mm in 1:max(uid))
{
aa<-which(rank(-m[mm,])<k)
bb<-unique(da[unlist(lapply(da$a,function(x){
length(intersect(x,aa))!=0
})),][2])
movie<-setdiff(t(bb),t((da[which(da$a==mm),][2])))
movie2<-t(da2[da2$a==mm,][2])
p<-length(intersect(movie,movie2))/length(movie)
r<-length(intersect(movie,movie2))/length(movie2)
pre<-pre+p
recall<-recall+r
if(mm==1)
{
user_top1<-which(rank(-m[mm,])<k)
movie_top2<-sort(movie[rank(movie)<k])
print(user_top1)
print(movie_top2)
}
}
preA<-pre/length(uid);
recallA<-recall/length(uid);
dataframe<-data.frame(c(k),preA,recallA)
return(dataframe)
}
df<-myfun(da,4,da2,m);
preA<-c()
recallA<-c()
k<-c()
daa<-data.frame(k,preA,recallA)
for(i in 3:7)
{
df<-myfun(da,i,da2,m);
daa<-rbind(daa,df)
}
daa
library(ggplot2)
qplot(preA,recallA,data=daa ,geom = c("point", "smooth"))
preA<-c()recallA<-c()k<-c()daa<-data.frame(k,preA,recallA)
- R语言实战实现基于用户的简单的推荐系统(数量较少)
- 《推荐系统实战》-基于用户的系统过滤推荐
- 【推荐系统实战】:C++实现基于用户的协同过滤(UserCollaborativeFilter)
- recommenderlab:构建基于R的推荐系统
- 基于用户协同过滤的推荐系统算法,python 实现
- Hadoop 2.6 使用MapReduce实现基于用户的推荐系统
- 基于SVD思想的简单推荐系统的实现
- 《推荐系统》基于用户和Item的协同过滤算法的分析与实现(Python)
- 《推荐系统》基于用户和Item的协同过滤算法的分析与实现(Python)
- <<推荐系统实战>>笔记1,基于用户的协同过滤算法
- 基于用户行为的推荐系统
- 《推荐系统》基于标签的用户推荐系统
- 《推荐系统》基于标签的用户推荐系统
- mapreduce实现推荐系统(UserCF-基于用户的协同过滤算法)
- 推荐系统实践----基于用户的协同过滤算法(python代码实现书中案例)
- 基于R语言的支持向量机(SVM)+k均值(K-means)简单实现
- 推荐系统(基于用户的协同过滤)入门总结
- 基于用户的deviantArt推荐系统(SVD因子分解)
- ggplot2作图详解:入门函数qplot
- R语言两种方式求指定日期所在月的天数
- MySQL深入(三)
- MapReduce的Shuffle过程介绍
- MapReduce计数器
- R语言实战实现基于用户的简单的推荐系统(数量较少)
- C++中的类继承之单继承&多继承&菱形继承
- yarn是什么?为什么会产生yarn,它解决了什么问题?以及yarn的执行流程
- HDFS入门
- HDFS shell命令
- Hive中order by,sort by,distribute by,cluster by的区别
- HIVE中的order by操作
- Java设计模式透析之 —— 适配器(Adapter)
- R语言绘制沈阳地铁线路图