准备第7次课

SD/20240321_0_R实践课程/index.qmd

@@ -80,7 +80,6 @@ knitr::opts_chunk$set(echo = TRUE)
 ```{r}
 #| echo: false
 #| output: asis
-#| include: false
 coursememberdf <- readxl::read_xlsx("../../data/course_member.xlsx")
 nmem <- nrow(coursememberdf)
 set.seed <- 23
@@ -88,6 +87,7 @@ set.seed <- 23
 uiddf <- coursememberdf |>
   dplyr::mutate(uid = paste0("ruser", sprintf("%02d", sample(1:nmem, nmem)))) |>
   dplyr::select(uid, 姓名) |>
+  dplyr::mutate(姓名 = "XX") |>
   dplyr::arrange(uid) |>
   dplyr::mutate(group = (dplyr::row_number() - 1) %/% 10 + 1) |>
   tidyr::nest(gdf = -group) |>
@@ -106,8 +106,6 @@ uiddf$tab[[2]]
 ```{r}
 #| echo: false
 #| output: asis
-#| include: false
-
 uiddf$tab[[3]]
 uiddf$tab[[4]]
 ```
@@ -145,8 +143,6 @@ author: 姓名
 ```
 
 
-
-
 ````