求助：想用ggplot画多样本的散点图

自打脸

求助
想用R语言画散点图
没有真正学过R语言，照着网上别人的代码改了改
但是运行总报错，说是ggplot那一行有不明符号，不知道怎么改
代码和图如下

p1<-read.csv("D://motifpercentage.csv")
windowsFonts("Times New Roman")
library(reshape2)
st <- melt(p1,id.vars="motif-length",value.name="percentage",varible.name="segment")
library(ggplot2)
tiff(filename = "percentage.tiff",width = 15,height = 12,units ="cm",compression="lzw",bg="white",res=300)
ggplot(st,aes(motif-length,percentage)+geom_point()+aes(shape=segment)+theme(panel.background=element_blank(),panel.grid.minor=element_blank(),
axis.line=element_line(size=0.5),legend.title=element_blank())+theme(axis.text.x=element_text(size=15,colour="black"),axis.text.y=element_text(size=15,colour="black"))+xlab("motif-length")+ylab("percentage")
dev.off()

黑熊1990

参数拼写错误：st <- melt(p1,id.vars="motif-length",value.name="percentage",varible.name="segment")中的varible.name改成variable.name即可。