Carshare in Utah

July 29, 2017

Peer-to-peer sharing has become growing trend and in 2016 our founder decided to try renting his car in Utah to the general public. Here is what happened.

# load the data
data = read.csv(file = "/home/alton/Desktop/altons_driving/150925.txt", header = F)

# plot
head(data, 100)

# how to orient the geo?
plot(-data$V6, data$V4, type="l")

# what is the date?
table(data$V10)

Here is a sample of what the data looks like from the GPS:

row     V1     V2 V3       V4 V5       V6 V7    V8     V9    V10 V11 V12  V13
67  $GPRMC 163313  A 4045.961  N 11153.30  W 28.12 180.16 240915  NA  NA 0*37
68  $GPRMC 163343  A 4045.783  N 11153.29  W  0.00   0.00 240915  NA  NA 0*12
69  $GPRMC 163413  A 4045.762  N 11153.29  W 18.98 180.01 240915  NA  NA 0*3D
70  $GPRMC 163443  A 4045.640  N 11153.31  W 13.79 213.87 240915  NA  NA 0*36
71  $GPRMC 163513  A 4045.643  N 11153.42  W  0.00   0.00 240915  NA  NA 0*12
72  $GPRMC 163543  A 4045.643  N 11153.42  W  0.00   0.00 240915  NA  NA 0*17
73  $GPRMC 163613  A 4045.653  N 11153.49  W 21.02 269.27 240915  NA  NA 0*34
74  $GPRMC 163643  A 4045.647  N 11153.82  W 37.28 269.84 240915  NA  NA 0*33
75  $GPRMC 163713  A 4045.644  N 11154.23  W 35.63 268.39 240915  NA  NA 0*30
76  $GPRMC 163743  A 4045.646  N 11154.66  W 39.52 270.74 240915  NA  NA 0*3B

With all this exciting data, here are some questions we are looking at:

what is the time?

join in all driving records

determine top speed? time spent driving per day, total distance per day

what are error codes? ie. breaking too fast, engine on/off, doors open, etc.

collect a dataset of when it was being rented

group by these variables

who drives more? faster? where?

who gets lost more often?

heatmap of where the car has been?

comments powered by Disqus