knitr::kable() para pdf como aumentar o tamanho da fonte do caption?

7 Fev 2020

      Olá pessoal,

Paz e bem,

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.

[image: T1.png]
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)
```

Paulo Eduardo de Mesquita

Cesar Rabak

etiquetas

participantes (2)