... bob<-gather(bob,pop,fd,c(fd_1,fd_2,fd_3,fd_4)) ggplot(bob,aes(y=fd,x=mb,color=pop))+geom_line()+scale_color_manual(values=viridis(4)).
確定! 回上一頁