require(emmeans)
lollipoPlot(values=feedlot[,4],pt.col="green",pt.lwd=2,lwd=0.8,col="gray20",
ylab="swt",xlab="samples")
line.col<-sample(colors()[-1],length(levels(feedlot[,1])))
line.col<-rep(line.col,times=table(feedlot[,1]))
lollipoPlot(values=feedlot[order(feedlot[,1]),3],ylab="ewt",xlab="samples",
bg=as.numeric(as.factor(feedlot[order(feedlot[,1]),2])),
cex=1.2,pch=21,col=line.col)
lollipoPlot(values=feedlot[order(feedlot[,1]),3:4],type="h",ylab="ewt",xlab="samples",
pt.col=c("blue","cyan"),cex=1.2,pch=c(3,4),col=line.col)
lollipoPlot(values=feedlot[order(feedlot[,1]),3:4],type="h",ylab="ewt",xlab="samples",
bg=cbind(line.col,line.col),cex=c(1.2,1),pch=c(21,22))
Run the code above in your browser using DataLab