[R] 시각화

산점도(scatterplot)

plot(x,y)

ggplot(data=airquality,
       aes(x=Ozone, y=Temp))+
  geom_point(size=3, col="red")

그래프 보기

---

산점도 행렬(scatterplot matrix)

pairs()

pairs(my_mpg[c(3,12)])

그래프 보기

psych::pairs.panels()

pairs.panels(my_mpg[c(3,12)])

그래프 보기

숫자는 상관관계 계수 |0.4| 이상이면 유효한 값

---

파이 그래프(pie)

pie.dt <- c(0.05, 0.45, 0.15, 0.35)
names(pie.dt) <- c("purple", "white", "green", "red")
pie(pie.dt, col=names(pie.dt))

그래프 보기

---

막대 그래프(bar)

x값만 필요!

barplot()

barplot(my_grade, main = "자동차 등급비율",
        xlab = "등급",
        ylab = "빈도",
        col = cc)
cc <- c("lightblue", "navy", "darkred", "lavender")

그래프 보기

descr::freq()

install.packages("descr")
descr::freq(my_mpg$grade,          # plot + 값 출력
            main="자동차 등급비율")

그래프 보기

> descr::freq(my_mpg$grade,  # plot + 값
+             main="자동차 등급비율")
my_mpg$grade 
       Frequency Percent
ex             4   1.709
good         109  46.581
normal        91  38.889
poor          30  12.821
Total        234 100.000

ggplot()

ggplot(data=mtcars, aes(x=factor(cyl)))+
  geom_bar(aes(fill=factor(gear)))

그래프 보기

---

sunburst

ggplot(data=mtcars, aes(x=factor(cyl)))+
  geom_bar(aes(fill=factor(gear)))+
  coord_polar()
ggplot(data=mtcars, aes(x=factor(cyl)))+
  geom_bar(aes(fill=factor(gear)))+
  coord_polar(theta = "y")

그래프 보기

---

히스토그램(histogram)

plot()

plot(airquality$Ozone, col="blue", type="h")

그래프 보기

hist()

hist(airquality$Ozone)

그래프 보기

ggplot()

ggplot(data=airquality, aes(Ozone))+
  geom_histogram(binwidth = 1.5)

그래프 보기

---

상자수염그림 (Box plot)

boxplot()

boxplot(my_mpg$cty, my_mpg$hwy,
        main = "연비비교(cty, hwy)",
        names = c("도심", "고속도로"),
        col = c("red", "yellow"))

그래프 보기

ggplot()

ggplot(data = my_mpg, aes(x=drv, y=(cty+hwy)/2),
       group=drv)+
  geom_boxplot()

그래프 보기