barley_slopes <- function(data, textsize = 3) { p <- ggplot(data, aes(x = year, y = avg_yield, group = site)) + geom_line() p + geom_text_repel(aes(label ...
確定! 回上一頁