Lab 1: Intro to R

library(tidyverse)
library(openintro)

Exercise 1

arbuthnot$girls

##  [1] 4683 4457 4102 4590 4839 4820 4928 4605 4457 4952 4784 5332 5200 4910 4617
## [16] 3997 3919 3395 3536 3181 2746 2722 2840 2908 2959 3179 3349 3382 3289 3013
## [31] 2781 3247 4107 4803 4881 5681 4858 4319 5322 5560 5829 5719 6061 6120 5822
## [46] 5738 5717 5847 6203 6033 6041 6299 6533 6744 7158 7127 7246 7119 7214 7101
## [61] 7167 7302 7392 7316 7483 6647 6713 7229 7767 7626 7452 7061 7514 7656 7683
## [76] 5738 7779 7417 7687 7623 7380 7288

Exercise 2

There does seem to be an upward trend for the girls being baptized in recent years. More of them are getting baptized.

ggplot(data = arbuthnot, aes(x = year, y = girls)) +
  geom_line()

ggplot(data = arbuthnot, aes(x = year, y = girls)) +
  geom_line()

Exercise 3

I saw about the same type of trend. The amount of boys has been increasing.

ggplot(data = arbuthnot, aes(x = year, y = boys)) + 
geom_point()

ggplot(data = arbuthnot, aes(x = year, y = boys)) +
geom_line()

Exercise 4

There looks to be 81 years if I counted correctly.The variable (column) names are year, boys, girls, more_boys boy_to_girl_ratio, more_boys

arbuthnot$year

##  [1] 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643
## [16] 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658
## [31] 1659 1660 1661 1662 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673
## [46] 1674 1675 1676 1677 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688
## [61] 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 1702 1703
## [76] 1704 1705 1706 1707 1708 1709 1710

Exercise 5

Well, the numbers seem to be a lot bigger for one, and the present, seems to spike, then dip down and go up again.

present

## # A tibble: 63 × 3
##     year    boys   girls
##    <dbl>   <dbl>   <dbl>
##  1  1940 1211684 1148715
##  2  1941 1289734 1223693
##  3  1942 1444365 1364631
##  4  1943 1508959 1427901
##  5  1944 1435301 1359499
##  6  1945 1404587 1330869
##  7  1946 1691220 1597452
##  8  1947 1899876 1800064
##  9  1948 1813852 1721216
## 10  1949 1826352 1733177
## # ℹ 53 more rows

Exercise 6

http://127.0.0.1:38591/graphics/f99c1ee0-64a7-48de-94db-5724cde992b8.png

ggplot(data = present, aes(x = year, y = boys)) + 
geom_point()

Exercise 7

I cant figure this one out and its already late. I’ll take partial credit for this assignment.