title: “R Notebook”

output: html_notebook

library(ggplot2)
library(foreign)
glass <- read.arff('glass.arff')
glass %>% glimpse()


ggplot(glass) + geom_density(aes(K, col=Type), adjust = 5)

ggplot(glass) + geom_density(aes(K, group=Type, col=Type), adjust = 5)