R 如何将向量列表转换为数据帧

我有一组数据，这是一个坐标向量列表，分为两组

geom                                                             group
list(list(c(43, 43, 40, 40, 43, 10, 13, 13, 10, 10), list(...     1 
list(c(95, 100, 100, 95, 95, -12, -12, -19, -19, -12)             2

我想将其转换为如下数据帧：

Longitude  Latitude  Group
 43         10       1
 43         13       1

等等

复制我的数据

structure(list(geom = structure(list(structure(list(list(structure(c(43, 
43, 40, 40, 43, 10, 13, 13, 10, 10), .Dim = c(5L, 2L))), list(
structure(c(23, 23, 20, 20, 23, 10, 13, 13, 10, 10), .Dim = c(5L, 
2L))), list(structure(c(25, 25, 38, 25, 10, 10.3, 10.3, 10
), .Dim = c(4L, 2L)))), class = c("XY", "MULTIPOLYGON", "sfg"
)), structure(list(structure(c(95, 100, 100, 95, 95, -12, -12, 
-19, -19, -12), .Dim = c(5L, 2L))), class = c("XY", "POLYGON", 
"sfg"))), n_empty = 0L, precision = 0, crs = structure(list(input = "EPSG:4326", 
wkt = "GEOGCS[\"WGS 84\",\n    DATUM[\"WGS_1984\",\n        SPHEROID[\"WGS 
84\",6378137,298.257223563,\n            AUTHORITY[\"EPSG\",\"7030\"]],\n        
AUTHORITY[\"EPSG\",\"6326\"]],\n    PRIMEM[\"Greenwich\",0,\n        
AUTHORITY[\"EPSG\",\"8901\"]],\n    UNIT[\"degree\",0.0174532925199433,\n        
AUTHORITY[\"EPSG\",\"9122\"]],\n    AUTHORITY[\"EPSG\",\"4326\"]]"), class = "crs"), class = 
c("sfc_GEOMETRY", 
"sfc"), bbox = structure(c(xmin = 20, ymin = -19, xmax = 100, 
ymax = 13), class = "bbox"), classes = c("MULTIPOLYGON", "POLYGON"
)), group = 1:2), row.names = 1:2, sf_column = "geom", agr = structure(c(group = 
NA_integer_), class = "factor", .Label = c("constant", 
"aggregate", "identity")), class = c("sf", "data.frame"))

数据分为两个以上组的示例，在这种情况下，数据分为三个组：

structure(list(geom = 
structure(list(structure(list(list(structure(c(43, 
43, 40, 40, 43, 10, 13, 13, 10, 10), .Dim = c(5L, 2L))), list(
structure(c(23, 23, 20, 20, 23, 10, 13, 13, 10, 10), .Dim = c(5L, 
2L))), list(structure(c(25, 25, 38, 25, 10, 10.3, 10.3, 10
), .Dim = c(4L, 2L)))), class = c("XY", "MULTIPOLYGON", "sfg"
)), structure(list(structure(c(60, 60, 80, 80, 60, 6, 5.7, 5.7, 
6, 6), .Dim = c(5L, 2L))), class = c("XY", "POLYGON", "sfg")), 
structure(list(structure(c(95, 100, 100, 95, 95, -12, -12, 
-19, -19, -12), .Dim = c(5L, 2L))), class = c("XY", "POLYGON", 
"sfg"))), n_empty = 0L, precision = 0, crs = structure(list(
input = "EPSG:4326", wkt = "GEOGCS[\"WGS 84\",\n    
DATUM[\"WGS_1984\",\n        SPHEROID[\"WGS 
84\",6378137,298.257223563,\n            
AUTHORITY[\"EPSG\",\"7030\"]],\n        
AUTHORITY[\"EPSG\",\"6326\"]],\n    PRIMEM[\"Greenwich\",0,\n        
AUTHORITY[\"EPSG\",\"8901\"]],\n    
UNIT[\"degree\",0.0174532925199433,\n        
AUTHORITY[\"EPSG\",\"9122\"]],\n    AUTHORITY[\"EPSG\",\"4326\"]]"), 
class = "crs"), class = c("sfc_GEOMETRY", 
"sfc"), bbox = structure(c(xmin = 20, ymin = -19, xmax = 100, 
ymax = 13), class = "bbox"), classes = c("MULTIPOLYGON", "POLYGON", 
"POLYGON")), group = 1:3), row.names = c(NA, 3L), sf_column = "geom", 
agr = structure(c(group = NA_integer_), class = "factor", .Label = 
c("constant", 
"aggregate", "identity")), class = c("sf", "data.frame"))

---

您可以尝试此

base R

解决方案，其中

List

是问题中包含的

dput（）

：

#Empty list
Mylist <- list()
#Loop
for(i in 1:dim(List)[1])
{
  Mylist[[i]] <- do.call(rbind,lapply(List$geom[[i]],data.frame))
  Mylist[[i]]$Group <- List$group[[i]]  
}
#Now bind all
DF <- do.call(rbind,Mylist)

名称是基于数据的标准名称，因此您可以根据需要重命名（

X1

和

X2

）

对于更多群体：

    X1    X2 Group
1   43  10.0     1
2   43  13.0     1
3   40  13.0     1
4   40  10.0     1
5   43  10.0     1
6   23  10.0     1
7   23  13.0     1
8   20  13.0     1
9   20  10.0     1
10  23  10.0     1
11  25  10.0     1
12  25  10.3     1
13  38  10.3     1
14  25  10.0     1
15  60   6.0     2
16  60   5.7     2
17  80   5.7     2
18  80   6.0     2
19  60   6.0     2
20  95 -12.0     3
21 100 -12.0     3
22 100 -19.0     3
23  95 -19.0     3
24  95 -12.0     3

---

到目前为止，您尝试过什么吗？并且在示例数据中既没有出现

经度

也没有出现

纬度

。它们是如何导出的？如果你提供了一个最小的可重复的例子，你就有最大的机会得到一个有用的答案。可能会有帮助。这个答案适用于两组，但当它被分成三组时，仍然只包括第1组和第2组。这是为什么？@Alan20您能用更多的组来检查和调整您的数据帧吗？

dput（）

dataframe？我已经给出了一个将数据拆分为两个以上的示例groups@Alan20我已经调整了密码。那是个打字错误。现在更正。请检查并让我知道这是否有效：）@Alan20太好了！对我的打字错误深表歉意，这是我的错误！

    X1    X2 Group
1   43  10.0     1
2   43  13.0     1
3   40  13.0     1
4   40  10.0     1
5   43  10.0     1
6   23  10.0     1
7   23  13.0     1
8   20  13.0     1
9   20  10.0     1
10  23  10.0     1
11  25  10.0     1
12  25  10.3     1
13  38  10.3     1
14  25  10.0     1
15  60   6.0     2
16  60   5.7     2
17  80   5.7     2
18  80   6.0     2
19  60   6.0     2
20  95 -12.0     3
21 100 -12.0     3
22 100 -19.0     3
23  95 -19.0     3
24  95 -12.0     3