Re: 😄 문제5. (오늘의 마지막 문제) 위의 결과를 막대 그래프로 시각화 하시

[20기_서상원]

colors <- c("skyblue", "sienna", "moccasin", "gold")
barplot(x2, 
        col=colors,
        density=70,
        xlab = "loc",
        ylab = "sal",
        main = "Total sal")
legend("topright", inset=c( 0.6, -0.01), legend=rownames(x2), 
       fill=colors,density=50,bty='n')