-
Notifications
You must be signed in to change notification settings - Fork 20
/
strip_plot.Rmd
167 lines (113 loc) · 6.55 KB
/
strip_plot.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
---
title: "Strip-Plot Design"
output: rmarkdown::html_vignette
vignette: >
%\VignetteIndexEntry{Strip-Plot Design}
%\VignetteEngine{knitr::rmarkdown}
%\VignetteEncoding{UTF-8}
---
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = NA,
warning = FALSE,
message = FALSE
)
```
This vignette shows how to generate a **Strip-Plot Design** using both the FielDHub Shiny App and the scripting function `srip_plot()` from the `FielDHub` package.
## 1. Using the FielDHub Shiny App
To launch the app you need to run either
```{r, eval=FALSE}
FielDHub::run_app()
```
or
```{r, eval=FALSE}
library(FielDHub)
run_app()
```
Once the app is running, go to **Other Designs** > **Strip-Plot Design**
Then, follow the following steps where we show how to generate this kind of design by an example with 6 factors for the horizontal strips, 4 factors for the vertical strips and 3 reps. We will run this experiment in just one location.
## Inputs
1. **Import entries' list?** Choose whether to import a list with entry numbers and names for treatments.
* If the selection is `No`, that means the app is going to generate synthetic data for entries and names of the treatment based on the user inputs.
* If the selection is `Yes`, the entries list must fulfill a specific format and must be a `.csv` file. The file must have the single column `TREATMENT`, containing a list of unique names that identify each treatment. Duplicate values are not allowed, all entries must be unique. In the following, we show an example of the entries list format. This example has an entry list with 10 treatments.
```{r, include=FALSE}
Hplots <- paste0("A", 0:4)
Vplots <- paste0("B", 0:4)
df <- data.frame(list(HPLOTS = Hplots, VPLOTS = Vplots))
```
```{r, echo = FALSE, results='asis'}
library(knitr)
kable(df)
```
2. Input the number of factors for horizontal strips in the **Input # of Horizontal Strips** box. Set it to `6`.
3. Input the number of factors for vertical strips in the **Input # of Vertical Strips** box. Set it to `4`.
3. Select the number of replications of this experiment with the **Input # of Full Reps** box. Set it to `3`.
4. Enter the number of locations in **Input # of Locations**. We will run this experiment over a single location, so set it to `1`.
5. Select `serpentine` or `cartesian` in the **Plot Order Layout**. For this example we will use the default `serpentine` layout.
6. Enter the starting plot number in the **Starting Plot Number** box. If the experiment has multiple locations, you must enter a comma separated list of numbers the length of the number of locations for the input to be valid. For this case, set it to `101`.
7. Enter a name for the location of the experiment in the **Input Location** box. If there are multiple locations, each name must be in a comma separated list. Set it to `"FARGO"`.
8. To ensure that randomizations are consistent across sessions, we can set a random seed in the box labeled **random seed**. In this example, we will set it to `1237`.
9. Once we have entered the information for our experiment on the left side panel, click the **Run!** button to run the design.
## Outputs
After you run a strip-plot design in FielDHub, there are several ways to display the information contained in the field book.
### Field Layout
When you first click the run button on a strip-plot design, FielDHub displays the Field Layout tab, which shows the entries and their arrangement in the field. In the box below the display, you can change the layout of the field.
You can also display a heatmap over the field by changing **Type of Plot** to `Heatmap`. To view a heatmap, you must first simulate an experiment over the described field with the **Simulate!** button. A pop-up window will appear where you can enter what variable you want to simulate along with minimum and maximum values.
### Field Book
The **Field Book** displays all the information on the experimental design in a table format. It contains the specific plot number and the row and column address of each entry, as well as the corresponding treatment on that plot. This table is searchable, and we can filter the data in relevant columns. If we have simulated data for a heatmap, an additional column for that variable appears in the Field Book.
## 2. Using the `FielDHub` function: `strip_plot()`
You can run the same design with a function in the FielDHub package, `strip_plot()`. We can enter the information describing the above design like this:
You can run the same design with a function in the FielDHub package, `strip_plot()`.
First, you need to load the `FielDHub` package typing,
```{r, echo = TRUE}
library(FielDHub)
```
Then, you can enter the information describing the above design like this:
```{r, echo=TRUE}
strip <- strip_plot(
Hplots = 6,
Vplots = 4,
b = 3,
l = 1,
plotNumber = 101,
planter = "serpentine",
locationNames = "FARGO",
seed = 1240
)
```
#### Details on the inputs entered in `strip_plot()` above
The description for the inputs that we used to generate the design,
* `Hplots = 6` is the number of horizontal strips
* `Vplots = 4` is the number of vertical strips
* `b = 3` is the number of reps
* `l = 1` is the number of locations.
* `plotNumber = 101` is the starting plot number.
* `planter = "cartesian"` is the order layout.
* `locationNames = "FARGO"` is an optional name for each location.
* `seed = 1240` is the random seed to replicate identical randomizations.
### Print `strip` object
```{r, echo=TRUE, eval=FALSE}
print(strip)
```
```{r, echo=FALSE, eval=TRUE}
print(strip)
```
### Access to `strip` object
The `strip_plot()` function returns a list consisting of all the information displayed in the output tabs in the FielDHub app: design information, plot layout, plot numbering, entries list, and field book. These are accessible by the `$` operator, i.e. `strip$layoutRandom` or `strip$fieldBook`.
`strip$fieldBook` is a list containing information about every plot in the field, with information about the location of the plot and the treatment in each plot. As seen in the output below, the field book has columns for `ID`, `LOCATION`, `PLOT`, `REP`, `HSTRIP`, `VSTRIP`, and `TRT_COMB`.
```{r, echo=TRUE, eval=FALSE}
field_book <- strip$fieldBook
head(strip$fieldBook, 10)
```
```{r, echo=FALSE, eval=TRUE}
field_book <- strip$fieldBook
head(strip$fieldBook, 10)
```
### Plot the field layout
For plotting the layout in function of the coordinates `ROW` and `COLUMN`, you can use the the generic function `plot()` as follow,
```{r, fig.align='center', fig.width=7.2, fig.height=5.5}
plot(strip)
```
<br>
<br>