Kolzov Platten Informationsportal

Um Informationen zum Thema Kolzov-Platten geordnet zugreifbar zu haben, wenn ich mal etwas u.a. mobil suche, habe ich eine kleine statische Seite erstellt:

Das Kolzov Platten Informationsportal

Vielleicht ist es auch hilfreich für Andere in diesem Nischenthema. Es gibt ja mittlerweise über 250 Kolzov Platten mit vielen Informationen, hauptsächlich im Russischen Raum.

Und ich merke erst jetzt, wo ich es in eine präsentationsfähige Struktur bringe, wieviel bei mir verstreut und nicht ausformuliert rumliegt. Der “wenn man das auch für andere macht”-Ordnungseffekt. Zum Wohle aller.

Hmm.. steht etwas ähnliches nicht auf den Kolzov-Platten ?

Die Seite ist jedenfalls im Aufbau, und langsam fließen die Daten zu den einzelnen Platten rein. Das ganze soll dann Volltext-durchsuchbar sowie nach Kriterien wie Anwendungsbereich etc.

Technik

Die Seite ist statisch und wird erstmal mit Quarto generiert. Das ist zwar langsam, aber es gefällt mir bisher ganz gut. In Quarto kann ich (über das R Universum) wunderbar CSV Daten einlesen und unterschiedlichst darstellen.

Beispiel für ein Balkendiagramm:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#| echo: false
#| warning: false
#| message: false

library(data.table)
library(ggplot2)

# CSV-Datei einlesen
data <- fread("../liste.csv", encoding = "UTF-8")

# Daten nach Serie gruppieren und Anzahl berechnen
serie_counts <- data[, .N, by = Serie][order(-N)]
total_plates <- sum(serie_counts$N)

# Balkendiagramm erstellen
ggplot(serie_counts, aes(x = reorder(Serie, N), y = N)) +
  geom_col(fill = "steelblue", alpha = 0.8) +
  coord_flip() +
  labs(
    title = "Anzahl KFS-Platten nach Serie",
    x = "Serie",
    y = "Anzahl",
    caption = paste("Gesamtzahl der Platten:", total_plates)
  ) +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, size = 16),
    axis.text = element_text(size = 12),
    axis.title = element_text(size = 14),
    plot.caption = element_text(hjust = 1, size = 12, color = "darkblue")
  ) +
  geom_text(aes(label = N), hjust = -0.1, size = 4)

Möge die Resonanz mit dir sein.

(Keine Ahnung wo das jetzt herkam ;)

(symbolische Darstellung)

Technik#

Technik