options(stringsAsFactors = F)
library(Mreport)
Experiment of today mainly handle raw data of station and others.
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")
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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.