after lectures

choosing.qmd

@@ -36,7 +36,7 @@ athletes %>% select(Sport)
 athletes %>% select(Sport, Hg, BMI)
 ```
 
-## Choosing consecAutive columns
+## Choosing consecutive columns
 
 ```{r choosing-R-4}
 athletes %>% select(Sex:WCC)
@@ -58,7 +58,7 @@ Other ways to select columns: those whose name:
 -   `matches` a "regular expression"
 -   `everything()` select all the columns
 
-## Columns whose names Abegin with S
+## Columns whose names begin with S
 
 ```{r choosing-R-6}
 athletes %>% select(starts_with("S"))
@@ -229,8 +229,6 @@ contains).
 
 Two ways:
 
-\small
-
 ```{r choosing-R-26}
 athletes %>% group_by(Sex) %>% summarize(m = mean(Ht))
 ```
@@ -241,12 +239,10 @@ athletes %>%
   summarize(m = mean(Ht))
 ```
 
-\normalsize
-
 ## Summary of data selection/arrangement "verbs" {.smaller}
 
 | Verb           | Purpose                                                          |
-|:---------------|:-------------------------------------------------------|
+|:-----------------|:-----------------------------------------------------|
 | `select`       | Choose columns                                                   |
 | `slice`        | Choose rows by number                                            |
 | `slice_sample` | Choose random rows                                               |
@@ -277,8 +273,6 @@ sales
 
 -   Fortunately you found a list of product descriptions and prices:
 
-\small
-
 ```{r choosing-R-29, message=FALSE}
 my_url <- "http://ritsokiguess.site/datafiles/nail_desc.csv"
 desc <- read_csv(my_url)
@@ -289,8 +283,6 @@ desc
     the same symbol for the start and end of text, so the `"`
     representing "inches" is "escaped". Hence the odd look.
 
-\normalsize
-
 ## The lookup
 
 -   How do you "look up" the product codes to find the product
@@ -336,15 +328,11 @@ sales %>% left_join(desc) %>%
 -   Suppose the `sales` dataframe *also* had a column `qty` (which was
     the quantity sold):
 
-\small
-
 ```{r choosing-R-32}
 sales %>% rename("qty"="sales") -> sales1
 sales1
 ```
 
-\normalsize
-
 -   The `qty` in `sales1` is the quantity sold, but the `qty` in `desc`
     is the number of nails in a package. These should *not* be matched:
     they are different things.
@@ -355,6 +343,7 @@ sales1
 sales1 %>% 
   left_join(desc, join_by(product_code))
 ```
+
 ```{r}
 sales1 %>% 
   left_join(desc)
@@ -367,15 +356,11 @@ sales1 %>%
 
 -   Suppose the product code in `sales` was just `code`:
 
-\small
-
 ```{r choosing-R-34}
 sales %>% rename("code" = "product_code") -> sales2
 sales2
 ```
 
-\normalsize
-
 -   How to match the two product codes that have different names?
 
 ## Matching on different names 2/2
@@ -399,14 +384,10 @@ sales2 %>%
 
 ## Full join here
 
-\small
-
 ```{r choosing-R-36}
 sales %>% full_join(desc)
 ```
 
-\normalsize
-
 -   The missing `sales` for "masonry nail" says that it was in the
     lookup table `desc`, but we didn't sell any.
 

graphs.qmd

@@ -121,7 +121,9 @@ ggplot(athletes, aes(x = Sport, y = BMI, colour = Sex)) +
 
 ## Height and weight by gender
 
-```{r graphs-R-11, fig.height=3.6}
+```{r}
+#| fig-height: 9
+#| fig-width: 9
 ggplot(athletes, aes(x = Ht, y = Wt, colour = Sex)) +
   geom_point()
 ```