Color in stripchart

Hello there again,

Sorry, I missed that part in the middle 
about set.seed.  As per [1], you need to 
run stripchart again with the add 
argument set to TRUE, and slicing the df 
according to the color, like so

	set.seed(20210310)
	years <- sample(x=seq(2011, 2018), size = 365*8, replace = TRUE)
	values <- sample(x=seq(0,100), size = 365*8, replace = TRUE)
	df <- data.frame(year = years, value = values)
	df$color <- 'black'
	df[df$value<33,]$color <- 'blue'
	df[df$value>66,]$color <- 'red'
	
	stripchart(value ~ year, pch=18, method='stack', data=df)
	for (color in unique(df$color)) {
	  stripchart(value ~ year, pch=18, method='stack', data=df[df$color==color,], col=color, add=TRUE)
	}

Best,
Rasmus

[1] https://stackoverflow.com/questions/32833210/define-color-for-each-datapoint-in-a-stripchart-separately