pachevalier · May 7, 2014 17:05
diff --git a/sample.R b/sample.R
 library("ggplot2")
 set.seed(1234)
 N  <- 100
 df  <- data.frame(i = 1:N, x = rnorm(N))
 df$y  <- 1 + df$x + rnorm(N)
 df$z  <- (runif(N) < .3)

 pdf("output/test.pdf")
 ggplot(data = df, aes(x = x, y = y, shape = z)) + 
  geom_point(size = 3) + 
  scale_shape_manual(values = c(16,1))
 dev.off()
diff --git a/test.svg b/test.svg
	library("ggplot2")
	set.seed(1234)
	N <- 100
	df <- data.frame(i = 1:N, x = rnorm(N))
	df$y <- 1 + df$x + rnorm(N)
	df$z <- (runif(N) < .3)

	pdf("output/test.pdf")
	ggplot(data = df, aes(x = x, y = y, shape = z)) +
	geom_point(size = 3) +
	scale_shape_manual(values = c(16,1))
	dev.off()
No results found