if (FALSE) {
data(winequality.white)
summary(winequality.white)
hist(winequality.white$quality,
main = "White Wine Quality Distribution",
xlab = "Quality Rating",
col = "lightblue")
boxplot(fixed.acidity ~ quality,
data = winequality.white,
xlab = "Quality Rating",
ylab = "Fixed Acidity (g/dm³)",
col = "lightgreen")
if (requireNamespace("corrplot", quietly = TRUE)) {
key_features <- winequality.white[, c("fixed.acidity", "volatile.acidity",
"citric.acid", "alcohol", "quality")]
corr_matrix <- cor(key_features, use = "complete.obs")
corrplot::corrplot(corr_matrix, method = "color", type = "upper",
order = "hclust", tl.col = "black")
}
}
Run the code above in your browser using DataLab