Fußnoten-Zeichen im Header von kableExtra Tabellen
Verfasst: Mi Feb 16, 2022 3:47 pm
Hallo da bin ich wieder,
Ich habe mal eine Frage zum package kablExtra.
Ich möchte gerne Fußnoten hinzufügen, das funktioniert auch. Doof das man die Spalten und Zeilen indisch eingeben muss aber auch noch ok.
Meine Frage aber ist:
Kann man Fußnoten auch für den Header-Bereich angeben? Also bei add_header_above?
Ich bekomme es nicht hin.
Hier mein Rmarkdown-Beispiel:
VG,
Andreas
Ich habe mal eine Frage zum package kablExtra.
Ich möchte gerne Fußnoten hinzufügen, das funktioniert auch. Doof das man die Spalten und Zeilen indisch eingeben muss aber auch noch ok.
Meine Frage aber ist:
Kann man Fußnoten auch für den Header-Bereich angeben? Also bei add_header_above?
Ich bekomme es nicht hin.
Hier mein Rmarkdown-Beispiel:
Code: Alles auswählen
---
title: "test"
output:
pdf_document: default
---
```{r echo=FALSE}
library(tibble)
library(kableExtra)
library(dplyr)
SampleTabelle12 <-
structure(
list(
Day = c(1, 100, 189, 356, 378),
H1 = c(
24.6105890274048,
25.0588925679525,
25.1532560984294,
24.9550952911377,
24.9701798756917
),
H2 = c(
24.6344871520996,
25.0452060699463,
24.9547163645426,
24.9720815022786,
24.9745591481527
),
H3 = c(
24.539662361145,
25.152853012085,
25.0576219558716,
24.935830116272,
24.9263563156128
),
H4 = c(
24.5215082168579,
25.0977077484131,
25.1285978953044,
25.0273609161377,
25.1261781056722
),
M1 = c(
27.7526245117188,
27.5274480183919,
27.575714747111,
27.546688079834,
27.5617179870605
),
M2 = c(
27.8780727386475,
27.4733486175537,
27.616527557373,
27.4291114807129,
27.4547475179036
),
M3 = c(
27.7395248413086,
27.4772027333577,
27.6087182362874,
27.4911886850993,
27.5214182535807
),
M4 = c(
27.7226762771606,
27.5327657063802,
27.6189448038737,
27.5323746999105,
27.5590165456136
),
L1 = c(
31.3464527130127,
30.9198106129964,
31.0575275421143,
30.9946893056234,
30.9649829864502
),
L2 = c(
31.0697546005249,
30.9161364237467,
30.9001496632894,
30.7938957214355,
30.8717797597249
),
L3 = c(
31.2199878692627,
30.8868211110433,
30.877659479777,
30.974671681722,
30.9524313608805
),
L4 = c(
31.2347249984741,
30.8438777923584,
30.9162432352702,
30.8637097676595,
30.890328725179
),
PK1 = c(
23.3984559377034,
23.3165092468262,
22.5001748402913,
22.5809440612793,
22.1573944091797
),
PK2 = c(
24.9634730021159,
25.8911730448405,
27.1775121688843,
25.5410505930583,
25.5765113830566
),
PK3 = c(
30.5795663197835,
29.272632598877,
31.5930442810059,
28.8436368306478,
28.6862106323242
)
),
class = c("tbl_df", "tbl", "data.frame"),
row.names = c(NA,
-5L))
#Tabellen-Bezeichnung: Angabe wo welche Fußnoten-Zeichen hin sollen.
SampleTabelle12
names(SampleTabelle12)[2] <- paste0(names(SampleTabelle12)[2],
(footnote_marker_number(1, "latex")))
# Druck eigentlicher TAbelle
SampleTabelle12 %>%
mutate_all(linebreak) %>%
kbl(
booktabs = T,
escape = F,
caption = "Zusammenfassung der Mittelwerte aller Messungen",
align = "r"
) %>%
kable_styling(latex_options = c("striped", "hold_position", "scale_down")) %>%
add_header_above(c(
" ",
"Titer hoch" = 4,
"Titer mittel" = 4,
"Titer niedrig" = 4,
"Positiv-Kontrollen" = 3
)) %>%
footnote(
general = "Angaben zu Abkürzungen",
number = c(
"Hoch konzentrierte Proben",
"Mittel konzentriert Proben",
"Niedrig konzentrierte Proben",
"Positiv-Kontrollen"
),
general_title = "Informationen:",
footnote_as_chunk = T
)
```
Andreas