生成包含R中成对余弦相似性值的列表

library(text2vec)  # 用于文本向量化和计算余弦相似性
library(Matrix)    # 用于创建稀疏矩阵

# 假设有一个包含文本数据的向量列表
texts <- c("文本1", "文本2", "文本3", "文本4")

# 创建一个文本向量化器
vectorizer <- vocab_vectorizer()

# 使用分词器将文本转换为词袋向量
it <- itoken(texts, tokenizer = word_tokenizer)

# 构建词汇表
vectorizer$fit_transform(it)

# 获取向量化后的文本矩阵
text_matrix <- create_dtm(it, vectorizer)

# 将文本矩阵转换为稀疏矩阵
sparse_matrix <- sparseMatrix(i = text_matrix$i, j = text_matrix$j, x = text_matrix$v)

# 计算余弦相似性
cosine_sim <- sim2(sparse_matrix, method = "cosine", norm = "l2")

# 将余弦相似性矩阵转换为列表
similarity_list <- as.list(as.data.frame(as.matrix(cosine_sim)))