Quarto enables you to weave together content and executable code into a finished document. To learn more about Quarto see https://quarto.org.
When you click the Render button a document will be generated that includes both content and the output of embedded code. You can embed code like this:
Tabela1839 <- read.csv2("Tabela1839.csv")
head(Tabela1839) Ano NE PO RT COI VBPI
1 2007 279814 7457582 1659231384 810631653 1412026744
2 2008 309089 7840906 1977325974 939045979 1663363574
3 2009 299082 7878308 1906535689 850332265 1526494166
4 2010 299862 8387141 2134267813 987434770 1820372707
5 2011 313191 8655946 2424799776 1089635264 2024916936
6 2012 328532 8820350 2624458536 1188254443 2179688843You can add options to executable code like this
library(tidyverse)── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr 1.1.4 ✔ readr 2.1.5
✔ forcats 1.0.0 ✔ stringr 1.5.2
✔ ggplot2 3.5.2 ✔ tibble 3.3.0
✔ lubridate 1.9.4 ✔ tidyr 1.3.1
✔ purrr 1.1.0
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag() masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errorsipca <- read.csv2("ipca.csv")
head(ipca) Mês X
1 set/23 0.26
2 out/23 0.24
3 nov/23 0.28
4 dez/23 0.56
5 jan/24 0.42
6 fev/24 0.83mes <- seq.Date(from = as.Date("2023-09-01"),
to = as.Date("2025-08-01"),
by = "month")
ipca$mes<-mes
class(ipca$ipca)[1] "NULL"class(ipca$Mês)[1] "character"class(ipca$X)[1] "numeric"ggplot(ipca, aes(x = mes, y = X)) +
geom_line(color = "purple", size = 1) +
geom_point(color = "pink", size = 2) +
labs(
title = "Evolução do IPCA",
x = "Mês",
y = "IPCA (%)") +
theme_minimal()Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
ℹ Please use `linewidth` instead.
The echo: false option disables the printing of code (only output is displayed).