Re: 오늘의 마지막 문제. iris2.csv 를 불러와서 iris 데이터 프레임을 만든후에 최대 최소 정규화를 하시오 !

[19기_김진경]

Sepal_Length 최대최소정규화

iris2<-read.csv("c:\\data\\iris2.csv", stringsAsFactors = TRUE)
iris2

# 최대 최소 정규화 함수
min_max_normalize <- function(x) {
  return((x - min(x)) / (max(x) - min(x)))
}

# 정규화된 데이터 추가
iris2$normalized_SLength <- min_max_normalize(iris2$Sepal.Length)


# 다시 히스토그램 비교
hist_before <- ggplot(iris2, aes(x = Sepal.Length)) + 
  geom_histogram(binwidth = 0.15, fill = 'blue', alpha = 0.7) + 
  ggtitle("Before Min-Max Normalization") +
  theme_minimal()

hist_after <- ggplot(iris2, aes(x = normalized_SLength)) + 
  geom_histogram(binwidth = 0.05, fill = 'red', alpha = 0.7) + 
  ggtitle("After Min-Max Normalization") +
  theme_minimal()


# 그래프 출력
library(gridExtra)
grid.arrange(hist_before, hist_after, ncol = 2)