This website serves as a reference for the R scripting in Data Science.

my.picker <- picker(as.list(names(mtcars)), initial = 'cyl')
manipulate(qplot(y=mpg, x = eval(parse(text = pick)), data = mtcars, geom = 'point'), pick = my.picker)