Hi,
In this case, you may have to use:
?dat1[sapply(dat1,function(x) any(grepl("\\bC\\b",x))) &
sapply(dat1,function(x) any(grepl("Au5",x)))]
???? o066_010??? o066_022??? o066_029??? o066_034??? o066_068??? o066_072
1????? sample????? sample????? sample????? sample????? sample????? sample
2???????? Au5???????? Au5???????? Au5???????? Au5???????? Au5???????? Au5
3?????????? C?????????? C?????????? C?????????? C?????????? C?????????? C
4 14536204.77 13846871.69 13140449.17 14979396.48 11533763.33 12506876.82
???? o066_079??? o066_081??? o066_086
1????? sample????? sample????? sample
2???????? Au5???????? Au5???????? Au5
3?????????? C?????????? C?????????? C
4 11310021.96 10716085.25 9956435.681
## using all the combinations
indxNew <- read.table(text = unique(apply(dat1[2:3, grep("^o",
colnames(dat1))],
??? 2, paste, collapse = " ")), sep = "", header = FALSE,
stringsAsFactors = FALSE)
lapply(seq_len(nrow(indxNew)), function(i) {
??? indx1 <- which(sapply(dat1, function(x) any(grepl(indxNew[i, 1], x)))
& sapply(dat1,
??????? function(x) any(grepl(paste0("\\b", indxNew[i, 2],
"\\b"), x))))
??? dat1[indx1]
})
#You can add the other columns in the dataset as I showed in the previous email.
A.K.
On Wednesday, April 30, 2014 8:57 AM, "pascalbells at libero.it"
<pascalbells at libero.it> wrote:
I've tried this one and it works:
df[sapply(df, function(x) any(grepl("Au5", x)))]
but How to write also that I want "C" too?
regards,
james
>----Messaggio originale----
>Da: smartpink111 at yahoo.com
>Data: 30/04/2014 11.02
>A: "pascalbells at libero.it"<pascalbells at libero.it>
>Ogg: re: [R] dataframe
>
>Could you dput the dataset?
>Also,the expected result...
>
>----------
>Sent from my Nokia
>
>------Original message------
>From: pascalbells at libero.it <pascalbells at libero.it>
>To: <smartpink111 at yahoo.com>
>Date: Wednesday, April 30, 2014 9:40:06 AM GMT+0200
>Subject: R: Re: [R] dataframe
>
>thank you for your help but it doesn't work....
>
>James
>
>
>
>>----Messaggio originale----
>>Da: smartpink111 at yahoo.com
>>Data: 29/04/2014 17.59
>>A: "r-help at r-project.org"<r-help at r-project.org>
>>Cc: "pascalbells at libero.it"<pascalbells at libero.it>
>>Ogg: Re: [R] dataframe
>>
>>Hi,
>>
>>It is better to show example data using ?dput().
>>
>>dat <- structure(list(row.names = 1:4, XYZ = c("sample",
"sample2",
>>"sample3", "sample4"), `000_001` =
c("sample", "Au5", "C", "C"
>>), `000_002` = c("sample", "Au32", "C",
"Au4"), `000_003` = c("sample",
>>"Au5", "A", "AC")), .Names =
c("row.names", "XYZ", "000_001",
>>"000_002", "000_003"), class =
"data.frame", row.names = c(NA,
>>-4L))
>>
>>
>>dat[,intersect(grep("Au5", dat),
grep("\\bC\\b",dat)),drop=FALSE]
>>#? 000_001
>>#1? sample
>>#2???? Au5
>>#3?????? C
>>#4?????? C
>>
>>A.K.
>>
>>
>>
>>
>>On Tuesday, April 29, 2014 9:45 AM, "pascalbells at libero.it"
><pascalbells at libero.it> wrote:
>>Hello,
>>thank you for accepting me into the list.
>>
>>I have the following dataframe:
>>
>>?? row.names? X? ? ? ? ?? Y? ? ?? Z? ?? 000_001? 000_002? 000_003
>>1? ? ? ? ? ? ? ? ? ? sample? ? ? ? ? ? ? ? ? ?? sample? ? sample? ??
sample
>>2? ? ? ? ? ? ? ? ? ? sample2? ? ? ? ? ? ? ? ?? Au5? ? ? ?? Au32? ? ??
Au5
>>3? ? ? ? ? ? ? ? ? ? sample3? ? ? ? ? ? ? ? ?? C? ? ? ? ? ? ? C? ? ? ? ?
??
C>>4? ? ? ? ? ? ? ? ? ? ..........?
>>..
>>..
>n? ? ? ? ? ? ? ? ? ? ...........? ? ? ? ? ? ? ? ? ? ....? ? ? ? ? ? .......?
? ? ??
>............
>>
>>
>>I would like to select al the columns that have Au5 and C.
>>thank you in advance for your help,
>>james
>>
>>
>>??? [[alternative HTML version deleted]]
>>
>>______________________________________________
>>R-help at 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.
>>
>>
>
>
>
>