分割R

Question

の文字列ベクトルI以下のベクトルを有する：

tmp3 <- c("1500 2", "1500 1", "1510 2", "1510 1", "1520 2", "1520 1", "1530 2", 
"1530 1", "1540 2", "1540 1") 

私はそれを読み取ることになるので、ちょうど、このベクターの原子の各々の2番目の数を維持したい：

c(2,1,2,1,2,1,2,1,2,1) 

Answer 1

は、おそらくより良い方法はありますが、ここでstrsplit()を持つ2つのアプローチです：

as.numeric(data.frame(strsplit(tmp3, " "))[2,]) 
as.numeric(lapply(strsplit(tmp3," "), function(x) x[2])) 

as.numerは、文字を使用できるのであれば、ic（）は必要ないかもしれません...

Answer 2

substr(x = tmp3, start = 6, stop = 6) 

文字列が常に同じ長さであれば、このトリックを行う必要があります。

（そして、もちろん、あなたが引数名を指定する必要はありません - あまりにも、正常に動作しますsubstr(tmp3, 6, 6)）

Answer 3

一つはtextConnectionにread.tableを使用することもできます。その後、

X <- read.table(textConnection(tmp3)) 

> str(X) 
'data.frame': 10 obs. of 2 variables: 
$ V1: int 1500 1500 1510 1510 1520 1520 1530 1530 1540 1540 
$ V2: int 2 1 2 1 2 1 2 1 2 1 

を

だから、X$V2が必要です。

Answer 4

これそれを行う必要があります：あなたが数値ベクトルが必要な場合は、

library(plyr) 
ldply(strsplit(tmp3, split = " "))[[2]] 

私はこの

>  res <- sapply(strsplit(tmp3, " "), "[[", 2) 

の場合を行うための最もエレガントな方法だと思う何

as.numeric(ldply(strsplit(tmp3, split = " "))[[2]]) 

Answer 5

を使用あなたはそれを整数にする必要があります

>  storage.mode(res) <- "integer" 

Answer 6

2列に1列を分割する簡単な方法data.table

require(data.table) 
data_ex = data.table(a = paste(sample(1:3, size=10, replace=TRUE),"-separate", sep="")) 
data_ex[, number:= unlist(strsplit(x=a, split="-"))[[1]], by=a] 
data_ex[, word:= unlist(strsplit(x=a, split="-"))[[2]], by=a ] 

Answer 7

を経由してそれはあなたの実際のデータは、あなたが与えてくれた例のデータと一致するか密接に少し依存します。私あなたがちょうどあなたがgsubを使用することができ、スペースの後にすべてを取得しようとしている：

gsub(".+\\s+", "", tmp3) 
[1] "2" "1" "2" "1" "2" "1" "2" "1" "2" "1" 

あなたが「宇宙の後にすべてを取る」よりも複雑なルールを実装しようとしている場合は、あなたが必要となりますより複雑な規則的な表現。

Answer 8

もう1つのオプションはscan()です。 2番目の値を取得するには、論理サブセットを使用できます。

scan(text = tmp3)[c(FALSE, TRUE)] 
# [1] 2 1 2 1 2 1 2 1 2 1