Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/79.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 合并数据集时添加数据集的ID_R - Fatal编程技术网

R 合并数据集时添加数据集的ID

R 合并数据集时添加数据集的ID,r,R,我正在导入和合并文件(XML格式的gps和健身数据),以便进一步分析: files <- dir(pattern = "\\.tcx") ldf <- lapply(files, function(x) plyr::ldply( getNodeSet(xmlParse(x), "//ns:Trackpoint", "ns"), as.data.frame(xmlToList))) mydf <- plyr::

我正在导入和合并文件(XML格式的gps和健身数据),以便进一步分析:

files <- dir(pattern = "\\.tcx")
ldf   <- lapply(files, 
      function(x) plyr::ldply(
            getNodeSet(xmlParse(x), "//ns:Trackpoint", "ns"), 
            as.data.frame(xmlToList)))
mydf  <- plyr::rbind.fill(mydf)
setNames(mydf, c('time', 'lat', 'long', 'alt', 'heartrate'))

files不是完整的答案,而是一个起点

对于数据帧,可以通过以下方式添加id列:

data <- data.frame(x=rnorm(100), y=rnorm(100))

data$ID <- "id"

data不是一个完整的答案,而是一个起点

对于数据帧,可以通过以下方式添加id列:

data <- data.frame(x=rnorm(100), y=rnorm(100))

data$ID <- "id"

data假设ID是包含ID的向量(这里是您的文件名),您可以执行以下操作:

  mydf[,'ID'] <- ID

mydf[,'ID']假设ID是包含ID的向量(这里是您的文件名),您可以执行以下操作:

  mydf[,'ID'] <- ID

mydf[,'ID']如果没有可复制的示例,很难给出解决方案,也无法确定所需的输出。一个想法是改变这一行:

    as.data.frame(xmlToList)
例如:

    function(y){data.frame(ID=x,as.data.frame(xmlToList(y)))})

这将在每个data.frame的名称文件列中添加和ID。

如果没有可复制的示例,很难给出解决方案,也无法确定所需的输出。一个想法是改变这一行:

    as.data.frame(xmlToList)
例如:

    function(y){data.frame(ID=x,as.data.frame(xmlToList(y)))})
这将为每个data.frame向名为file的列添加和ID