데이터 프레임을 기반으로 데이터 프레임의 열 유지

Question

4000 값을 포함하는 df이라는 데이터 프레임이 있습니다. 나는 1000 열 단위로 list라는 데이터 프레임에 1000 열 숫자의 목록을 가지고 있습니다. 데이터 프레임의 list에있는 숫자로 행을 유지하고 나머지를 던져 넣을 수있는 방법은 무엇입니까? 난 이미 사용하여 시도 :

listv <- as.vector(list) 

을 다음

dfnew <- df[,listv] 

를 사용하지만 난 당신이 행과 부분 집합 열을 혼합하고 오류를

Error in .subset(x, j) : invalid subscript type 'list' 

Answer 1

를 얻을. 여기에 최소한의 예입니다 : 당신이 생각했던대로

df <- data.frame(matrix(1:21, ncol = 3)) 
df 
# X1 X2 X3 
# 1 1 8 15 
# 2 2 9 16 
# 3 3 10 17 
# 4 4 11 18 
# 5 5 12 19 
# 6 6 13 20 
# 7 7 14 21 
list <- data.frame(V1 = c(1, 4, 6)) 
list 
# V1 
# 1 1 
# 2 4 
# 3 6 
df[list[, 1], ] 
# X1 X2 X3 
# 1 1 8 15 
# 4 4 11 18 
# 6 6 13 20 
df[unlist(list), ] 
# X1 X2 X3 
# 1 1 8 15 
# 4 4 11 18 
# 6 6 13 20 

참고 또한 as.vector(list)는 벡터를 생성하지 않습니다. 여기에 unlist이 필요합니다 (마지막 예제에서 사용한대로).