Exporte a figura anterior com as seguintes informações:
~
);Verifique se o arquivo foi criado corretamente na pasta desejada.
require(ggplot2) N <- 100 vec <- rnorm(N) df <- dplyr::tibble( y = vec, x = 1:N, type = sample(c("A", "B"), size = N, replace = TRUE) ) p <- ggplot(df, aes(x = x, y = y, color = type, label = type)) + #geom_point(aes(size = x)) + labs(title = "TÍTULO", subtitle = "SUBTÍTULO", caption = "CAPTION", x = "texto X", y = "texto Y") + geom_line() + geom_text() + colorspace::scale_colour_discrete_qualitative("Harmonic") f_png <- "~/fig-eoc-vdr.png" ggsave(filename = f_png, plot = p, height = 10, width = 10, units = "cm") fs::file_exists(f_png)
extype: string
exsolution: r mchoice2string(c(TRUE, FALSE, FALSE, FALSE, FALSE), single = TRUE)
exname: "ggplot 09"
exshuffle: TRUE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.