I 'have find some thing... I don't realy know if it work because I would like to use ggplot after and it doesn't work well, but whit
jointure<-over(word,spdfxy) #over from sp library
word@data<-cbind(word@data,jointure)
You have all variable from point in the spatialDataFrame !!