Dividi sulla prima virgola nella stringa

Question

Come posso dividere in modo efficiente la seguente stringa sulla prima virgola utilizzando la base?

x <- "I want to split here, though I don't want to split elsewhere, even here." 
strsplit(x, ???) 

Risultato desiderato (2 stringhe):

[[1]] 
[1] "I want to split here" "though I don't want to split elsewhere, even here." 

Grazie in anticipo.

EDIT: Non ho pensato di dirlo. Questo deve essere in grado di generalizzare ad una colonna, vettore di stringhe come questo, come in:

y <- c("Here's comma 1, and 2, see?", "Here's 2nd sting, like it, not a lot.") 

Il risultato può essere due colonne o una lunga vettore (che posso prendere ogni altro elemento) o un elenco di punture con ciascun indice ([[n]]) con due stringhe.

Ci scusiamo per la mancanza di chiarezza.

Answer 1

Ecco quello che probabilmente farei. Può sembrare un hacker, ma dal momento che i modelli sub() e strsplit() sono entrambi vettorizzati, funzionerà anche in modo fluido quando si passano più stringhe.

XX <- "SoMeThInGrIdIcUlOuS" 
strsplit(sub(",\\s*", XX, x), XX) 
# [[1]] 
# [1] "I want to split here"        
# [2] "though I don't want to split elsewhere, even here." 

Answer 2

library(stringr)

str_sub(x,end = min(str_locate(string=x, ',')-1))

questo otterrà il primo bit che si desidera. Cambia il start= e end= in str_sub per ottenere quello che vuoi.

Come ad esempio:

str_sub(x,start = min(str_locate(string=x, ',')+1))

e avvolgere in str_trim per sbarazzarsi dello spazio iniziale:

str_trim(str_sub(x,start = min(str_locate(string=x, ',')+1)))

Answer 3

Questo funziona, ma mi piace di Josh Obrien meglio:

y <- strsplit(x, ",") 
sapply(y, function(x) data.frame(x= x[1], 
    z=paste(x[-1], collapse=",")), simplify=F)) 

Ispirato dalla risposta di caccia.

Un certo numero di persone ha dato non di base si avvicina così ho dato mi piacerebbe aggiungere quello che di solito uso (anche se in questo caso avevo bisogno di una risposta di base):

y <- c("Here's comma 1, and 2, see?", "Here's 2nd sting, like it, not a lot.") 
library(reshape2) 
colsplit(y, ",", c("x","z")) 

Answer 4

Dal pacchetto stringr:

str_split_fixed(x, pattern = ', ', n = 2) 
#  [,1]     
# [1,] "I want to split here" 
#  [,2]             
# [1,] "though I don't want to split elsewhere, even here." 

(Questa è una matrice con una riga e due colonne.)

Answer 5

Ecco un'altra soluzione, con un'espressione regolare per catturare ciò che è prima e dopo la prima virgola

x <- "I want to split here, though I don't want to split elsewhere, even here." 
library(stringr) 
str_match(x, "^(.*?),\\s*(.*)")[,-1] 
# [1] "I want to split here"        
# [2] "though I don't want to split elsewhere, even here."