#
# Zad 7 A Dla 'popiopłu'
#
plot(wina.5_mod$Ash, main = 'Wykres wartości zmiennych, oddalenia, mediany dla zawartości popiołu', xlab = 'Liczność', ylab = 'Wartość')
points(q, type="p", col="red", lwd = 2)
lines(mean(wina.5_mod$Ash))
abline(h = mean(wina.5_mod$Ash), col = "yellow", lwd = 5)
abline(h = median(wina.5_mod$Ash), col = "green", lwd = 1)

#
# Zad 7 B
#
hist(wina.5_mod$Alcohol, 15, main='Zawartość alkoholu', xlab='Zawartość alkoholu w %', ylab='Ilość', col="pink")
hist(wina.5_mod$Ash, 30, main='Popiół', xlab='Popiół', ylab='Ilość', col="red")
hist(wina.5_mod$Alcalinityofash, 20, main='Alkaliczność', xlab='%', ylab='Ilość', col="purple")
hist(wina.5_mod$Total_phenols, 20, main='Zawartość fenoli', xlab='mg', ylab='Ilość', col='orange')
hist(wina.5_mod$Magnesium, 40, main='Zawartość magnezu', xlab='mg', ylab='Ilość', col="purple")

#
# Zad 7 C
#

boxplot(wina.5_mod$Alcohol,wina.5_mod$Ash, wina.5_mod$Alcalinityofash,wina.5_mod$Total_phenols, main='Wykres pudełkowy', xlab='Cechy', ylab='Liczebności', names = c('Alkohol','Mętność','Alkaliczność', 'Fenole'), col = 'yellow')
boxplot(wina.5_mod$Magnesium, main='Magnez', xlab='Magnez', ylab='Wykres pudełkowy', col = 'yellow')

#
# Zad 7 D
#
plot(wina.5_mod$Magnesium, wina.5_mod$Alcohol, main='Para - Magnez - Alkohol', ylab = 'Magnez', xlab = 'Alkohol', col="red")
abline(lm(wina.5_mod$Magnesium ~ wina.5_mod$Alcohol), col="red", lwd=5.5)
plot(wina.5_mod$Total_phenols, wina.5_mod$Alcalinityofash, main='Para - Fenole - Alkaliczność', ylab = 'Fenole', xlab = 'Alkaliczność', col="orange")
plot(wina.5_mod$Ash, wina.5_mod$Alcohol, main='Para - Popiół - Alkohol', ylab = 'Popiół', xlab = 'Alkohol', col="violet")