Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/assembly/6.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-从strsplit返回单个元素_R_Strsplit - Fatal编程技术网

R-从strsplit返回单个元素

R-从strsplit返回单个元素,r,strsplit,R,Strsplit,我有一个字符向量,用“\ux”分隔。我想循环遍历每个字符串并将其拆分,然后使用单个值获取csv文件的特定行/列以进行一些计算。如何获取单个元素 tst <- c("Test1_Test2","Test3_Test4") splt <- strsplit(tst,"_") splt [[1]] [1] "Test1" "Test2" [[2]] [1] "Test3" "Test4" 因此基本上,strsplit将应用于tst对象的每个元素。它将是这样的: > strsp

我有一个字符向量,用“\ux”分隔。我想循环遍历每个字符串并将其拆分,然后使用单个值获取csv文件的特定行/列以进行一些计算。如何获取单个元素

tst <- c("Test1_Test2","Test3_Test4")

splt <- strsplit(tst,"_")
splt

[[1]]
[1] "Test1" "Test2"

[[2]]
[1] "Test3" "Test4"

因此基本上,
strsplit
将应用于
tst
对象的每个元素。它将是这样的:

> strsplit(tst, "_")
[[1]]
[1] "Test1" "Test2"

[[2]]
[1] "Test3" "Test4"
然后您可以使用
unlist

> unlist(strsplit(tst, "_"))
[1] "Test1" "Test2" "Test3" "Test4"
然后,您可以根据您想要实现的目标循环浏览每个单词:

for (elem in unlist(strsplit(tst, "_"))){
  print(elem)
}

> [1] "Test1"
> [1] "Test2"
> [1] "Test3"
> [1] "Test4"

谢谢这可能是比我做的更好的方法。
> unlist(strsplit(tst, "_"))
[1] "Test1" "Test2" "Test3" "Test4"
for (elem in unlist(strsplit(tst, "_"))){
  print(elem)
}

> [1] "Test1"
> [1] "Test2"
> [1] "Test3"
> [1] "Test4"