Vẽ biểu đồ line cho nhiều đối tượng theo năm

Biểu đồ line theo năm cho các đối tượng khác nhau (panel data)

setwd("D:/Dropbox/Nghien cuu dinh luong/Dao tao/Bai giang/Khoa hoc R")
pan<-read.csv("Panel data ve hinh.csv")
library(tidyverse)

## Loading tidyverse: ggplot2
## Loading tidyverse: tibble
## Loading tidyverse: tidyr
## Loading tidyverse: readr
## Loading tidyverse: purrr
## Loading tidyverse: dplyr

## Conflicts with tidy packages ----------------------------------------------

## filter(): dplyr, stats
## lag():    dplyr, stats

ggplot(pan,aes(x=year,y=GCR,col=id,shape=id))+geom_line()+geom_point(size=4)+labs(x="Year",y="Growth Credit",title="Biểu đồ̀ pan",subtitle="unit: %",caption="nguồn: nghiencuudinhluong.com")