爲每列創建一個向量，同時保留第一列

Question

我想爲每個特徵列（在下面的示例中，列a到t）創建一個向量，其中對於每個向量，第一列和特徵列將是遏制。以下僅是一個示例數據框。實際數據較大。

string <- randomStrings(n=1000, len = 5, digits = T, upperalpha = T, 
        loweralpha = T, unique = T, check = T) 
df <- data.frame(replicate(21,sample(-100:150,80,rep = T))) 
df[,1] <- string[1:80] 
colnames(df)[-1] <- letters[1:20] 
names(df)[1] <- paste("ID") 

所需的腳本前三特徵列如下：

id_a <- df[,c(1,2)] 
id_b <- df[,c(1,3)] 
id_c <- df[,c(1,4)] 

如何我應該這樣做在一個運行的所有特徵列？

Answer 1

這條線將做到這一點：

for (i in 2:ncol(df)) assign(paste0("id_", names(df)[i]), df[ , c(1, i)])