文字列からの文字の抽出

Question

どのように指定した文字まですべての文字を抽出しますか？与えられた例では、 "。"の前にすべてを抽出したいと思います。 （期間）：

asdasd segssddfge se 

は、私が試した：

substr(a,1,".") 

を動作していないよう

a<-c("asdasd.sss","segssddfge.sss","se.sss") 

私は戻って取得したいと思います。

subを使用して

sub(".sss", "", a, fixed = TRUE) 
# [1] "asdasd"  "segssddfge" "se" 
## OR sub("(.*)\\..*", "\\1", a) 
## And possibly other variations 

Answer 1

はここで非常に基本的なアプローチだ

# match a "." (escape with "\" to search for "." as a normal "." 
# means "any character") followed by 0 to any amount of characters 
# until the end of the string and replace with nothing ("") 
sub("\\..*$", "", a) 

（のみ1 .がありますと仮定しsubtrとgregexprを使用してありますすべてのストライトで明確なマッチベクター内のngs）。

ここ

# get the match position of a "." for every string in "a" (returns a list) 
# unlist it and get the substring of each from 1 to match.position - 1 
substr(a, 1, unlist(gregexpr("\\.", a)) - 1) 

Answer 2

：

sapply(strsplit(a, "\\."), `[[`, 1) 
# [1] "asdasd"  "segssddfge" "se" 

別：

Answer 3

一つだけがあるはずですので、gsub

gsub(pattern='(.*)[.](.*)','\\1', c("asdasd.sss","segssddfge.sss","se.sss")) 
[1] "asdasd"  "segssddfge" "se"