jeffreyiacono · August 29, 2015 14:15
diff --git a/01-plots-with-manual-color-scale.R b/01-plots-with-manual-color-scale.R
 d <- rnorm(1000)

 df <- data.frame(x = seq(1, length(d), by = 1), y = d)
 df$zscore <- (df$y - mean(df$y, na.rm = TRUE)) / sd(df$y, na.rm = TRUE)

 ggplot(df, aes(x = x, y = y, group = abs(zscore) >= 1.95)) + geom_point(aes(color = abs(zscore) >= 1.95))

 ggplot(df, aes(x = x, y = y, group = abs(zscore) >= 1.95)) + geom_point(aes(color = abs(zscore) >= 1.95)) + scale_color_manual(values = c("FALSE" = "grey", "TRUE" = "red"))
diff --git a/02-scatter-without-color-setting.png b/02-scatter-without-color-setting.png
diff --git a/03-scatter-with-color-setting.png b/03-scatter-with-color-setting.png
	d <- rnorm(1000)

	df <- data.frame(x = seq(1, length(d), by = 1), y = d)
	df$zscore <- (df$y - mean(df$y, na.rm = TRUE)) / sd(df$y, na.rm = TRUE)

	ggplot(df, aes(x = x, y = y, group = abs(zscore) >= 1.95)) + geom_point(aes(color = abs(zscore) >= 1.95))

	ggplot(df, aes(x = x, y = y, group = abs(zscore) >= 1.95)) + geom_point(aes(color = abs(zscore) >= 1.95)) + scale_color_manual(values = c("FALSE" = "grey", "TRUE" = "red"))