Commit 5a7b9673 authored by Hopf, Konstantin's avatar Hopf, Konstantin
Browse files

L05 some additions and bugfix in l. 165/166

parent f2566779
...@@ -51,6 +51,9 @@ axis(2) ...@@ -51,6 +51,9 @@ axis(2)
#Here, we have polygons that we can colorate #Here, we have polygons that we can colorate
plot(ger.shp, col=1:23) plot(ger.shp, col=1:23)
#see the data stored in the shapefile
View(ger.shp@data)
``` ```
As an example, the housing statistics from the German Federal Ministry of Statistics is used As an example, the housing statistics from the German Federal Ministry of Statistics is used
...@@ -91,6 +94,7 @@ housing_statistic_DE <- read_csv2("../data/housing_statistic_germany_31231-0003. ...@@ -91,6 +94,7 @@ housing_statistic_DE <- read_csv2("../data/housing_statistic_germany_31231-0003.
decimal_mark = ",", decimal_mark = ",",
grouping_mark = ".")) grouping_mark = "."))
View(housing_statistic_DE)
#calculate the relative distribution of total living area #calculate the relative distribution of total living area
housing_statistic_DE$total_livingarea_rel <- housing_statistic_DE$total_livingarea / max(housing_statistic_DE$total_livingarea) housing_statistic_DE$total_livingarea_rel <- housing_statistic_DE$total_livingarea / max(housing_statistic_DE$total_livingarea)
...@@ -147,7 +151,12 @@ points(as_sp(erba_data, what = "points"), pch=16, col=2, cex=0.5) ...@@ -147,7 +151,12 @@ points(as_sp(erba_data, what = "points"), pch=16, col=2, cex=0.5)
axis(1) axis(1)
axis(2) axis(2)
erba_data$nodes$attrs #display the data stored for each object
View(erba_data$nodes$attrs)
#display the tags stored for each object (contain the geographic meaning)
View(erba_data$nodes$attrs)
``` ```
# Practicals for the date and time handling # Practicals for the date and time handling
...@@ -160,10 +169,10 @@ Sys.setenv(TZ="CET") ...@@ -160,10 +169,10 @@ Sys.setenv(TZ="CET")
dmy(13112018) dmy(13112018)
ymd("20181113") ymd("20181113")
mdy("November 13th, 2018") mdy(c("November 13th, 2018", "11/ 13/ 2018"))
dmy_hms("13.11.2018 11:15") dmy_hm("13.11.2018 11:15")
dmy_hms("13.11.2018 11:15", tz = "CET") dmy_hms("13.11.2018 11:15:01", tz = "CET")
today() today()
now() now()
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment