벡터 벡터에서 벡터 얻기

Question

벡터의 벡터가 R 인 경우 각 외부 벡터에서 하나의 요소가 포함 된 벡터를 어떻게 선택합니까?

> data<-c("1,2","3,4","5,6") 
> data<-strsplit(data,",") 
> data 
[[1]] 
[1] "1" "2" 

[[2]] 
[1] "3" "4" 

[[3]] 
[1] "5" "6" 

가 어떻게이 포함 된 벡터 (1,3,5)과 아무것도받을 수 있나요 :이 데이터 주어진 예를 들어

?

감사합니다.

Answer 1

을이 포장 할 수 나는 이것이 당신이 처음에 데이터 세트를 얻는 방법 가정 strsplit 사용한다? 그렇다면 정규 표현식을 사용하면 약간 더 빨라질 수 있습니다. 예 :

data <- c("1,2","3,4","5,6") 

# Remove everything after ,: 
gsub(",.*","",data) 

# Select first number: 
regmatches(data,regexpr("\\d+",data)) 

Answer 2

한 가지 방법은 사용하는 것입니다 sapply :

> sapply(data, "[[", 1) 
[1] "1" "3" "5" 

Answer 3

또는이 :-) : read.table이 컬럼에 자사의 테스트를 적용하기 때문에

foo<- unlist(data) 
matrix(foo,nrow=length(data),byrow=TRUE)[,1] 

[1] "1" "3" "5" 

Answer 4

이것은 숫자 벡터를 반환합니다

를

> read.table(text=data, sep=",")$V1 
[1] 1 3 5 

ab의 이름이므로 벡터에 '데이터'라는 이름을 사용하는 것은 현명하지 않을 수 있습니다. ase 함수.

Answer 5

또 다른 해결책 :

이

unlist(data)[c(TRUE, rep(FALSE, length(data[[1]]) - 1))] 

[1] "1" "3" "5" 

Answer 6

당신은 당신의 목록이있는 경우 목록을

getElemsR <- function(dat, Index, Lev=2) { 
    if ((Lev <- (Lev - 1)) > 1) { 
    inds <- seq(length(dat[[1]])) 
    dat <- unlist(lapply(inds, function(i) getElemsR(dat, i, Lev)), recursive=F) 
    } 
    sapply(dat, "[[", Index, USE.NAMES=T, simplify=F) 
} 

# get the 2nd element of every 2nd-Level list 
getElemsR(myData, 3) # Lev=2 by default 

# get the 2nd element of every 3rd-Level list 
getElemsR(myData, 2, 3) 

# if needed as a vector: 
unlist(getElemsR(myData, 2, 3)) 

깊은 2 개 이상의-수준,

---

또는 경우에도 작동합니다 다음과 같은 재귀 함수를 사용할 수 있습니다 깊이가 2 단계 인 경우, @ 원주민이 지적한 것처럼 단순한 사pply를 사용할 수 있습니다. 당신은 예부터 함수에

getElems <- function (dat, Index) { 
    sapply(dat, "[[", Index) 
} 

# get the 2nd element of every 2nd-level list 
getElems(data1, 2) 

---

샘플 데이터

data1 <- lapply(1:3, paste0, c("A","B")) 
data2 <- lapply(4:6, paste0, c("A","B")) 
names(data1) <- names(data2) <- c("_sub1", "_sub2", "_sub3") 
myData <- list(Lev1A=data1, Lev1B=data2)