转换术语列表作为r中网络图的节点

Question

我想为短文构建术语图，

getwd()
d1<-"C:/Users/PGLAB/Documents/abc.txt"
d<-readLines(d1)
> d
    [1] "april paris lyrics"               "vacation april paris"            

    [3] "book disneyland hotel california" "watch harrypotter"

标记文本

dd<-as.list(tokenize_words(d))
>dd
   [[1]]
   [1] "april"  "paris"  "lyrics"

   [[2]]
   [1] "vacation" "april"    "paris"   

   [[3]]
   [1] "book"       "disneyland" "hotel"      "california"

   [[4]]
   [1] "watch"       "harrypotter"

dds<-as.list(dd[[1]])
   [[1]]
   [1] "april"

   [[2]]
   [1] "paris"

   [[3]]
   [1] "lyrics"

现在我希望将每个术语（＆＃34; 4月＆＃34;，＆＃34; paris＆＃34;，＃34;歌词＆＃34;）作为所有节点的节点和边缘。 我尝试使用TermDocumentMatrix和邻接矩阵，但它没有正常工作，欢迎提出建议