East1916: Quantative Genetics Data from East 1916

In aphanotus/borealis: Tools for reproducible geometric morphometric analysis

Quantative Genetics Data from East 1916

Description

A dataset reporting the corolla lengths of Nicotiana flowers of different breeds, after hybridization, and after several generations of artificial selection for longer or shorter corolla lengths.

Usage

East1916
East1916.wide

Format

An object of class data.frame with 173 rows and 6 columns.

Details

These data originally appeared in East (1916). This daatset is often used in genetics courses to present the effects of selection on quantitative traits.

East1916 organizes the data in a "tidy" long format. East1916.wide presents the data in a dateframe that most closely resembles the original Table 1 from East (1916).

Source

Dave Angelini [e-mail] [aut]

References

East, E. 1916. Studies on Size Inheritance in Nicotiana. Genetics 1(2): 164-176 http://www.genetics.org/content/1/2/164/

Examples

library(tidyverse)

line.info <- data.frame(
  shortdes = c('F2','F2','F3-3','F3-3'),
  xintercept = c(81,69.88,69.88,76.34),
  style = c('dotted','dotted','solid','dotted')
)

East1916 %>% filter(grepl(') 2',designation)) %>%
  mutate(shortdes = paste0(generation,sub("No. \\(383 X 330\\) 2","",designation))) %>%
  filter(shortdes %in% c('F2','F3-3')) %>%
  ggplot(aes(x=corolla_mm, y=count, fill=shortdes)) +
  theme_bw() +
  theme(strip.text = element_blank(), legend.position="none") +
  facet_grid(shortdes~., ) +
  geom_bar(stat='identity') +
  scale_fill_manual(values = c("#7FD34E", "#C2DF23")) +
  geom_vline(data=line.info, aes(xintercept=xintercept, linetype=style), color = 'gray35', size = 1) +
  labs(x='corolla length (mm)')

ggsave('East1916.parent.offspring.RS.example.vertical.pdf',
       width = 4, height = 5, scale = 1)

aphanotus/borealis documentation built on Nov. 4, 2022, 8:44 p.m.