Как сохранить данные группы в текстовом формате в R? - PullRequest
Новая
       34

Как сохранить данные группы в текстовом формате в R?

5 голосов
/ 17 октября 2019

Я использую пакет Tigris в R, чтобы получить группы блоков для определенных геокодов:

мой фрейм данных: 

> head(MyData)
  ï..AddressId  StreetAddressLine1          City ZipCode StateAbbreviation Latitude
1        60350      119 Summit Ave      Winthrop    2152                MA 42.38445
2      6955669      1705 Chaise Ct   Carson City   89703                NV 39.17730
3      6956266     13 Phillips Ave    Shrewsbury    1545                MA 42.28119
4      6997538    38003 Wheeler Rd        Dexter   97431                OR 43.94063
5      6956697 3919 Birkdale Ln Se       Olympia   98501                WA 46.99440
6      6955879    117 Highland Ave Staten Island   10301                NY 40.61681
   Longitude 
1  -70.97491                     
2 -119.77846                     
3  -71.75263      
4 -122.85481      
5 -122.83683      
6  -74.09748

Мой код: 

library(tigris)
library(plyr)
library(dplyr)

setwd("C:/Users/user/Desktop/bgreoup")
MyData <- read.csv(file="geocode_finalcompiledtest.csv", header=TRUE, sep=",")
head(MyData)
lat_tigris <- MyData$Latitude 
lon_tigris <- MyData$Longitude

blockgroup <- c()

for ( i in 1:length(lat_tigris)){ 
  block <- call_geolocator_latlon(lat_tigris[i], lon_tigris[i])
  blockgroup[i] <- substr(block,1,nchar(block)-3)
  #cat(paste(i," => ", blockgroup))
}

MyData["blockgroup"] <- blockgroup
head(MyData)

write.csv(MyData, file = "geoblockade1234.csv")

Я получаюВывод, однако, если я открою этот CSV-файл geoblockade1234 (как в формате csv, так и в виде txt-файла в блокноте), группы блоков будут отображаться в непонятном формате: 

blockgroup
2.50E+11
3.25E+11
2.50E+11
4.10E+11
5.31E+11
3.61E+11
3.90E+11
2.71E+11

Я хочу, чтобы они отображались в виде текстаформат, как показано ниже: 

   blockgroup
1  250251801011
2  325100002002
3  250277392004
4  410390016001
5  530670117104
6  360850047001

Что мне нужно изменить в моем коде, чтобы я мог получить вывод, как указано выше? Я пробовал str (MyData), но без вывода

1 Ответ

0 голосов
/ 17 октября 2019

Попробуйте использовать format, чтобы исключить его из научной нотации. 

MyData["blockgroup"] <- format(blockgroup, scientific=F)
...