[R분석] barplot 집단별 색상 구분표시 with 레전드 legend

 age_diff.csv

ad <- read.csv("age_diff.csv")

ad$rcouples <- ad$rcouples * 100 / sum(ad$rcouples)

barplot(ad$rcouples, col=ifelse(as.numeric(row.names(ad)) <=4, "lightblue", ifelse(as.numeric(row.names(ad)) ==5, "purple2", "pink")), names.arg=ad$agediff, cex.axis=1.2, cex.names=1.2 )

legend( 7.5, 22 , pt.cex = 3

         , legend = c("", "")

         , inset = c(0,0.1) 

         , bty = "n"

         , pt.bg = c("lightblue","pink")

         , pch = c(22,22))

 legend( 7, 23.5 , cex = 1.2

         , legend = c("남성연상", "여성연상")

         , bty = "n" )

age_diff.csv

0.0MB