有这样一段程序,在本地运行没有问题,搬到shiny去后,提示
</blockquote>
Error in xy.coords(x, y, xlabel, ylabel, log) :
argument "x" is missing, with no default
不知道到底哪里出错了,求指点
ck794 <- c(rep(0.5,11),0,0)
ck7634 <- c(8,7.9,7.9,8.0,8.0,7.9,8.2,9.3,9.4,9.1,7.4,0,0)
ck682 <-c(rep(0,11),5.4,0.8)
x <- c(1,15,22,30,42,52,62,74,84,93,102,108,118)
data <- data.frame(ck794,ck7634,ck682,x)
library(plyr)
data2 <- ddply(data,'x',transform,total=ck794+ck7634+ck682,baseline=0)
# png(width = 1000,height = 250)
op <- par(pin=c(8,1.3),ann = FALSE,bg='white',cex=0.75,oma=c(3,1,1,1))
plot(x=data2$x,y=data2$baseline,type='l',xlim=c(0,max(data2$x+2)),ylim=c(0,max(data2$total)+2),panel.fist=grid(8,8),axes=FALSE)
lines(x=data2$x,y=data2$total)
segments(1,0,1,8.5)
segments(108,0,102,7.9)
segments(118,0,118,0.8)
lines(x=data2$x,y=data2$ck794)
abline(v=data2$x,col='white',lty='dashed')
text(x = data2$x,y = max(data2$total),labels = as.character(data2$x),adj = 0.5,pos = 3,srt=45,col='blue')
mtext(side = 1,line=1,text =as.character(1:length(data2$x)),at = data2$x,col='blue')
mtext(side = 1,line=2,text ='TOTAL',at = 0,col='red')
mtext(side = 1,line=3,text =as.character(data2[,'total']),at = data2$x)
mtext(side = 1,line=4,text =names(data2[1]),at = 0,col='red')
mtext(side = 1,line=5,text =as.character(data2[,3]),at = data2$x)
mtext(side = 1,line=6,text =names(data2[2]),at = 0,col='red')
mtext(side = 1,line=7,text =as.character(data2[,2]),at = data2$x)
mtext(side = 1,line=8,text =names(data2[3]),at = 0,col='red')
mtext(side = 1,line=9,text =as.character(data2[,1]),at = data2$x)
par(op)
# dev.off()