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: [email protected]
affiliation: Some Institute of Technology
footnote: 1
- name: Bob Security
email: [email protected]
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)
```
elsevier-harvard.csl
Description: Binary data
Planetary_statistics.Rmd
Description: Binary data
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
