library(reshape2)
m444 <- melt(m1,id="tim")
m444 <- m444[-(is.null(m444$value)),]
library(ggplot2)
p<- ggplot(m444,aes(variable,value,group=tim))
p+geom_point()+geom_smooth(aes(group=1),span=0.4)
|
楼主: zenchenzxc
|
8594
1
[问答] 怎么获取geom_smooth()画出的线的函数和其相关描述信息 |
|
大专生 53%
-
|
| ||
|
|
加好友,备注cda京ICP备16021002号-2 京B2-20170662号
京公网安备 11010802022788号
论坛法律顾问:王进律师
知识产权保护声明
免责及隐私声明


