将数据框中的列表转换为线条

Convert a list in a dataframe to a lines

我在 R 中有一个数据框 (test)。其中一列包含此列表结构中的坐标:

> dput(test$coordinates)
list(structure(list(x = c(-1.294832, -1.294883, -1.294262, 
-1.249478), y = c(54.61024, 54.61008, 54.610016, 54.610006
)), .Names = c("x", "y"), row.names = c(NA, -284L), class = c("tbl_df", 
"tbl", "data.frame")))

为清楚起见,我减少了坐标数量。

最终我希望将数据帧转换为空间线数据帧,但为此我需要线形式的 test$coordinates。但是,我收到以下错误

> lines(test$coordinates)
Error in xy.coords(x, y) : 
  'x' is a list, but does not have components 'x' and 'y'

我曾尝试将 test$coordinates 转换为其他形式,但通常会导致一些错误。如何将此列表转换为一行?

额外信息这是

的后续问题

根据要求更新dput(head(test))

> dput(head(test))
structure(list(rid = 1, start_id = 1L, start_code = "E02002536", 
    end_id = 106L, end_code = "E02006909", strategy = "fastest", 
    distance = 12655L, time_seconds = 2921L, calories = 211L, 
    document.id = 1L, array.index = 1L, start = "Geranium Close", 
    finish = "Hylton Road", startBearing = 0, startSpeed = 0, 
    start_longitude = -1.294832, start_latitude = 54.610241, 
    finish_longitude = -1.249478, finish_latitude = 54.680691, 
    crow_fly_distance = 8362, event = "depart", whence = 1473171787, 
    speed = 20, itinerary = 419956, clientRouteId = 0, plan = "fastest", 
    note = "", length = 12655, time = 2921, busynance = 42172, 
    quietness = 30, signalledJunctions = 3, signalledCrossings = 2, 
    west = -1.300074, south = 54.610006, east = -1.232447, north = 54.683814, 
    name = "Geranium Close to Hylton Road", walk = 0, leaving = "2016-09-06 15:23:07", 
    arriving = "2016-09-06 16:11:48", grammesCO2saved = 2359, 
    calories2 = 211, type = "route", coordinates = list(structure(list(
        x = c(-1.294832, -1.294883, -1.294262, -1.294141, -1.29371, 
        -1.293726, -1.293742, -1.29351, -1.293368, -1.292816, 
        -1.248019, -1.249478), y = c(54.61024, 54.61008, 54.610016, 
        54.610006, 54.610038, 54.610142, 54.610247, 54.610262, 
        54.681238, 54.680975, 54.680601, 54.680404
        )), .Names = c("x", "y"), row.names = c(NA, -284L), class = c("tbl_df", 
    "tbl", "data.frame")))), .Names = c("rid", "start_id", "start_code", 
"end_id", "end_code", "strategy", "distance", "time_seconds", 
"calories", "document.id", "array.index", "start", "finish", 
"startBearing", "startSpeed", "start_longitude", "start_latitude", 
"finish_longitude", "finish_latitude", "crow_fly_distance", "event", 
"whence", "speed", "itinerary", "clientRouteId", "plan", "note", 
"length", "time", "busynance", "quietness", "signalledJunctions", 
"signalledCrossings", "west", "south", "east", "north", "name", 
"walk", "leaving", "arriving", "grammesCO2saved", "calories2", 
"type", "coordinates"), row.names = c(NA, -1L), class = c("tbl_df", 
"tbl", "data.frame"))

lines 是绘图函数。我假设你想要 sp::SpatialLines。有关如何构造此类对象的信息,请参阅 ?"SpatialLines-class"

如果您没有 "corrupt" data.frame(请参阅此 post 的底部)。

library(sp)
coords <- as.data.frame(xy$coordinates[[1]])[1:12, ]

out <- SpatialLines(list(Lines(list(Line(coords)), ID = 1)))

An object of class "SpatialLines"
Slot "lines":
[[1]]
An object of class "Lines"
Slot "Lines":
[[1]]
An object of class "Line"
Slot "coords":
           x        y
1  -1.294832 54.61024
2  -1.294883 54.61008
3  -1.294262 54.61002
4  -1.294141 54.61001
5  -1.293710 54.61004
6  -1.293726 54.61014
7  -1.293742 54.61025
8  -1.293510 54.61026
9  -1.293368 54.68124
10 -1.292816 54.68097
11 -1.248019 54.68060
12 -1.249478 54.68040



Slot "ID":
[1] "1"



Slot "bbox":
        min       max
x -1.294883 -1.248019
y 54.610006 54.681238

Slot "proj4string":
CRS arguments: NA 

要向该对象添加数据,您应该使用

SpatialLinesDataFrame(out, data = yourdata)

但请参阅 this example 了解更多信息。

当我试图将您的坐标强制转换为 data.frame 时出现警告。希望您的数据集不是这种情况。

> as.data.frame(xy$coordinates[[1]])
            x        y
1   -1.294832 54.61024
2   -1.294883 54.61008
3   -1.294262 54.61002
...
281      <NA>     <NA>
282      <NA>     <NA>
283      <NA>     <NA>
284      <NA>     <NA>

Warning message:
In format.data.frame(x, digits = digits, na.encode = FALSE) :
  corrupt data frame: columns will be truncated or padded with NAs