png("scatterplot.png", 1000, 900)
set.seed(123131)
n = 10
#cols = sample(c("red", "blue"), 10, replace = TRUE)
y <- rnorm(n, 150)
plot(1:n, pch = "0", y, xlab = "Index", ylab = "Normal Values")
dev.off()
#saveRDS(z, "scatterplotValues.rds")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.