> dput(head(dat))
structure(list(mann = c(1L, 1L, 2L, 2L, 2L, 1L), Alter = c(43L,
59L, 48L, 35L, 23L, 61L), Bildung = c(6L, 3L, 7L, 5L, 6L, 7L),
Klimawandel = c(98L, 100L, 99L, 90L, 100L, 100L), zukünftige.Generationen.D = c(2L,
5L, 4L, 4L, 2L, 5L), zukünftige.Generationen = c(4L, 5L,
4L, 4L, 5L, 5L), Parteiwahl = c(3L, 5L, 5L, 7L, 3L, 3L),
Umstände.Zukunft = c(4L, 4L, 3L, 4L, 4L, 3L), Opfer.Zukunft = c(3L,
3L, 3L, 2L, 3L, 2L), negative.Warnung = c(4L, 4L, 4L, 4L,
5L, 3L), einzelner.Beitrag = c(5L, 4L, 4L, 4L, 3L, 3L), Moral.zukünftige.Generationen = c(4L,
5L, 4L, 4L, 5L, 2L), Interessen.zukünftige.Generationen = c(3L,
5L, 4L, 4L, 5L, 3L), Alter.Wahlrecht = c(3L, 1L, 2L, 1L,
3L, 3L), privater.Verkehr = c(5L, 1L, 3L, 3L, 4L, 5L), Flüge = c(5L,
5L, 5L, 3L, 2L, 4L), Energieeffizienz = structure(c(4L, 4L,
4L, 4L, 4L, 4L), .Label = c("1", "2", "3", "4", "5"), class = "factor"),
grüner.Strom = c(5L, 5L, 5L, 3L, 2L, 3L), Kompensation = c(4L,
3L, 2L, 3L, 4L, 3L), grüne.Parteien = c(4L, 4L, 3L, 4L, 5L,
5L), Vegetarier = c(2L, 1L, 3L, 1L, 5L, 3L), Gespräche = c(3L,
3L, 4L, 2L, 5L, 4L), Demonstrationen = structure(c(3L, 1L,
1L, 1L, 4L, 4L), .Label = c("1", "2", "3", "4", "5"), class = "factor"),
Nachhaltigkeit = c(4L, 4L, 3L, 3L, 4L, 4L), Verhalten.Zukunft = c(3L,
3L, 3L, 3L, 4L, 2L), CFC = c(14L, 14L, 13L, 13L, 16L, 10L
), Index_individueller.Beitrag = c(25L, 20L, 21L, 19L, 24L,
25L), a = structure(c(4L, 4L, 4L, 4L, 4L, 4L, 3L, 1L, 1L,
1L, 4L, 4L), .Dim = c(6L, 2L), .Dimnames = list(NULL, c("Energieeffizienz",
"Demonstrationen")))), row.names = 2:7, class = "data.frame")