p1<-ggplot(data.r2,aes(x=abs(r),y=Variable,
colour=factor(type),
shape=factor(type)))+
geom_point(size=3)+
geom_line(orientation = "y",size=1,
aes(group=type)) ###orientation 更改为y,否则以x轴顺序连接。
p1<-ggplot(data.r2,aes(x=abs(r),y=Variable,
colour=factor(type),
shape=factor(type)))+
geom_point(size=3)+
geom_line(orientation = "y",size=1,
aes(group=type)) ###orientation 更改为y,否则以x轴顺序连接。