##读取并修改xlsx文件
github_raw_link <- "https://github.com/higgi13425/rmrwr-book/raw/master/data/paulolol.xlsx"
paulolol_xlsx <- tempfile(fileext = ".xlsx")
req <- httr::GET(github_raw_link,
# write result to disk
write_disk(path = paulolol_xlsx))read_excel(paulolol_xlsx,
sheet = 1,
skip = 0)## New names:
## • `` -> `...2`
## • `` -> `...3`
## • `` -> `...4`
## • `` -> `...5`
## • `` -> `...6`## # A tibble: 14 × 6
## `Data for my study` ...2 ...3 ...4 ...5 ...6
## <chr> <chr> <chr> <chr> <chr> <chr>
## 1 Paul Investigator MD <NA> <NA> <NA> <NA> <NA>
## 2 44338 <NA> <NA> <NA> <NA> <NA>
## 3 pat_id SBP_start SBP_end HR_start HR_end treatment
## 4 1 145 120 92 78 paulolol
## 5 2 147 148 88 87 placebo
## 6 3 158 139 96 80 paulolol
## 7 4 167 166 87 88 placebo
## 8 5 154 131 84 72 paulolol
## 9 6 178 177 99 97 placebo
## 10 7 151 134 101 86 paulolol
## 11 8 149 148 92 93 placebo
## 12 <NA> <NA> <NA> sbp hr <NA>
## 13 <NA> mean paulolol <NA> 131 79 <NA>
## 14 <NA> mean placebo <NA> 159.75 91.25 <NA>#整理excel表
read_excel(paulolol_xlsx,
sheet = 1,
skip = 3,
n_max = 8)## # A tibble: 8 × 6
## pat_id SBP_start SBP_end HR_start HR_end treatment
## <dbl> <dbl> <dbl> <dbl> <dbl> <chr>
## 1 1 145 120 92 78 paulolol
## 2 2 147 148 88 87 placebo
## 3 3 158 139 96 80 paulolol
## 4 4 167 166 87 88 placebo
## 5 5 154 131 84 72 paulolol
## 6 6 178 177 99 97 placebo
## 7 7 151 134 101 86 paulolol
## 8 8 149 148 92 93 placebo