C <- c(Y = 0, N = 19)
P <- c(Y = 0, N = 3)
BCSE <- c(Y = 1, N = 26)
BD <- c(Y = 0, N = 2)
BWPA <- c(Y = 0, N = 34)
CALF <- c(Y = 1, N = 44)
CBQ <- c(Y = 0, N = 81)
CCO <- c(Y = 0, N = 55)
CR <- c(Y = 2, N = 214)
CVC <- c(Y = 0, N = 58)
CW <- c(Y = 1, N = 36)
DO <- c(Y = 1, N = 60)
FR <- c(Y = 1, N = 18)
GR <- c(Y = 1, N = 225)
GSM <- c(Y = 1, N = 61)
HD <- c(Y = 0, N = 299)
JR <- c(Y = 16, N = 48)
JTCO <- c(Y = 0, N = 117)
JTWS <- c(Y = 0, N = 80)
KC <- c(Y = 21, N = 88)
KIRK <- c(Y = 2, N = 75)
LM <- c(Y = 8, N = 42)
MCO <- c(Y = 0, N = 6)
ML <- c(Y = 0, N = 1)
MMM <- c(Y = 2, N = 27)
MTCR <- c(Y = 2, N = 22)
NCC <- c(Y = 8, N = 42)
OM <- c(Y = 0, N = 15)
OR <- c(Y = 6, N = 52)
OV <- c(Y = 0, N = 2)
PV <- c(Y = 1, N = 235)
RL <- c(Y = 0, N = 10)
SCPA <- c(Y = 0, N = 4)
SQC <- c(Y = 0, N = 49)
SRG <- c(Y = 0, N = 26)
SV <- c(Y = 2, N = 48)
TPO <- c(Y = 0, N = 83)
TRCH <- c(Y = 1, N = 20)
UTVF <- c(Y = 0, N = 18)
VEYO <- c(Y = 0, N = 80)
VRHS <- c(Y = 0, N = 64)
WINK <- c(Y = 0, N = 22)

all.genotypes <- c("C", "P",    "BCSE", "BD",   "BWPA", "CALF", "CBQ",  "CCO",  "CR",   "CVC",  "CW",   "DO",   "FR",   "GR",   "GSM",  "HD",   "JR",   "JTCO", "JTWS", "KC",   "KIRK", "LM",   "MCO",  "ML",   "MMM",  "MTCR", "NCC",  "OM",   "OR",   "OV",   "PV",   "RL",   "SCPA", "SQC",  "SRG",  "SV",   "TPO",  "TRCH", "UTVF", "VEYO", "VRHS", "WINK")

all.herbivory <- c(C,   P,  BCSE,   BD, BWPA,   CALF,   CBQ,    CCO,    CR, CVC,    CW, DO, FR, GR, GSM,    HD, JR, JTCO,   JTWS,   KC, KIRK,   LM, MCO,    ML, MMM,    MTCR,   NCC,    OM, OR, OV, PV, RL, SCPA,   SQC,    SRG,    SV, TPO,    TRCH,   UTVF,   VEYO,   VRHS,   WINK)

all.data <- data.frame(all.genotypes, all.herbivory)