Podział w R przy użyciu warunku LUB ze stringami

Question

Mam ramkę danych z około 40 kolumnami, druga kolumna, dane [2] zawiera nazwę firmy, którą opisuje pozostałe dane wiersza. Jednak nazwy firm różnią się w zależności od roku (na końcu 2009 r. Dane za 2009 r., Nic na rok 2010).

Chciałbym móc podzbiór danych tak, że mogę pobrać w obu latach na raz. Oto przykład tego, co próbuję zrobić ...

subset(data, data[2] == "Company Name 09" | "Company Name", drop = T) 

Zasadniczo mam trudności z używaniem operatora OR w ramach funkcji podzbioru.

Jednak próbowałem inne alternatywy:

subset(data, data[[2]] == grep("Company Name", data[[2]])) 

Być może istnieje łatwiejszy sposób to zrobić przy użyciu funkcji ciąg?

Wszelkie myśli zostaną uznane.

Answer 1

Po pierwsze (jak Jonathan zrobił w swoim komentarzu), aby odwołać się do drugiej kolumny, należy użyć albo data[[2]] lub data[,2]. Ale jeśli używasz podzbioru, możesz użyć nazwy kolumny: subset(data, CompanyName == ...).

i dla was pytanie zrobię jedną:

subset(data, data[[2]] %in% c("Company Name 09", "Company Name"), drop = TRUE) 
subset(data, grepl("^Company Name", data[[2]]), drop = TRUE) 

W sekundę używam grepl (wprowadzona w wersji 2.9 R), która zwróci logiczną wektor z TRUE do meczu.

Answer 2

Kilka rzeczy:

1) Mock-up danych jest przydatny, bo nie wiem dokładnie, co masz do czynienia z. Podaj dane, jeśli to możliwe. Może źle zrozumiałem, co dalej?

2) Nie stosować [[2]] do indeksowania data.frame, myślę [ "colname"] jest o wiele jaśniejsze

3) Jeżeli jedyną różnicą jest wleczone '09' w nazwie, a następnie po prostu regexp, że spośród:

R> x1 <- c("foo 09", "bar", "bar 09", "foo") 
R> x2 <- gsub(" 09$", "", x1) 
[1] "foo" "bar" "bar" "foo" 
R> 

teraz powinieneś być w stanie wykonać podzbiór na przekształconej danych on-the-fly:

R> data <- data.frame(value=1:4, name=x1) 
R> subset(data, gsub(" 09$", "", name)=="foo") 
    value name 
1  1 foo 09 
4  4 foo 
R> 

mogłyby mieć również wymienić kolumnę nazwisko z regexp'ed va Lue.