我正在尝试使用<form action="/OnlineShop/cart.html?selectedPhone=Phone1" method="post">
<div style="padding-right: 40px">
<input type="submit" value="Add to Cart"/>
</div>
</form>
dplyr
目标
temp_df<-data.frame(c(1,3),c(2,4))
colnames(temp_df)<-c("col1","col2")
row.names(temp_df)<-c("r1","r2")
temp_df
require(dplyr)
temp_df%>%split(colnames(temp_df))
答案 0 :(得分:0)
您可以使用base-R,因为您只是从数据框中提取列。使用'drop = FALSE'可确保保留行名称。我希望这是你想要的输出(一列数据帧列表)。
#create vector of columns
mycols <- colnames(temp_df)
names(mycols) <- mycols
#extract data
res <- lapply(mycols, function(x){temp_df[,x, drop=F]})
>res
$col1
col1
r1 1
r2 3
$col2
col2
r1 2
r2 4