Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/facebook/9.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 同义词的多个列表(共2个)_R_Text Mining_Tm - Fatal编程技术网

R 同义词的多个列表(共2个)

R 同义词的多个列表(共2个),r,text-mining,tm,R,Text Mining,Tm,我想从csv文件中读取同义词,其中第一个单词是“main”单词,同一记录中的其他单词是同义词 现在我基本上想创建一个列表,就像在R中一样 **synonyms <- list( list(word="ss", syns=c("yy","yyss")), list(word="ser", syns=c("sert","sertyy","serty")) )** 它本质上是一个“单词”和“语法”的列表。 从csv文件中读取单词和同义词时,如何创建类似的列表 任何指示都会有帮助!!谢

我想从csv文件中读取同义词,其中第一个单词是“main”单词,同一记录中的其他单词是同义词

现在我基本上想创建一个列表,就像在R中一样

**synonyms <- list(
  list(word="ss", syns=c("yy","yyss")),
  list(word="ser", syns=c("sert","sertyy","serty"))
)**
它本质上是一个“单词”和“语法”的列表。 从csv文件中读取单词和同义词时,如何创建类似的列表


任何指示都会有帮助!!谢谢

此过程将返回您想要的内容

# read in data using readLines
myStuff <- readLines(textConnection(temp))
现在,将列表中每个向量的第一个元素与剩余元素分开

result <- lapply(myList, function(x) list(word=x[1], synonyms=x[-1]))
数据

temp <- 
"ss yy yyss
ser sert sertyy serty
at ate ater ates
late lated lates latee"

temp我会查看
readLines
。这将返回一个向量,其中每个元素都是csv的一行。然后,您可以使用
strsplit
进行解析,以获得向量列表,其中每个向量的第一个元素是您的单词,其余元素是同义词。我可以这样做,但如何将向量的第一个元素转换为列表的第一个元素(名为$word)接下来的单词作为列表的第二个元素,以char向量的形式出现(命名为$syns),这里是一个可复制的示例。今后,请提供一个示例,以供使用。数据的图像是不够的。
result <- lapply(myList, function(x) list(word=x[1], synonyms=x[-1]))
result
[[1]]
[[1]]$word
[1] "ss"

[[1]]$synonyms
[1] "yy"   "yyss"


[[2]]
[[2]]$word
[1] "ser"

[[2]]$synonyms
[1] "sert"   "sertyy" "serty" 


[[3]]
[[3]]$word
[1] "at"

[[3]]$synonyms
[1] "ate"  "ater" "ates"


[[4]]
[[4]]$word
[1] "late"

[[4]]$synonyms
[1] "lated" "lates" "latee"
temp <- 
"ss yy yyss
ser sert sertyy serty
at ate ater ates
late lated lates latee"