사원들간의 관계도 시각화

[결과물]

1

2

[코드]

## 1 igraph 패키지 사용

install.packages("igraph")

library(igraph)

emp <- read.csv("emp.csv")

a <- merge(emp, emp, by.x="mgr", by.y="empno")[ , c("ename.x", "ename.y")]

a

b <- graph.data.frame(a, directed = T)

plot(b)

## 2 - googleVis 패키지 사용

install.packages("googleVis") library(googleVis) a <- merge(emp,emp, by.x="empno",by.y="mgr", all.y=T) org <- gvisOrgChart(a, idvar="ename.y",parentvar="ename.x",      options=list(width=600, height=250, size='middle',allowCollapse=T)) plot(org)