Re: 오늘의 마지막 문제. SQL 포트폴리오 때 했던 데이터를 이용해서 오늘 배운 내용으로...

[19기_노승욱]

house.csv 를 h 로 만든 후
자치구명 별 최대 금액을 가로 출력한 후
막대그래프로 시각화 하세요!

setwd("c:\\data")
h <- read.csv("house.csv",header=T,fileEncoding="euc-kr")

h
b <- tapply(h$물건금액, h$자치구명, max)
b
barplot(b,col=rainbow(26),legend=rownames(b),beside=T,density=50)