In ahorawzy/Mreport: Monthly Report of traffic condition

options(stringsAsFactors = F)

library(Mreport)

Experiment of today mainly handle raw data of station and others.

1. station

station <- read.csv("D:\\data\\sx_raw\\基础数据\\站点管理\\all.csv",stringsAsFactors = F)

dim(station)

names(station)

usefulnames <- c(2,3,4,5,7,8,9,10,11,16,17,21,31,32,33,35,36,38,41,42,44,45)

station_useful <- station[,usefulnames]
dim(station_useful)

names(station_useful)

simplenames <- c(2,3,6,41,42,44,45)
station_simple <- station[,simplenames]
dim(station_simple)

names(station_simple)

save(station_simple,file="D:\\R\\packages\\Mreport\\data-raw\\station_simple.Rdata")

save(station_useful,file="D:\\R\\packages\\Mreport\\data-raw\\station_useful.Rdata")

2. line

lin_G <- read.csv("D:\\data\\sx_raw\\基础数据\\路线信息\\国道.csv",stringsAsFactors = F)
dim(lin_G)

names(lin_G)

lin_S <- read.csv("D:\\data\\sx_raw\\基础数据\\路线信息\\省道.csv",stringsAsFactors = F)
dim(lin_S)

names(lin_S)

line <- rbind(lin_G,lin_S)
dim(line)

line <- line[,-c(1,7)]
names(line)

save(line,file="D:\\R\\packages\\Mreport\\data-raw\\line.Rdata")

3. sample database

ahorawzy/Mreport documentation built on May 3, 2019, 3:40 p.m.