Try:
If dat is the dataset.
library(stringr)
res <- str_extract(dat$Gene.Symbol, perl('[[:alnum:]]+(?= \\/)'))
res[!is.na(res)]
#[1] "CDH23"
A.K.
On Thursday, July 31, 2014 9:54 PM, Stephen HK Wong <hon...@stanford.edu> wrote:
Dear All,
I appreciate if you can help me out this. I have a data frame contains many
thousand of rows, with some rows that has /// symbol, as shown in in row 2, I
want to extract word before ///, such as in this case, CDH23. Many thanks.
Probe.Set.ID Gene.Symbol
1 1552301_a_at CORO6
2 1552436_a_at CDH23 /// LOC100653137
3 1552477_a_at IRF6
4 1552685_a_at GRHL1
5 1552742_at KCNH8
6 1552752_a_at CADM2
7 1552799_at TSNARE1
8 1552897_a_at KCNG3
9 1552902_a_at FOXP2
10 1552903_at B4GALNT2
structure(list(Probe.Set.ID = c("1552301_a_at", "1552436_a_at",
"1552477_a_at", "1552685_a_at", "1552742_at", "1552752_a_at",
"1552799_at", "1552897_a_at", "1552902_a_at", "1552903_at"),
Gene.Symbol = c("CORO6", "CDH23 /// LOC100653137", "IRF6",
"GRHL1", "KCNH8", "CADM2", "TSNARE1", "KCNG3", "FOXP2", "B4GALNT2"
)), .Names = c("Probe.Set.ID", "Gene.Symbol"), row.names = c(NA,
10L), class = "data.frame")
Stephen HK Wong
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
