O arquivo Rmd que segue anexo (e abaixo); produz um documento no formato pdf que contém a tabela exemplo ilustrada abaixo.
Eu utilizei um template do pacote "rticles" que possui uma formatação esteticamente agradável.
Contudo, o tamanho da fonte do caption da tabela é menor do que o tamanho da fonte no corpo da tabela o que, a meu ver, quebra a harmonia do documento e gera um desconforto cognitivo apreciável.
Eu não sei onde é definido o tamanho da fonte do caption, talvez no template que eu utilizei (arquivo csl também segue anexo). Apesar de ter pesquisado bastante, não consegui encontrar solução que me permitisse realizar dois ajustes: (1) Trocar o "Table 1" por "Tabela 1" e aumentar o tamanho da fonte do caption.
Agradeço as orientações que vocês possam me passar.
Muito obrigado.
--
Paulo Eduardo de Mesquita
Disciplina de Infectologia - Faculdade de Medicina Universidade do Oeste Paulista Presidente Prudente - São Paulo - Brasil
telefone: 5518 97718261
---
title: Planetary Statistics
author:
- name: Alice Anonymous
email: alice@example.com
affiliation: Some Institute of Technology
footnote: 1
- name: Bob Security
email: bob@example.com
affiliation: Another University
address:
- code: Some Institute of Technology
address: Department, Street, City, State, Zip
- code: Another University
address: Department, Street, City, State, Zip
footnote:
- code: 1
text: "Corresponding Author"
- code: 2
text: "Equal contribution"
journal: "An awesome journal"
date: "`r Sys.Date()`"
csl: elsevier-harvard.csl
output: rticles::elsevier_article
geometry: "left=3cm,right=2cm,top=2cm,bottom=2cm"
---
```{r 1, include = TRUE, message=FALSE, warning=FALSE}
require(dplyr)
require(knitr)
require(kableExtra)
require(rticles)
Mercury <- c(57900000, 4878, 1416, 88, 0.38, 100, 0)
Venus <- c(108160000, 12104, 5832, 224, 0.9, 480, 0)
Earth <- c(149600000, 12756, 24, 365, 1, 14, 1)
Mars <- c(227936640, 6794, 24, 687, 0.38, -63, 2)
Jupiter <- c(778369000, 142984, 10, 4380, 2.64, -130, 79)
Saturn <- c(1427034000, 120536, 11, 10585, 1.16, -130, 62)
Uranus <- c(2870658186, 51118, 17, 30660, 1.11, -200, 27)
Neptune <- c(4496976000, 49532, 16, 60225, 1.21, -200, 14)
df <- rbind(Mercury, Venus, Earth, Mars, Jupiter, Saturn, Uranus, Neptune)
colnames(df) <- c("DFS", "Diameter","Day","Year","Gravity","Temperature","Moons")
kable(df, caption = "Planetary Statistics.",
booktabs = T, linesep = "", align = "lcccccc", format = "latex") %>%
kable_styling(bootstrap_options = "condensed", latex_options = "striped",
stripe_color = "#D9D8D8") %>%
kable_styling(font_size = 10) %>%
kable_styling(latex_options = "HOLD_position") %>%
footnote(alphabet = "https://www.bobthealien.co.uk/solarsystem/table.htm",
alphabet_title = "Source:", footnote_as_chunk = T) %>%
footnote(alphabet = "average temperature in oC",
alphabet_title = "Temperature:", footnote_as_chunk = T) %>%
footnote(alphabet = "ratio to Earth's gravity",
alphabet_title = "Gravity:", footnote_as_chunk = T) %>%
footnote(alphabet = "time to complete a full rotation around the sun in days",
alphabet_title = "Year:", footnote_as_chunk = T) %>%
footnote(alphabet = "time to complete a full rotation over its axis in hours",
alphabet_title = "Day:", footnote_as_chunk = T) %>%
footnote(alphabet = "in km",
alphabet_title = "Diameter:", footnote_as_chunk = T) %>%
footnote(alphabet = "distance from the sun in km",
alphabet_title = "DFS:", footnote_as_chunk = T)
```
title: Planetary Statistics
author:
- name: Alice Anonymous
email: alice@example.com
affiliation: Some Institute of Technology
footnote: 1
- name: Bob Security
email: bob@example.com
affiliation: Another University
address:
- code: Some Institute of Technology
address: Department, Street, City, State, Zip
- code: Another University
address: Department, Street, City, State, Zip
footnote:
- code: 1
text: "Corresponding Author"
- code: 2
text: "Equal contribution"
journal: "An awesome journal"
date: "`r Sys.Date()`"
csl: elsevier-harvard.csl
output: rticles::elsevier_article
geometry: "left=3cm,right=2cm,top=2cm,bottom=2cm"
---
```{r 1, include = TRUE, message=FALSE, warning=FALSE}
require(dplyr)
require(knitr)
require(kableExtra)
require(rticles)
Mercury <- c(57900000, 4878, 1416, 88, 0.38, 100, 0)
Venus <- c(108160000, 12104, 5832, 224, 0.9, 480, 0)
Earth <- c(149600000, 12756, 24, 365, 1, 14, 1)
Mars <- c(227936640, 6794, 24, 687, 0.38, -63, 2)
Jupiter <- c(778369000, 142984, 10, 4380, 2.64, -130, 79)
Saturn <- c(1427034000, 120536, 11, 10585, 1.16, -130, 62)
Uranus <- c(2870658186, 51118, 17, 30660, 1.11, -200, 27)
Neptune <- c(4496976000, 49532, 16, 60225, 1.21, -200, 14)
df <- rbind(Mercury, Venus, Earth, Mars, Jupiter, Saturn, Uranus, Neptune)
colnames(df) <- c("DFS", "Diameter","Day","Year","Gravity","Temperature","Moons")
kable(df, caption = "Planetary Statistics.",
booktabs = T, linesep = "", align = "lcccccc", format = "latex") %>%
kable_styling(bootstrap_options = "condensed", latex_options = "striped",
stripe_color = "#D9D8D8") %>%
kable_styling(font_size = 10) %>%
kable_styling(latex_options = "HOLD_position") %>%
footnote(alphabet = "https://www.bobthealien.co.uk/solarsystem/table.htm",
alphabet_title = "Source:", footnote_as_chunk = T) %>%
footnote(alphabet = "average temperature in oC",
alphabet_title = "Temperature:", footnote_as_chunk = T) %>%
footnote(alphabet = "ratio to Earth's gravity",
alphabet_title = "Gravity:", footnote_as_chunk = T) %>%
footnote(alphabet = "time to complete a full rotation around the sun in days",
alphabet_title = "Year:", footnote_as_chunk = T) %>%
footnote(alphabet = "time to complete a full rotation over its axis in hours",
alphabet_title = "Day:", footnote_as_chunk = T) %>%
footnote(alphabet = "in km",
alphabet_title = "Diameter:", footnote_as_chunk = T) %>%
footnote(alphabet = "distance from the sun in km",
alphabet_title = "DFS:", footnote_as_chunk = T)
```