오류는 값이 하나만있는 어업 ( "vicwzAba")이 하나 있기 때문입니다 NA
.
table(lobaba_aba$fishery)
## nswAba nzP2 nzP3 nzP4 nzP5A nzP5B nzP5D
## 22 22 22 22 22 22 22
## nzP7 saczBL saczGL saszfdaBL sasznfdaBL sawzaBL sawzaGL
## 22 22 22 7 7 22 22
## sawzbBL sawzbGL tasAba viccz vicez vicwz vicwzAba
## 22 22 22 22 22 21 1
그 어업을 제거하면 오류가 수정됩니다. 코드에서 생성 된 플롯이 원하는 내용에 맞는 것 같습니다. 그들은 y 축에 독립적 인 눈금을 가지고 있으며 시간에 따른 각 어업을 보여줍니다.
dat <- lobaba_aba[lobaba_aba$fishery != "vicwzAba",]
p <- ggplot(data = dat, aes(x = season, y = cpue, colour = fishery)) +
geom_line() + facet_grid(fishery ~ ., scales = "free", as.table = TRUE)
p
p %+% aes(y = tac)
출처
https://stackoverflow.com/questions/22006854