子集的數據幀由特定的列可變數目R

Question

這一個已被竊聽我幾天，現在，我還沒有對堆棧交換任何運氣呢。實質上，我有兩個表，一個表定義從第二個表中選擇哪些列（按列編號）。我最初的計劃是串起來的列並傳遞到子選擇語句，但是當我定義字符串作爲as.character它不開心，即：

# Data Sets, Variable_Selection: Table of Columns to Select from Variable_Table 

VARIABLE_SELECTION <- data.frame(Set.1 = c(3,1,1,1,1), Set.2 = c(0,3,2,2,2), Set.3 = c(0,0,3,4,3), 
           Set.4 = c(0,0,0,5,4), Set.5 = c(0,0,0,0,5)) 

VARIABLE_TABLE <- data.frame(Var.1 = runif(100,0,10), Var.2 = runif(100,-100,100), Var.3 = runif(100,0,1), 
          Var.4 = runif(100,-1000,1000), Var.5 = runif(100,-1,1), Var.6 = runif(100,-10,10)) 

# Sting rows into character string of columns to select 

VARIABLE_STRING <- apply(VARIABLE_SELECTION,1,paste,sep = ",",collapse = " ") 
VARIABLE_STRING <- gsub(" ",",",VARIABLE_STRING) 
VARIABLE_STRING <- data.frame(VAR_STRING = gsub(",0","",VARIABLE_STRING)) 

# Will actually be part of lapply function but, one line selection for demonstration: 

VARIABLE_SINGLE_SET <- as.character(VARIABLE_STRING[4,]) 

# Subset table for selected columns 

VARIABLE_TABLE_SUB_SELECT <- VARIABLE_TABLE[,c(VARIABLE_SINGLE_SET)] 

# Error Returned: 
# Error in `[.data.frame`(VARIABLE_TABLE, , c(VARIABLE_SINGLE_SET)) : 
# undefined columns selected 

我知道文本格式的問題，但我找不到解決方法，有什麼建議？

Answer 1

你應該避免列和過程的一些子設置的變量名，或至少讓你的指數整數列表（不需要強制爲一個字符串）

首先要保持同樣的想法，這更正你的代碼。 Basciaclly我強制你的變量向量：

VARIABLE_TABLE[,as.numeric(unlist(strsplit(
     VARIABLE_SINGLE_SET,',')))] 

Answer 2

這是否給出了預期的結果？

lapply(VARIABLE_SELECTION, function(x) VARIABLE_TABLE[ , x[x != 0], drop = FALSE]) 

產生一個列表，其中每個元件的一個子集「VARIABLE_TABLE」由「VARIABLE_SELECTION」（使用「VARIABLE_TABLE」與較少的行）給出。

# $Set.1 
#  Var.3 Var.1 Var.1.1 Var.1.2 Var.1.3 
# 1 0.09536403 5.593292 5.593292 5.593292 5.593292 
# 2 0.09086404 6.339074 6.339074 6.339074 6.339074 
# 
# $Set.2 
#  Var.3 Var.2 Var.2.1 Var.2.2 
# 1 0.09536403 65.81870 65.81870 65.81870 
# 2 0.09086404 66.79157 66.79157 66.79157 
# 
# $Set.3 
#  Var.3  Var.4 Var.3.1 
# 1 0.09536403 -674.6672 0.09536403 
# 2 0.09086404 -576.7986 0.09086404 
# 
# $Set.4 
#  Var.5  Var.4 
# 1 0.5155411 -674.6672 
# 2 -0.9593219 -576.7986 
# 
# $Set.5 
#  Var.5 
# 1 0.5155411 
# 2 -0.9593219