---
title: "Zmienne PGSS"
author: "Michał Bojanowski"
date: "`r Sys.Date()`"
output: 
  rmarkdown::html_vignette:
    toc: yes
vignette: >
  %\VignetteIndexEntry{pgssinfo}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---


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


Krótki opis zmiennych PGSS w ramce `pgss`.

Dane pochodzą z Archiwum Danych Społecznych http://ads.org.pl.

```{r read-data, include=FALSE}
opisy <- read.csv(
  system.file(file.path("exdata", "pgss-info.csv"), package="adr"),
  as.is=TRUE,
  check.names=FALSE
)
```


# Nazwy zmiennych i etykiety

```{r opisy-zmiennych}
o <- order(opisy$variable)
knitr::kable( 
  structure(
    opisy[o,c(1,11)], 
    names=c("Zmienna", "Opis")
    )
  )
```



# Kiedy zadawano pytanie

Poniżej można się zorientować kiedy zadano które pytania. W każdej komórce liczba respondentów, którzy udzielili znaczących odpowiedzi. Jeżeli jest 0, znaczy, że pytanie nie zostało zadane.

```{r}
knitr::kable(
  structure(
    opisy[,-11],
    names=replace(names(opisy)[-11], 1, "Zmienna")
  )
)
```