View(BMI)
str(BMI)
BMI$religion <- factor(BMI$religion,
levels=c("Bu", "C1", "C2","No"),
labels=c("불교", "개신교", "가톨릭", "없음"))
# 범주형 관측항목 추가
BMI$종교 <- factor(BMI$religion,
levels=c("Bu", "C1", "C2","No"),
labels=c("불교", "개신교", "가톨릭", "없음"))
# 범주형 관측항목 추가
BMI$종교 <- factor(BMI$religion,
levels=c("Bu", "C1", "C2","No"),
labels=c("불교", "개신교", "가톨릭", "없음"))
BMI$종교 <- factor(BMI$religion,
levels=c("Bu", "C1", "C2","No"),
labels=c("불교", "개신교", "가톨릭", "없음"))
# 범주형 관측항목 추가
BMI$종교_1 <- factor(BMI$종교,
levels=c("Bu", "C1", "C2","No"),
labels=c("불교", "개신교", "가톨릭", "없음"))
str(BMI)
# 범주형 관측항목 추가
BMI$종교_1 <- factor(BMI$종교,
levels=c("Bu", "C1", "C2","No"),
labels=c("불교", "개신교", "가톨릭", "없음"))
str(BMI)
# 범주형 관측항목 추가
BMI$종교_1 <- factor(BMI$종교,
levels=c("Bu", "C1", "C2","No"),
labels=c("불교", "개신교", "가톨릭", "없음"))
str(BMI)
# 범주형 관측항목 추가
BMI$종교_1 <- factor(BMI$종교,
levels=c("Bu", "C1", "C2","No"),
labels=c("불교", "개신교", "가톨릭", "없음"))
str(BMI)
# 범주형 관측항목 추가
BMI$종교_1 <- factor(BMI$종교,
levels=c("Bu", "C1", "C2","No"),
labels=c("불교", "개신교", "가톨릭", "없음"))
str(BMI)
# 범주형 관측항목 추가
BMI$종교_1 <- factor(BMI$종교,
levels=c("Bu", "C1", "C2","No"),
labels=c("불교", "개신교", "가톨릭", "없음"))
str(BMI)
table(BMI$종교)
table(BMI$종교_1)
barplot(table(BMI$종교_1), col=1:4)
barplot(table(BMI$종교_1), col=1:4, main='종교대이터의 인원수')
barplot(table(BMI$종교_1), col=1:4, main='종교대이터의 인원수',ylab = ;'명',xlab='종교', sub='본그래프는 종교의 인원수를 나타내는 그래프_전북대학교_2026_평생교육유ㅗㄴ')
barplot(table(BMI$종교_1), col=1:4, main='종교대이터의 인원수',ylab = '명',xlab='종교', sub='본그래프는 종교의 인원수를 나타내는 그래프_전북대학교_2026_평생교육원')
View(m3)
# 시각화
par(family = "AppleGothic")
barplot(table(BMI$종교_1), col=1:4, main='종교대이터의 인원수',ylab = '명',xlab='종교', sub='본그래프는 종교의 인원수를 나타내는 그래프_전북대학교_2026_평생교육원')
BMI$판정 <- ordered(BMI$등급,
levels=seq(1,5),
labels=c("저체중", "정상", "과체중", "초기비만", "비만"))
table(BMI$판정)
barplot(table(BMI$판정), col=1:5,
main='BMI 판정',ylab = '명',xlab='등급',
sub='본그래프는 BMI의 인원수를 나타내는 그래프_전북대학교_2026_평생교육원')