农业试验设计中绘制田间种植图的方法

# Install the released version from CRAN:
install.packages("desplot")

# Install the development version from GitHub:
# install.packages("devtools")
devtools::install_github("kwstat/desplot")

library(agricolae)
cul = paste0("cul",1:10)
r= 3

book = design.crd(cul,r)$book
book$row = rep(1:5,each=6)
book$col = rep(1:6,5)

library(desplot)
desplot(cul~row+col,data=book,main=("单因素试验设计田间种植图"))

library(agricolae)
cul = paste0("cul",1:10)
r= 3

book = design.rcbd(cul,r)$book
book$row = rep(1:5,each=6)
book$col = rep(1:6,5)

library(desplot)

desplot(cul~row+col,data=book,out1=block,main=("单因素随机区组试验田间种植图"))

library(agridat)library(desplot)
data(ryder.groundnut)
gnut <- ryder.groundnut

head(gnut)

desplot(wet~row+col,text=gen,cex=1,data=gnut,main="单因素随机区组田间种植图")

require(agridat)require(desplot)
desplot(block ~ col+row, yates.oats,
        col=nitro, text=gen, cex=1,main="裂区试验设计种植图",
        out1=block, out2=gen)

data(nonnecke.sweetcorn.uniformity)
dat <- nonnecke.sweetcorn.uniformityrequire(desplot)
desplot(yield~col*row|loc, dat,main="一年多点试验")