Как создать шейп без конечных нулей с помощью R

Question

Я создаю шейп, но столбцы данных все имеют нули, например: 1,000000000000000

Как ограничить конечные нули до 2 цифр, например: 1,00?

Пример кода:

library(rgdal) 
library(sp) 

coords <- cbind(c(631145, 631757, 631928, 631664, 631579, 631281), c(6967640, 6967566, 6968027, 6967985, 6968141, 6968009)) 
poly <- Polygons(list(Polygon(coords)),"coords") 
poly.sp <- SpatialPolygons(list(poly)) 

df<- data.frame(id = getSpPPolygonsIDSlots(poly.sp)) 
row.names(df) <- getSpPPolygonsIDSlots(poly.sp) 

spdf <- SpatialPolygonsDataFrame(poly.sp, data=df) 
spdf@data$VALUE <- 1 
writeOGR(spdf, "shapes", "testShape", driver="ESRI Shapefile", overwrite=TRUE) 

Когда я открываю файл .dbf в текстовом редакторе (Notepad ++) 1 отображается с замыкающими нулями.

Answer 1

Ваш файл формы DBF хранит его как реальное значение, и вы хотите, чтобы целые числа.

> ogrInfo("./shapes","testShape") 
Source: "./shapes", layer: "testShape" 
Driver: ESRI Shapefile; number of rows: 1 
Feature type: wkbPolygon with 2 dimensions 
Extent: (631145 6967566) - (631928 6968141) 
LDID: 87 
Number of fields: 2 
    name type length typeName 
1 id 4  80 String 
2 VALUE 2  24  Real 

R создает свои числовые столбцы по умолчанию в виде чисел с плавающей запятой. Класс столбец "числовой":

> class(spdf$VALUE) 
[1] "numeric" 

Изменить это "целое" L

> class(spdf$VALUE)="integer" 
> class(spdf$VALUE) 
[1] "integer" 

И переписать шейп:

> writeOGR(spdf, "shapes", "testShape", driver="ESRI Shapefile", overwrite=TRUE) 

А теперь

> ogrInfo("./shapes","testShape") 
Source: "./shapes", layer: "testShape" 
Driver: ESRI Shapefile; number of rows: 1 
Feature type: wkbPolygon with 2 dimensions 
Extent: (631145 6967566) - (631928 6968141) 
LDID: 87 
Number of fields: 2 
    name type length typeName 
1 id 4  80 String 
2 VALUE 0  10 Integer 

Целочисленное поле в DBF шейп-файла. Работа выполнена.