按照一个博主的代码做的REmap迁移图 数据线总有问题错误 折腾好久了 求求大家看看是什么问题？

province <- mapNames("china")            #全国省份
value <- round(rnorm(34,1000,30),0)      #随机生成分省值
mydata <- data.frame(province,value)     #合并数据
labelper<-mydata[order(mydata[,"value"],decreasing=T),][1:10,]
origin<-rep("广州",length(labelper))
destination<-labelper$province
line_data<-data.frame(origin,destination)
map_out1 <- remapC(mydata,
                  maptype = "china",
                  title="人口迁徙地图",
                  theme = get_theme("Drak"),
                  color=c("#CD0000","#FFEC8B"),   
                  markLineData=line_data,   
                  markLineTheme=markLineControl(
                  color="white", 
                  lineWidth=2, 
                  lineType="dashed"  
                  ),
                  markPointData=line_data[2],
                  markPointTheme=markPointControl(
                  symbolSize=13,  
                  effect=T,           
                  effectType="scale",    
                  color="white"
                  )
                   )                             
plot(map_out1)