Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/64.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 为什么';t粘贴与空格分隔符的工作预期如何?_R_List_Paste_Part Of Speech - Fatal编程技术网

R 为什么';t粘贴与空格分隔符的工作预期如何?

R 为什么';t粘贴与空格分隔符的工作预期如何?,r,list,paste,part-of-speech,R,List,Paste,Part Of Speech,我需要从POS的向量列表中造句。所以我使用paste和sep='一起使用,但这似乎对我的结果没有影响。为什么? listPOS <- list(c("/NN", "/PDAT", "/VVFIN", "/VVPP", "./$."), c("/PPER", "/VVFIN", "/APPR", "./$.")) # See the arrow V vecPOS <

我需要从POS的向量列表中造句。所以我使用
paste
sep='
一起使用,但这似乎对我的结果没有影响。为什么?

listPOS <- list(c("/NN", "/PDAT", "/VVFIN", "/VVPP", "./$."), 
                c("/PPER",  "/VVFIN", "/APPR", "./$."))

# See the arrow                                           V
vecPOS <- unlist(lapply(listPOS, function(x) paste(x,sep=" ",collapse="")))

# Need vector like:
vecPOS
[1] "/NN /PDAT /VVFIN /VVPP ./$." "/PPER /VVFIN /APPR ./$."

# Get instead an vector like:
vecPOS
[1] "/NN/PDAT/VVFIN/VVPP./$." "/PPER/VVFIN/APPR./$." 
listPOS您需要
collapse=“”
而不是
sep=“”

sapply(listPOS, function(x) paste(x, collapse = " "))
# [1] "/NN /PDAT /VVFIN /VVPP ./$." "/PPER /VVFIN /APPR ./$."
您需要
collapse=“”
而不是
sep=“”

sapply(listPOS, function(x) paste(x, collapse = " "))
# [1] "/NN /PDAT /VVFIN /VVPP ./$." "/PPER /VVFIN /APPR ./$."
unlist(lappy(listPOS,函数(x)粘贴(x,collapse=”“))unlist(lappy(listPOS,函数(x)粘贴(x,collapse=”“))