采用如下程序后，
        p0 <- ggplot(data=test_data_long56, aes(x=x, y=value,group=variable,linetype=variable,color=variable, shape=variable)) + geom_point()
        p1 <- p0+geom_line()+xlab(x.name)+ylab(y.name)+
                        scale_y_continuous(limits=c(0.0,1.0),breaks=seq(0,1.0,0.1))+
                        scale_x_continuous(limits=c(0,500),breaks= seq(50,500,50))+

                        scale_linetype_manual(name = NULL,labels = name.lable,values = c(1,3,2,4,6,9))+
                        scale_shape_manual(name = NULL, labels = name.lable,values = c(1,8,4,2,6,9))


示例图在图的右方，如何调整让示例图在图内的左上角？