와인리스트 알코올 농도 분포
-히스토그램
#1. 데이터 불러오기
wine <- read.csv("wine2.csv", header=T, fileEncoding = "euc-kr")
wine
Alcohol <- wine$Alcohol
# 평균값, 중앙값, 최빈값 계산 함수
calculate_stats <- function(data) {
mean_value <- mean(data)
median_value <- median(data)
mode_value <- density(data)$x[which.max(density(data)$y)]
return(list(mean = mean_value, median = median_value, mode = mode_value))
}
# 통계량 계산
alcohol_stats <- calculate_stats(Alcohol)
# 1. 대칭분포 그래프 그리기
hist(Alcohol, breaks=30, col="#A95783", border="white", prob=TRUE, main="알코올 농도", xlab="값", ylab="밀도")
lines(density(Alcohol), col="red") # 확률 밀도 함수 그래프
abline(v=alcohol_stats$mean, col="blue", lwd=2, lty=2) # 평균값
abline(v=alcohol_stats$median, col="green", lwd=2, lty=2) # 중앙값
abline(v=alcohol_stats$mode, col="purple", lwd=2, lty=2) # 최빈값
그래프 해석:
대부분의 와인의 알코올 농도가 12 ~ 14 도 범위의 농도를 가지고 있으며 이는 많은 와인이 이 범위내에 있음을 의미합니다.
11.5 이하 14.5 이상의 알코올 농도를 가지는 와인도 존재하고 있음이 보입니다.