[R시각화] 평행좌표그림 (여러 데이터의 시간의 따른 변화)

아래와 같은 데이터가 있다고 합시다. A,B,C 세 반이 있각 습니다. 각 반에서 세명의 학생의 수학점수데이터를 입력했습니다. (데이터는 글 뒷부분에 첨부하였습니다.)

 

데이터를 R에서 불러와봅시다. 경로는 여러분이 파일을 저장한 경로를 입력하셔야 됩니다. 데이터를 불러온 뒤에, as.data.frame 함수를 이용하여 데이터의 형식을 데이터프레임으로 변환합니다. 처음에 불러온 데이터의 형식은 'tibble'입니다. tibble 형식을 data.frame  으로 바꾼 것입니다. 

 

library(readxl)
data <- read_excel("C:/Users/Desktop/data_parallelplot.xlsx")
data=as.data.frame(data)

 

데이터를 열어봅시다. 

 

> data
    ...1 class 2017 2018 2019 2020
1 김재준     A   90   94   44   46
2 강지환     A   53   50   63   46
3 오형지     A   69   59   87   91
4 우희선     B   73   60   90   48
5 김창수     B   69   58   55   83
6 신지수     B   52   53   42   47
7 김수찬     C   58   84   93   56
8 정우철     C   49   70   80   95
9 감상태     C   75  100   67   94

 

parallelplot 함수를 적용해봅시다. 아래와 같이 적용합니다. 

 

parallelplot(~data[3:6]|class, data,
             layout=c(3,1),)

 

각 사람의 이름을 표시하고, 색을 각각 다르게 하고, 최대 최소값에 숫자를 넣고 싶은데 아직 방법을 모르겠다. help에도 자세히 나와있지가 않다. R lattice에 대해 잘 정리된 자료나 책을 구해서 공부를 해봐야겠다.