p <- ggplot(seals, aes(long, lat)) + geom_segment(aes(xend = long + delta_long ... label = paste(lineend, linejoin))) + geom_segment( lineend = df2$lineend, ...
確定! 回上一頁