Displaying 2 results from an estimated 2 matches for "4815023".
2006 Aug 09
1
data.frame to shape
Hi all,
I have a simple question:
I have a data.frame like this:
id x y
1 50 1647685 4815259
2 50 1647546 4815196
3 50 1647454 4815294
4 50 1647405 4815347
5 50 1647292 4815552
6 50 1647737 4815410
7 74 1647555 4815201
8 74 1647464 4815023
9 74 1646970 4815129
10 74 1646895 4815264
11 74 1646762 4815513
and I'd like to trasform it with the "convert.to.shapefile" function
(shapefiles package) but to make this I must have a data.frame like this:
id x y
1 50 1647685 4815259
2 50 1647546 4815196
3 50 16...
2006 Aug 09
0
R: data.frame to shape
assuming that the rows are sorted correctly
dat
id x y
1 50 1647685 4815259
2 50 1647546 4815196
3 50 1647454 4815294
4 50 1647405 4815347
5 50 1647292 4815552
6 50 1647737 4815410
7 74 1647555 4815201
8 74 1647464 4815023
9 74 1646970 4815129
10 74 1646895 4815264
11 74 1646762 4815513
> list.dat<-split(dat, dat$id)
>
> closed.polygons<-lapply(list.dat, function(x) rbind(x, x[1,]))
>
> do.call("rbind", closed.polygons)
id x y
50.1 50 1647685 4815259
50.2 50 16...