좌표변환 편하게 하시려면 sf 패키지 내 st_transform 함수를 활용하시면 좋을듯 하구요.
crs가 5179로 보이는데 5179에서 4326과 같은 위경도로 변환해서 활용하시면 더 간편하실듯 해요.

예시는.
x = st_read("*.shp")
x_transform = st_transform(x, crs = 5179)