Имя столбца R в объекте заменяется на имя объекта

Question

Ниже приведен код, который я использую для чтения XML-файла и создания фрейма данных из атрибутов в XML-файле. Тем не менее, я небольшой вопрос с кодом. Here - образец данных.

Когда я конвертировать первый список с именем attribact в dataframe имени k1, столбец с именем x в списке изменяется на k1. То же самое происходит с последней строкой кода data1 <- cbind(k1,k2). Здесь имя столбца k1 (с предыдущего шага) изменено на data1 Другими словами, одно из имен столбцов в списке заменяется именем объекта, которому назначается список.

plans <- xmlParse(file1) 
idNodes <- getNodeSet(plans, "//person[@id]") 
ids <- lapply(idNodes, function(x) xmlAttrs(x)['id']) 
attribact <- vector("list", length(ids)*14) 
k <- 1 
for (i in 1:length(ids)) 
{ 
    act <- xpathApply(idNodes[[i]], path = paste("//person[@id=", as.numeric(ids[[i]]),"]//plan[@selected='yes']//act|leg", sep=""), xmlAttrs) 
    for (j in 1:length(act)) 
    { 
    attribact[[k]] <- c(act[[j]],ids[[i]]) 
    k <- k+1  
    } 
} 
attribact <- attribact[attribact!='NULL'] 
k1 <- t(as.data.frame(attribact)) 
data1 <- k1 

Answer 1

Я думаю, что есть лучшие способы сделать это, но, чтобы дать вам быстрый ответ, который должен работать повторно использовать код, Жюст изменить конец

Ваш код

library(XML) 
plans <- xmlParse(file1) 
idNodes <- getNodeSet(plans, "//person[@id]") 
ids <- lapply(idNodes, function(x) xmlAttrs(x)['id']) 
attribact <- vector("list", length(ids)*14) 
k <- 1 
for (i in 1:length(ids)) 
{ 
    act <- xpathApply(idNodes[[i]], path = paste("//person[@id=", as.numeric(ids[[i]]),"]//plan[@selected='yes']//act|leg", sep=""), xmlAttrs) 
    for (j in 1:length(act)) 
    { 
    attribact[[k]] <- c(act[[j]],ids[[i]]) 
    k <- k+1  
    } 
} 
attribact <- attribact[attribact!='NULL'] 

Затем сделайте

data <- t(do.call(cbind, attribact)) 

Это то, что вы хотите?

head(data) 
#>  type link x    y    start_time end_time 
#> [1,] "home" "21258" "334867.243653" "3126570.70778" "03:00:00" "15:07:00" 
#> [2,] "shop" "13904" "332634.86999" "3127078.96383" "15:12:00" "16:21:00" 
#> [3,] "shop" "14129" "331666.364904" "3129306.48785" "16:25:00" "17:37:00" 
#> [4,] "home" "21258" "334867.243653" "3126570.70778" "17:45:00" "26:59:00" 
#> [5,] "home" "21256" "334598.361546" "3126269.05167" "03:00:00" "07:56:00" 
#> [6,] "work" "14057" "335957.065395" "3128105.16619" "08:04:00" "10:28:00" 
#>  id   
#> [1,] "10000061" 
#> [2,] "10000061" 
#> [3,] "10000061" 
#> [4,] "10000061" 
#> [5,] "10000302" 
#> [6,] "10000302"