library(dplyr)

library(beeswarm)

x <- rnorm(100, 100, 100)
y <- rnorm(100, 300, 100)
z <- rnorm(100, 500, 100)

#boxplot(x, y, z)
b01 <- beeswarm(list(x, y, z),
col = c("orange", "blue", "magenta"),
method = "square", pch = 20)
# add = TRUE)

library(reshape2)
head(reshape2::french_fries)
molten = reshape2::melt(reshape2::french_fries,
id.vars=c("time", "treatment", "subject", "rep"),
variable.name="flavor", na.rm=TRUE)
head(molten)
tail(molten)

library(dplyr)

molten2 <- reshape2::french_fries %>%
tidyr::gather(key = time , value = flavor,potato, buttery ,grassy ,rancid ,painty)

#head(reshape2::french_fries)
#head (molten)
head (molten2)