Estrazione caratteri da stringa

Question

Come estrarre tutti i caratteri fino a un carattere specificato? Ad esempio, vorrei estrarre tutto prima del "." (Punto):

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

Vorrei tornare:

asdasd segssddfge se 

ho provato:

substr(a,1,".") 

ma non sembra funzionare.

qualche idea?

Answer 1

Ecco un approccio molto semplice:

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

E un altro:

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

Answer 2

Utilizzando sub:

# 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) 

Utilizzando subtr e gregexpr (supponendo che c'è solo 1 . e c'è un partita definitiva in tutti gli stri ng all'interno del vettore).

# 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 3

Ecco un tentativo utilizzando gsub

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