Por Caroline Ferreira – Analista Florestal da Geplant
Introdução
A linguagem R é uma poderosa linguagem de programação e ambiente de desenvolvimento estatístico amplamente utilizada por cientistas de dados, estatísticos e pesquisadores em uma variedade de disciplinas. Com uma vasta gama de pacotes e funcionalidades estatísticas, o R oferece uma plataforma flexível e versátil para análise de dados, visualização e modelagem estatística.
Por outro lado, o PowerPoint, como parte do pacote Microsoft Office, é uma ferramenta popular para criação e apresentação de slides. Com sua interface intuitiva e recursos de formatação visual, o PowerPoint é amplamente utilizado em ambientes corporativos, acadêmicos e de pesquisa para comunicar informações de forma clara e eficaz.
Embora o R seja frequentemente usado para análise e visualização de dados, e o PowerPoint para criar apresentações visuais, é possível integrar essas duas ferramentas de maneira eficiente. A integração do R com o PowerPoint oferece uma maneira conveniente de gerar gráficos e resultados analíticos diretamente em apresentações de slides, automatizando o processo de criação de relatórios e apresentações.
Neste tutorial, exploraremos como utilizar o R em conjunto com o PowerPoint para criar apresentações dinâmicas e informativas. Demonstraremos como gerar gráficos e resultados analíticos no R e incorporá-los diretamente em slides do PowerPoint, proporcionando uma abordagem eficiente e automatizada para a criação de apresentações visuais de dados e análises estatísticas.
Template Base
Para iniciar as aplicações no R, primeiramente é necessário criar um template base para usar como modelo das apresentações.
Para início abra uma apresentação em branco, e em seguida vá em exibir e clique em Slide Mestre, é uma função básica que é fundamental utilizar, pois sem ela, não terá como usar o slide criado como base.
Crie como desejar, adicionando caixa de texto, imagem ou figuras.
Uma dica para deixar a automação mais organizada é alterar o título de cada página que você criar, e ao usar o atalho alt+f10 cada caixa de texto, imagem ou figura que você adicionou no slide, terá um nome, ficará mais fácil de organizar se cada um tiver uma palavra-chave para identificar.
Após estabelecer o modelo que você irá usar e criar os nomes e especificações que desejar, abra um novo modelo no r markdown. Ao iniciar o seu projeto, adicionar um título e colocar o diretório do trabalho, adiciona a sua biblioteca os seguintes pacotes:
“rvg, glue, magick, ggplot2, officer, magrittr”
Para ajudar a localizar o nome de cada caixa de texto, e tirar dúvidas de como você digitou, um atalho que pode ajudar é abrir a apresentação no R.
presentation <- read_pptx("template_2especie.pptx") %>% officer::layout_properties()
É fundamental que as imagens que você queira aplicar na apresentação sejam mencionadas em alguma etapa, um ótimo jeito de organizar para não precisar repetir tantas vezes é criar atalhos no começo do script.
logo <- glue::glue(" ")
localizacao <- glue::glue(" ")
caminhão <- glue::glue(" ")
estoque <- glue::glue(" ")
Após estabelecer alguns atalhos que podem te ajudar, e estabelecer quais imagens você irá utilizar pode começar a trabalhar com os slides. Todos se baseiam nesta logica, onde para adicionar uma nova apresentação lembre-se de usar o símbolo “%>%” para dar continuidade.
my_pres <- read_pptx("template_2especie.pptx")
- Para abrir o template que foi estabelecido como modelo.
my_pres <- my_pres %>%
- Dar continuidade na apresentação.
remove_slide(index = 1) %>%
- Função para remover a primeira página, com no slide mestre fica uma primeira página em branco é apenas uma função para deixar mais prático.
add_slide(layout = "capa") %>%
- Adiciona o slide que eu quero com base no nome que eu dei no powerpoint.
ph_with(value = external_img(logo), location = ph_location_label(ph_label = "logo")) %>%
- Em ph_label você estabelece o nome do slide que deseja adicionar e em external_img é qual imagem irá para aquela caixa estabelecida.
ph_with(value = Titulo, location = ph_location_label(ph_label = "Título")) %>%
- Aqui segue a mesma lógica que a imagem, onde a caixa de texto que foi estabelecida como “Título” terá a palavra Título adicionada.
ph_with(value = Empresa, location = ph_location_label(ph_label = "Subtítulo")) %>%
print (my_pres, glue::glue("ttg_frigg_gpt_relatorio_semestral_dez2023.pptx"))
- Função para salvar a apresentação já no formato powerpoint.
Assim é uma função básica, mas que pode agilizar muitos relatórios. Essa pequena etapa foi apenas uma introdução de como adicionar uma capa, para adicionar mais páginas é só substituir o nome do ph_label e assim seguir com a sua automação.