agricolaeplotr (version 0.6.1)

full_control_positions: full_control_positions

Description

This function provides full control about the plotting. The user also may shift the coordinates as liked.

Usage

full_control_positions(
  design,
  x = "col",
  y = "row",
  factor_name = "trt",
  labels = "plots",
  width = 1,
  height = 1,
  space_width = 0.95,
  space_height = 0.85,
  reverse_y = FALSE,
  reverse_x = FALSE,
  way_x = 0,
  way_y = 0,
  shift_columns = 0,
  shift_rows = 0,
  shift_x = 0,
  shift_y = 0,
  dist_x = 1,
  dist_y = 1,
  n_shift_columns = 0,
  n_shift_rows = 0,
  start_origin = FALSE
)

Value

ggplot graphic that can be modified, if wished

Arguments

design

data.frame containing the row and columns of an experiment

x

Describes the x coordinates of a experiment design

y

Describes the y coordinates of a experiment design

factor_name

string Which factor should be used for plotting, needs to be a column in outdesign$book

labels

string Describes the column from that the plots are taken to display them

width

numeric value, describes the width of a plot in an experiment

height

numeric value, describes the height of a plot in an experiment

space_width

numeric value, describes the share of the space of the plots. 0=only space, 1=no space between plots in term of width

space_height

numeric value, describes the share of the space of the plots. 0=only space, 1=no space between plots in term of height

reverse_y

boolean, should the plots of the experiment be changed in reverse order in Row direction? use reverse_y=TRUE to have same sketch as in agricolae. default:reverse_y=FALSE

reverse_x

boolean, should the plots of the experiment be changed in reverse order in column direction? default:reverse_x=FALSE

way_x

numeric vector indicates the shift of the nth-plot in x-axis.

way_y

numeric vector indicates the shift of the nth-plot in y-axis.

shift_columns

numeric indicates the shift of the given plots of a specific row by n units in x-axis.

shift_rows

numeric indicates the shift of the given plots of a specific column by n units in y-axis.

shift_x

numeric indicates the shift in units in x-axis.

shift_y

numeric indicates the shift in units for the y-axis.

dist_x

numeric indicates the shift in plots in x-axis.

dist_y

numeric indicates the shift in plots for the y-axis.

n_shift_columns

numeric vector indicating the number of plots of shift_columns. negative number indicate shift to left, otherwise right

n_shift_rows

numeric vector indicating the number of plots of shift_rows. negative number indicate shift to left, otherwise right

start_origin

boolean. Should the design start at the origin (0|0)?

Examples

library(agricolaeplotr)
library(agricolae)
library(ggplot2)
varieties<-c('perricholi','yungay','maria bonita','tomasa')
outdesign <-design.youden(varieties,r=2,serie=2,seed=23)
design <- outdesign$book
design
p <- full_control_positions(design,"col","row","varieties","plots",
                       width=3,height=4.5,
                       space_width=0.5,space_height=0.5,
                       shift_x=(-0.5*3) + (-0.5*3*0.5),shift_y=-0.5*4.5 + (-0.5*4.5*0.5))
p
p <- full_control_positions(design,"col","row","varieties","plots",
                       width=3,height=4.5,
                       space_width=0.13,space_height=0.445,
                       shift_x=(-0.5*3) + (-0.5*3*(1-0.13)),shift_y=-0.5*4.5 + (-0.5*4.5*(1-0.445)))
                       p

varieties<-LETTERS[1:12]
outdesign <-design.youden(varieties,r=12,serie=2,seed=23)
design <- outdesign$book
p <- full_control_positions(design,"col","row","varieties","plots",
                       width=3,height=4.5,
                       space_width=1,space_height=1,
                       shift_x=-0.5*3,shift_y=-0.5*4.5)
p

p <- full_control_positions(design,"col","row","varieties","plots",
                       width=3,height=4.5,
                       space_width=0.93,space_height=0.945,
                       start_origin = TRUE)
                       p

p <- full_control_positions(design,"col","row","varieties","plots",
width=3,height=4.5,
space_width=0.93,space_height=0.945,way_x = c(2,6,8,10,12),way_y=c(3,8),dist_x=2,dist_y=4,
start_origin = TRUE, reverse_y = FALSE,  reverse_x = FALSE);p

p <- full_control_positions(design,"col","row","varieties","plots",
                                    width=3,height=4.5,
                                    space_width=0.93,space_height=0.945,
                                    way_x = c(2,4,6,8,10,12),way_y=c(3,8),
                                    start_origin = FALSE, reverse_y = FALSE,
                                    reverse_x = FALSE);p
p <- full_control_positions(design,"col","row","varieties","plots",
                                    width=3,height=4.5,shift_columns=c(4,8),
                                    shift_rows=c(3,5,9),
                                    n_shift_columns=c(1,5),
                                    n_shift_rows=c(1,-2,6),
                                    space_width=0.93,space_height=0.945,
                                    way_x = c(2,4,6,8,10,12),way_y=c(3,8),
                                    start_origin = TRUE, reverse_y = FALSE,
                                    reverse_x = FALSE);p