ggplot散点图绘制多数据组代码疑问

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()

很有可能是括号不匹配，仔细检查。
也可以拆开写，更清晰些。