# Exemplo de dados
x <- 1:10
y <- rnorm(10)
z <- c("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")
w <- rpois(10, 1)

# Gráfico de dispersão
plot(x, y, main = "Exemplo de Gráfico de Dispersão", xlab = "X", ylab = "Y")

# Gráfico de barras
barplot(w, names.arg = z, main = "Exemplo de Gráfico de Barras", xlab = "Categorias", ylab = "Contagem")
pdf("grafico1.pdf")
plot(x, y, main = "Exemplo de Gráfico de Dispersão", xlab = "X", ylab = "Y")
dev.off()

pdf("grafico2.pdf")
barplot(w, names.arg = z, main = "Exemplo de Gráfico de Barras", xlab = "Categorias", ylab = "Contagem")
dev.off()