In ahorawzy/Mreport: Monthly Report of traffic condition

options(stringsAsFactors = F)

library(Mreport)
library(ggplot2)

load_base()
load_sample_base()

jd201805 <- read.csv("D:\\data\\sx_raw\\交调数据\\jd2018_05.csv")
dim(jd201805)

jd201805 <- caculate_equivalent(jd201805)

jd201805s <- select_atts(jd201805)

jd201805all <- handle_mergeline(jd201805s,station_line)

jd <- handle_mergesample(jd201805all,sample_base)
names(jd)

arrange(aggregate(cars~roadhub,data=jd,FUN = mean),cars)

arrange(aggregate(cars~airport,data=jd,FUN = mean),cars)

arrange(aggregate(cars~vertical10,data=jd,FUN = mean),cars)

arrange(aggregate(cars~citygroup,data=jd,FUN = mean),cars)

arrange(aggregate(cars~bigcityio,data=jd,FUN = mean),cars)

x <- arrange(aggregate(cars~province,data=jd,FUN = mean),cars);x

arrange(aggregate(crowd~citygroup,data=jd,FUN = mean),crowd)

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