0

我是 R 和机器学习算法的新手,并尝试使用kaggle scikit 示例进行学习。

我有以下两个数据框:

> str(d.train)
'data.frame':   1000 obs. of  40 variables:
 $ V1 : num  0.299 -1.174 1.192 1.573 -0.613 ...

> str(d.trainLabels)
'data.frame':   1000 obs. of  1 variable:
 $ V1: int  1 0 0 1 0 1 0 1 1 0 ...

据我了解,大多数 R 工具都旨在与同一数据框中的类信息一起使用。出于这个原因,我试图将 trainLabels 作为最后一列添加到火车数据框中。

我尝试了以下代码:

# http://www.gm.fh-koeln.de/~konen/WPF-DM-Cup/DM-Template/ClassifyTemplate/utils_DMC.r
######################################################################################
# bind the column with name response.predict and contents vec as last column
# to data frame d
######################################################################################
bind_response <- function(d,response.predict,vec) 
{
    # drop column response.predict if there, do nothing if not there
    d <- d[,setdiff(names(d),response.predict)]
    # bind column response.predict as last column to data frame d
    d <- cbind(d, prediction=vec)
    names(d)[names(d)=="prediction"] <- response.predict

    return(d)
}

d.totalTrain <- bind_response(d.train, d.trainLabels, "1")

但我不确定结果是我想要的:

> str(d.totalTrain)
'data.frame':   1000 obs. of  41 variables:
...
 $ V40                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                : num  0.101 -1.818 2.987 1.883 0.408 ...
 $ c(1, 0, 0, 1, 0, 1, 0, 1, ...
4

1 回答 1

2

首先重命名它是否符合您的要求?

colnames(d.trainLabels) <- "V41"
cbind( d.train, d.trainLabels )
于 2013-10-06T13:17:25.593 回答