|>
sza ::filter(latitude == 30) |>
dplyr::group_by(tst) |>
dplyr::summarize(
dplyrSZA.Max = if (
all(is.na(sza))) {
NA
else {
} max(sza, na.rm = TRUE)
},SZA.Min = if (
all(is.na(sza))) {
NA
else {
} min(sza, na.rm = TRUE)
},.groups = "drop"
|>
) gt(rowname_col = "tst") |>
tab_spanner_delim(delim = ".") |>
sub_missing(
columns = everything(),
missing_text = "90+"
|>
) tab_stubhead(label = "TST") |>
tab_footnote(
footnote = "True solar time.",
locations = cells_stubhead()
|>
) tab_footnote(
footnote = "Solar zenith angle.",
locations = cells_column_spanners(
spanners = "spanner-SZA.Max"
)|>
) tab_footnote(
footnote = "The Lowest SZA.",
locations = cells_stub(rows = "1200")
|>
) opt_footnote_marks(marks = "standard")
TST* |
SZA†
|
|
---|---|---|
Max | Min | |
0400 | 90+ | 90+ |
0430 | 90+ | 90+ |
0500 | 90+ | 90+ |
0530 | 88.9 | 84.7 |
0600 | 87.2 | 78.7 |
0630 | 87.5 | 72.5 |
0700 | 89.4 | 66.3 |
0730 | 83.7 | 60.0 |
0800 | 78.3 | 53.5 |
0830 | 73.2 | 47.1 |
0900 | 68.4 | 40.6 |
0930 | 64.1 | 34.1 |
1000 | 60.4 | 27.7 |
1030 | 57.3 | 21.2 |
1100 | 55.0 | 15.1 |
1130 | 53.5 | 9.6 |
‡ 1200 | 53.0 | 6.9 |
* True solar time. | ||
† Solar zenith angle. | ||
‡ The Lowest SZA. |