Datum des CBS-Abzugs: 2022-12-01
Dieser Bericht wurde automatisiert mit R Markdown erstellt. Der pica-rs-Code für die Abfrage aller Tc-Sätze und der R-Code für die Berechnung der Ausgabetabelle können durch Aufklappen der Codeblöcke eingesehen werden.
Von allen Datensätzen mit 002@.0 == 'Tc'
ohne 050C.a =^ 'GND-kein-Schlagwort'
werden die Unterfelder $2
und $4
der PICA+-Felder 022P, 028P, 029P, 030P, 041P und 065P ausgelesen und die IDN-Anzahlen für alle Kombinationen der Werte {‘agrovoc’, ‘lcsh’, ‘ram’, ‘mesh’, ‘stw’, ‘thesoz’, ‘embne’, ‘nsbncf’, ‘tpro’} in $2
und {‘ftaa’, ‘ftae’, ‘ftai’, ‘ftao’, ‘ftau’, ‘ftob’, ‘ftub’, ‘ftvb’, ‘ftnu’} in $4
berechnet.
Eine äquivalente Abfrage in der WinIBW für den ersten Rückgabewert lautete f bbg tc crt agrovoc-ftaa NOT rdb GND-kein-Schlagwort*
.
#!/bin/bash
set -euo pipefail
# set -x
# https://wiki.dnb.de/pages/viewpage.action?pageId=263851158
dnb_dump=/srv/aen-data/pica/T.dat
# Tc-Sätze "f bbg Tc NOT rdb GND-kein-Schlagwort*"
pica filter -s "002@.0 == 'Tc'" --not "050C.a =^ 'GND-kein-Schlagwort'" $dnb_dump -o Tc.dat
# 028P (700) - "p" - Person
# 029P (710) - "b" - Körperschaft
# 030P (711) - "f" - Konferenz
# 022P (730) - "u" - Einheitstitel
# 041P (750) - "s" - Sachbegriff
# 065P (751) - "g" - Geografikum
pica filter -s "028P.4?" Tc.dat |
pica select -H "IDN, Feld, Thesaurus, Relation" \
"003@.0, '028P', 028P{2, 4}" -o Tc.csv
# ohne Header anhängen
pica filter -s "029P.4?" Tc.dat |
pica select "003@.0, '029P', 029P{2, 4}" >> Tc.csv
pica filter -s "030P.4?" Tc.dat |
pica select "003@.0, '030P', 030P{2, 4}" >> Tc.csv
pica filter -s "022P.4?" Tc.dat |
pica select "003@.0, '022P', 022P{2, 4}" >> Tc.csv
pica filter -s "041P.4?" Tc.dat |
pica select "003@.0, '041P', 041P{2, 4}" >> Tc.csv
pica filter -s "065P.4?" Tc.dat |
pica select "003@.0, '065P', 065P{2, 4}" >> Tc.csv
Anzahl der Tc-Sätze gruppiert nach Thesaurus und Relation:
# Crosskonkordanzen einlesen
ck <- read_csv('Tc.csv', col_types = 'cccc')
# Wertebereiche gemäß Wiki-Seiten definieren
thesauri <- read_csv('Thesauri.csv', col_types = 'cc')
relationen <- read_csv('Relationen.csv', col_types = 'cc')
# Crosskonkordanzen filtern und zählen
rslt1 <- ck %>%
filter(Thesaurus %in% thesauri$Code & Relation %in% relationen$Code) %>%
mutate(
Thesaurus = factor(Thesaurus,
levels = thesauri$Code, labels = thesauri$Thesaurus),
Relation = factor(Relation,
levels = relationen$Code, labels = relationen$Relation)
) %>% # auch alle leeren Levels jeweils mit Anzahl 0 anzeigen
group_by(Thesaurus, Relation, .drop = FALSE) %>%
# jede Kombination (Thesaurus, Relation) je IDN nur einmal zählen
summarise(n = n_distinct(IDN)) %>%
pivot_wider(id_cols = Relation, names_from = Thesaurus, values_from = n)
# Summe
rslt2 <- data.frame(Relation = factor('GESAMT'),
rslt1 %>% select(-Relation) %>% summarise_all(.funs = sum))
colnames(rslt2) <- colnames(rslt1)
# Formatierte Ausgabetabelle
rbind(rslt1, rslt2) %>%
mutate_at(.vars = setdiff(colnames(.), 'Relation'), .funs = ~ formatC(
., format = 'd', big.mark = '.', decimal.mark = ',')) %>%
knitr::kable(align = c('l', rep('r', ncol(.)-1)))
Äquivalenz (ftaa) |
90 |
45.304 |
44.073 |
36 |
8.792 |
101 |
11.260 |
8.564 |
0 |
exakte Äquivalenz (ftae) |
5.491 |
344 |
310 |
4.637 |
0 |
7.342 |
17 |
22 |
0 |
inexakte Äquivalenz (ftai) |
5 |
161 |
174 |
189 |
0 |
205 |
0 |
3 |
0 |
ODER-Äquivalenz (ftao) |
4 |
24 |
15 |
65 |
0 |
0 |
0 |
0 |
0 |
UND-Äquivalenz (ftau) |
1.293 |
2.277 |
4.414 |
116 |
401 |
1.605 |
1 |
0 |
0 |
Oberbegriff-Relation (ftob) |
2.127 |
0 |
0 |
54 |
7.750 |
2.918 |
0 |
0 |
0 |
Unterbegriff-Relation (ftub) |
183 |
0 |
0 |
11 |
360 |
387 |
0 |
0 |
0 |
Verwandter-Begriff-Relation (ftvb) |
769 |
0 |
0 |
13 |
3.591 |
923 |
0 |
0 |
0 |
Null-Relation (ftnu) |
168 |
17.933 |
19.414 |
0 |
796 |
872 |
0 |
1 |
0 |
GESAMT |
10.130 |
66.043 |
68.400 |
5.121 |
21.690 |
14.353 |
11.278 |
8.590 |
0 |