rmdgeo_ogdtg@kantonales-inventar-der-kulturguter-von-regionaler-bedeutung-b-objekte-archaolog.Rmd

---
title: "Kantonales Inventar der Kulturgüter von regionaler Bedeutung B-Objekte Archäologie"
author: "OGD-Koordinationsstelle Kanton Thurgau"
date: "`r Sys.Date()`"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## Open Government Data, provided by **Canton Thurgau**
*Autogenerated R starter code for geo-dataset with the identifier* **kantonales-inventar-der-kulturguter-von-regionaler-bedeutung-b-objekte-archaolog**


# **Kantonales Inventar der Kulturgüter von regionaler Bedeutung B-Objekte Archäologie**

[Link to dataset on data.tg.ch](https://data.tg.ch/explore/dataset/kantonales-inventar-der-kulturguter-von-regionaler-bedeutung-b-objekte-archaolog/information/)

## Description

Archäologische Kulturgüter von regionaler Bedeutung (B-Objekte) im Kanton Thurgau gemäss dem KGS Inventar 2021.

## Metadata

- **Issued**                   : 
- **Modified**                 : 2021-10-13 00:00:00
- **Rights**                   : CC By 4.0
- **Keywords**                 : geodaten, archaologie, inventar, kulturgut, geschichte, siedlung

## Load Packages

Every dataset (csv and geodata) on [data.tg.ch](https://data.tg.ch/pages/start/) can be retrieved with the **tgAPI** package. You can download it via [GitHub](https://github.com/ogdtg/tgAPI). Our Geodata rely on WFS Services and you can download them layer by layer. In some cases the layer data is very large. Therefore, the download may take some time.

```{r}
library(remotes)
remotes::install.github("ogdtg/tgAPI")
library(tgAPI)
#install.packages(ggplot2)
#install.packages(dplyr)
library(dplyr)
library(ggplot2)
library(sf)

```


## Get the Features (layers) of the Geodata

Some datsets are raster data. They do not contain layers and they cannot be downloaded, yet.

```{r}
features <- get_geo_features("kantonales-inventar-der-kulturguter-von-regionaler-bedeutung-b-objekte-archaolog")

features
```


## Download the first feature

Features can be downloaded by using their name or their label. The result of the download will be a dat.frame of the class `sf`. You can directly use it for geospatial analysis.

```{r}

feature_num <- 1

geo_data <- get_geo_data("kantonales-inventar-der-kulturguter-von-regionaler-bedeutung-b-objekte-archaolog",features$name[feature_num])

tg_data <- get_geo_data("amtliche-vermessung-av", "Gemeindegrenzen")

head(geo_data)
```


## Analyze Data

```{r}

# Look at the dataset and its structure
summary(geo_data)

```


## Plot Data

The base layer shows the borders of the municipalities (`Gemeindegrenzen`). The downloaded feature is colored red

```{r}

# Plot the data
geo_data %>% ggplot() +geom_sf(data = tg_data) + geom_sf(color = "red") +
  labs(title = paste0("Kantonales Inventar der Kulturgüter von regionaler Bedeutung B-Objekte Archäologie: ",features$title[feature_num])) +
  theme_minimal()

```


## Continue your code here...


```{r}
# Do some data magic with R
```

------------------------------------------------------------------------

## Questions about the data?

Contact us via [Mail](mailto:ogd@tg.ch) or visit our [GitHub presence](https://github.com/ogdtg)


------------------------------------------------------------------------

OGD-Koordinationsstelle Kanton Thurgau | Grabenstrasse 8 | 8510 Frauenfeld