提取列以分離數據幀

Question

我需要做類似於this的工作，但略有不同。

我有一個33欄的數據框。我需要有一系列具有第一列和以下各列之一的數據框。

我該怎麼做？

UPDATE

獲取靈感在上面鏈接問題的答案之一，我試圖做到以下幾點：

for (i in 2:ncol(data)) 
{temp <- data.frame(data$col1, data[,i]) 
colnames(temp) <- colnames(data)[i] 
assign(colnames(data)[i], temp)  
rm(temp) 
} 

它的工作原理，但兩列的標籤混合起來，即第一列獲得標籤，但不是第二個。

Answer 1

你可以把它們放在一個列表：

mylist <- list() 

for(i in 1:32){ 
    mylist[[i]] <- df[,c(1, i+1)] 
    names(mylist)[i] <- colnames(df)[i+1] 
} 

這將創建32個dataframes，每個第一列清單，並連續一個其他的，從第二。

Answer 2

或者，你可以用一個功能做到這一點，如：

makedf <- function(df, i) { 
    df %>% 
    select(c(1,i)) %>% 
    return() 
} 

Answer 3

完成。

for (i in 2:ncol(data)) 
 
{temp <- data.frame(data[,1], data[,i]) 
 
colnames(temp) <- c("col1", colnames(data)[i]) 
 
assign(colnames(data)[i], temp) 
 
rm(temp) 
 
}