Ziel

Visualsierung der Daten auf iPhone
Warnung vor risikoreichen Kreuzungen

ToDo

Daten einlesen
erste summary statistics



In [29]:

    
install.packages("stringr")









    



The downloaded binary packages are in
	/var/folders/sh/hzrmdlcn5551351hrwr1ph300000gn/T//RtmpjGEUh5/downloaded_packages



In [31]:

    
# install.packages("tidyr")
require("tidyr")
require("data.table")
require("ggplot2")
require("stringr")









    



Loading required package: stringr



In [13]:

    
df <- fread(paste0(getwd(), "/data/out/accidents_list_2016.csv"), stringsAsFactors = TRUE)



In [14]:

    
summary(df)









    





             street         count             year       directorate   
 BERLINER STR.  :   5   Min.   : 1.000   Min.   :2016   Min.   :11.00  
 KÖPENICKER STR.:   5   1st Qu.: 1.000   1st Qu.:2016   1st Qu.:24.00  
 BAHNHOFSTR.    :   4   Median : 1.000   Median :2016   Median :41.00  
 BERNAUER STR.  :   4   Mean   : 1.963   Mean   :2016   Mean   :38.89  
 BISMARCKSTR.   :   4   3rd Qu.: 2.000   3rd Qu.:2016   3rd Qu.:53.00  
 EISENACHER STR.:   4   Max.   :31.000   Max.   :2016   Max.   :66.00  
 (Other)        :3785                                                  
      lat             lng            features   
 Min.   :13.11   Min.   :52.37   4389412 :   4  
 1st Qu.:13.33   1st Qu.:52.48   4403863 :   4  
 Median :13.39   Median :52.51   4585103 :   4  
 Mean   :13.39   Mean   :52.51   4615457 :   4  
 3rd Qu.:13.45   3rd Qu.:52.54   26285557:   3  
 Max.   :13.71   Max.   :52.67   4067949 :   3  
                                 (Other) :3789



In [18]:

    
ggplot(data = df, mapping = aes(x = count)) +
    geom_histogram()









    



`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.



In [35]:

    
str_count(df$street, "/")



In [36]:

    
temp <- df %>%
    mutate(
        crossing = if_else(str_count(df$street, "/") > 0, 1, 0)
    )









    



Error in mutate(., crossing = if_else(str_count(df$street, "/") > 0, 1, : could not find function "mutate"
Traceback:

1. df %>% mutate(crossing = if_else(str_count(df$street, "/") > 
 .     0, 1, 0))
2. withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
3. eval(quote(`_fseq`(`_lhs`)), env, env)
4. eval(quote(`_fseq`(`_lhs`)), env, env)
5. `_fseq`(`_lhs`)
6. freduce(value, `_function_list`)
7. withVisible(function_list[[k]](value))
8. function_list[[k]](value)



In [ ]: