Some useful functions for working with (German) farm structure survey
(FSS) data.
You can install the GitLab version of FSS from
[GitLab](https://git-dmz.thuenen.de/mindstep/fss) with:
devtools::install_git("https://git-dmz.thuenen.de/mindstep/fss")
Then the Related R packages can be installed.
library(FSS)
# Example
A little example for one specific function from the FSS package.
## Test a function
Here we will test one of the provided functions:
`generateFakeFSSData_DE()`. We generate some basic variables, which are
automatically produced. We set an additional variable to be generated,
namely C0300. The variable will be a continuous variable.
FSS_data_DE <- generateFakeFSSData_DE(C0codes = "C0300")
##
## Build fake data
### Add a specific categorical variable
No we will add a specific variable, i.e. a categorical variable if a
farm is an organic farm. This will be randomly distributed. The
probability of a farm to be organic is 20%.
library(tidyverse)
FSS_data_DE <- FSS_data_DE %>%
mutate(C0501=sample(c(0,1),
size = nrow(FSS_data_DE),
replace = TRUE,
prob = c(0.8,0.2)))
### Some analysis
After that we analyse the data regarding the number of farms that are
organic (C0501) for each year (C0008U1) and farm type (C0060UG1).
FSS_data_DE %>% group_by(C0008U1,C0060UG1,C0501) %>%
count() %>%
pivot_wider(names_from = C0060UG1, values_from = n) %>%
knitr::kable()
<table>
<thead>
<tr class="header">
<th style="text-align: right;">C0008U1</th>
<th style="text-align: right;">C0501</th>
<th style="text-align: right;">1</th>
<th style="text-align: right;">2_3</th>
<th style="text-align: right;">45</th>
<th style="text-align: right;">46_48</th>
<th style="text-align: right;">5</th>
<th style="text-align: right;">6_7_8</th>
</tr>
</thead>
<tbody>
<tr class="odd">
<td style="text-align: right;">1999</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">57491</td>
<td style="text-align: right;">16693</td>
<td style="text-align: right;">29578</td>
<td style="text-align: right;">44526</td>
<td style="text-align: right;">33620</td>
<td style="text-align: right;">55483</td>
</tr>
<tr class="even">
<td style="text-align: right;">1999</td>
<td style="text-align: right;">1</td>
<td style="text-align: right;">14461</td>
<td style="text-align: right;">4222</td>
<td style="text-align: right;">7491</td>
<td style="text-align: right;">10998</td>
<td style="text-align: right;">8288</td>
<td style="text-align: right;">13827</td>
</tr>
<tr class="odd">
<td style="text-align: right;">2003</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">55229</td>
<td style="text-align: right;">16216</td>
<td style="text-align: right;">28762</td>
<td style="text-align: right;">43023</td>
<td style="text-align: right;">32228</td>
<td style="text-align: right;">53946</td>
</tr>
<tr class="even">
<td style="text-align: right;">2003</td>
<td style="text-align: right;">1</td>
<td style="text-align: right;">13748</td>
<td style="text-align: right;">4142</td>
<td style="text-align: right;">7093</td>
<td style="text-align: right;">10744</td>
<td style="text-align: right;">8018</td>
<td style="text-align: right;">13554</td>
</tr>
<tr class="odd">
<td style="text-align: right;">2007</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">53467</td>
<td style="text-align: right;">15357</td>
<td style="text-align: right;">27391</td>
<td style="text-align: right;">41918</td>
<td style="text-align: right;">31202</td>
<td style="text-align: right;">51658</td>
</tr>
<tr class="even">
<td style="text-align: right;">2007</td>
<td style="text-align: right;">1</td>
<td style="text-align: right;">13150</td>
<td style="text-align: right;">3874</td>
<td style="text-align: right;">6794</td>
<td style="text-align: right;">10456</td>
<td style="text-align: right;">7782</td>
<td style="text-align: right;">12846</td>
</tr>
<tr class="odd">
<td style="text-align: right;">2010</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">51228</td>
<td style="text-align: right;">15182</td>
<td style="text-align: right;">26514</td>
<td style="text-align: right;">40054</td>
<td style="text-align: right;">29784</td>
<td style="text-align: right;">49768</td>
</tr>
<tr class="even">
<td style="text-align: right;">2010</td>
<td style="text-align: right;">1</td>
<td style="text-align: right;">12838</td>
<td style="text-align: right;">3730</td>
<td style="text-align: right;">6667</td>
<td style="text-align: right;">9999</td>
<td style="text-align: right;">7495</td>
<td style="text-align: right;">12446</td>
</tr>
<tr class="odd">
<td style="text-align: right;">2013</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">14310</td>
<td style="text-align: right;">4257</td>
<td style="text-align: right;">7405</td>
<td style="text-align: right;">11242</td>
<td style="text-align: right;">8477</td>
<td style="text-align: right;">13920</td>
</tr>
<tr class="even">
<td style="text-align: right;">2013</td>
<td style="text-align: right;">1</td>
<td style="text-align: right;">3764</td>
<td style="text-align: right;">1051</td>
<td style="text-align: right;">1810</td>
<td style="text-align: right;">2775</td>
<td style="text-align: right;">2143</td>
<td style="text-align: right;">3508</td>
</tr>
<tr class="odd">
<td style="text-align: right;">2016</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">49581</td>
<td style="text-align: right;">14520</td>
<td style="text-align: right;">25711</td>
<td style="text-align: right;">38544</td>
<td style="text-align: right;">28840</td>
<td style="text-align: right;">48287</td>
</tr>
<tr class="even">
<td style="text-align: right;">2016</td>
<td style="text-align: right;">1</td>
<td style="text-align: right;">12510</td>
<td style="text-align: right;">3642</td>
<td style="text-align: right;">6350</td>
<td style="text-align: right;">9564</td>
<td style="text-align: right;">7200</td>
<td style="text-align: right;">12102</td>
</tr>
<tr class="odd">
<td style="text-align: right;">2020</td>
<td style="text-align: right;">0</td>
<td style="text-align: right;">47565</td>
<td style="text-align: right;">13932</td>
<td style="text-align: right;">24603</td>
<td style="text-align: right;">36770</td>
<td style="text-align: right;">28096</td>
<td style="text-align: right;">46413</td>