Color points according to column

General
5 
set.seed(42)
df = data.frame(V1=sample.int(10,100,replace=TRUE), V2=runif(100,0,1))

df$col <- RColorBrewer::brewer.pal(n=10, name="RdYlBu")[df$V1]
head(df)
library(dplyr)

group_by(df,V1) %>% group_walk(~{stripchart(pull(.,V2), method="jitter", 
                                          col=I(pull(.,col)),
                                          vertical=TRUE, pch=19,
                                          add=min(pull(.,V1))!=1,
                                          cex=0.8, jitter=0.2, at=1)},
                               .keep=TRUE)

image