Example 6: Figure with By Group
The sassy system gives you capabilities that few other R packages can match. The system not only support reports with by-groups. You can even apply a by-group to a figure.
Program
Note the following about this example:
- The plot is created as a single plot with no by-groups
- The plot is added to the report with the
add_content()function, just like the figures in the previous example. - The
page_by()function on thecreate_report()statement generates the paging for both the report and plot.
library(ggplot2)
library(sassy)
options("logr.autolog" = TRUE,
"logr.notes" = FALSE)
# Get path to temp directory
tmp <- tempdir()
# Get path to sample data
pkg <- system.file("extdata", package = "sassy")
# Open log
lgpth <- log_open(file.path(tmp, "example6.log"))
# Prepare Data ------------------------------------------------------------
sep("Prepare Data")
put("Create libname for csv data")
libname(sdtm, pkg, "csv")
put("Perform joins and basic filters")
datastep(sdtm$DM, merge = sdtm$VS, merge_by = c("USUBJID" = "USUBJID"),
keep = v(USUBJID, ARMCD, ARM, VSTESTCD, VSTEST, VSORRES, VISITNUM, VISIT),
where = expression(VSTESTCD %in% c("SYSBP", "DIABP", "PULSE", "TEMP", "RESP") &
ARMCD != "SCRNFAIL"), {}) -> prep
put("Change VISIT to factor so it sorts properly")
prep$VISIT <- factor(prep$VISIT, levels = c("DAY 1", "WEEK 2", "WEEK 4",
"WEEK 6","WEEK 8", "WEEK 12",
"WEEK 16"))
put("Group and summarize")
proc_means(prep,
var = VSORRES,
class = v(ARM, VSTEST, VISITNUM, VISIT),
options = v(nway, nofreq, notype),
stats = mean) |>
datastep(where = expression(VISITNUM > 0 & VISITNUM < 20),{}) -> final
put("Rename variables for clarity")
names(final) <- toupper(labels(final))
# Create Plots ------------------------------------------------------------
sep("Create plots and print report")
put("Create plot")
p <- final |>
ggplot(mapping = aes(y = MEAN, x = VISIT , group = ARM)) +
geom_point(aes(shape = ARM, color = ARM)) +
geom_line(aes(linetype = ARM, color = ARM)) +
scale_x_discrete(name = "Visit") +
scale_y_continuous(name = "Value")
# Create Report -----------------------------------------------------------
put("Construct output path")
pth <- file.path(tmp, "output/example6.rtf")
put("Define report object")
rpt <- create_report(pth, output_type = "RTF", font = "Arial") |>
set_margins(top = 1, bottom = 1) |>
page_header("Sponsor: Company", "Study: ABC") |>
page_by(VSTEST, "Vital Sign: ", blank_row = "none") |>
titles("Figure 1.0", "Vital Signs Change from Baseline",
"Safety Population", bold = TRUE) |>
add_content(create_plot(p, 4.5, 9)) |>
footnotes("R Program: VS_Figure.R") |>
page_footer(paste0("Date Produced: ", fapply(Sys.time(), "%d%b%y %H:%M")),
right = "Page [pg] of [tpg]")
put("Write report to file system")
write_report(rpt)
put("Close log")
log_close()
# View report
# file.show(pth)
# View log
# file.show(lgpth)Output
And here are the first three pages of the report:
Log
Here is the log for the above program:
=========================================================================
Log Path: C:/Users/dbosa/AppData/Local/Temp/Rtmpo1naKK/log/example6.log
Program Path: C:/packages/Testing/procs/ProcsFigBy.R
Working Directory: C:/packages/Testing/procs
User Name: dbosa
R Version: 4.3.1 (2023-06-16 ucrt)
Machine: SOCRATES x86-64
Operating System: Windows 10 x64 build 22621
Base Packages: stats graphics grDevices utils datasets methods base Other
Packages: tidylog_1.0.2 ggplot2_3.4.2 procs_1.0.3 reporter_1.4.1 libr_1.2.8
fmtr_1.5.9 logr_1.3.4 common_1.0.8 sassy_1.1.0
Log Start Time: 2023-09-06 20:23:58.614273
=========================================================================
=========================================================================
Prepare Data
=========================================================================
Create libname for csv data
# library 'sdtm': 7 items
- attributes: csv not loaded
- path: C:/Users/dbosa/AppData/Local/R/win-library/4.3/sassy/extdata
- items:
Name Extension Rows Cols Size LastModified
1 AE csv 150 27 88.5 Kb 2023-08-07 17:51:40
2 DM csv 87 24 45.5 Kb 2023-08-07 17:51:40
3 DS csv 174 9 34.1 Kb 2023-08-07 17:51:40
4 EX csv 84 11 26.4 Kb 2023-08-07 17:51:40
5 IE csv 2 14 13.4 Kb 2023-08-07 17:51:40
6 SV csv 685 10 70.3 Kb 2023-08-07 17:51:40
7 VS csv 3358 17 467.4 Kb 2023-08-07 17:51:40
Perform joins and basic filters
datastep: columns decreased from 24 to 8
# A tibble: 3,112 × 8
USUBJID ARMCD ARM VSTESTCD VSTEST VSORRES VISITNUM VISIT
<chr> <chr> <chr> <chr> <chr> <dbl> <dbl> <chr>
1 ABC-01-049 4 ARM D DIABP Diastolic Blood Pressure 78 0 SCREENING
2 ABC-01-049 4 ARM D DIABP Diastolic Blood Pressure 76 1 DAY 1
3 ABC-01-049 4 ARM D DIABP Diastolic Blood Pressure 66 2 WEEK 2
4 ABC-01-049 4 ARM D DIABP Diastolic Blood Pressure 84 4 WEEK 4
5 ABC-01-049 4 ARM D DIABP Diastolic Blood Pressure 68 6 WEEK 6
6 ABC-01-049 4 ARM D DIABP Diastolic Blood Pressure 80 8 WEEK 8
7 ABC-01-049 4 ARM D DIABP Diastolic Blood Pressure 70 12 WEEK 12
8 ABC-01-049 4 ARM D DIABP Diastolic Blood Pressure 70 16 WEEK 16
9 ABC-01-049 4 ARM D PULSE Pulse Rate 92 0 SCREENING
10 ABC-01-049 4 ARM D PULSE Pulse Rate 84 1 DAY 1
# ℹ 3,102 more rows
# ℹ Use `print(n = ...)` to see more rows
Change VISIT to factor so it sorts properly
Group and summarize
proc_means: input data set 3112 rows and 8 columns
class: ARM VSTEST VISITNUM VISIT
var: VSORRES
stats: mean
view: TRUE
output: 1 datasets
CLASS1 CLASS2 CLASS3 CLASS4 VAR MEAN
1 ARM A Diastolic Blood Pressure 1 DAY 1 VSORRES 76.47368
2 ARM A Diastolic Blood Pressure 12 WEEK 12 VSORRES 78.36842
3 ARM A Diastolic Blood Pressure 16 WEEK 16 VSORRES 77.26316
4 ARM A Diastolic Blood Pressure 2 WEEK 2 VSORRES 77.65000
5 ARM A Diastolic Blood Pressure 4 WEEK 4 VSORRES 78.70000
6 ARM A Diastolic Blood Pressure 6 WEEK 6 VSORRES 74.36842
7 ARM A Diastolic Blood Pressure 8 WEEK 8 VSORRES 77.05263
8 ARM A Pulse Rate 1 DAY 1 VSORRES 72.57895
9 ARM A Pulse Rate 12 WEEK 12 VSORRES 75.68421
10 ARM A Pulse Rate 16 WEEK 16 VSORRES 76.26316
11 ARM A Pulse Rate 2 WEEK 2 VSORRES 73.35000
12 ARM A Pulse Rate 4 WEEK 4 VSORRES 75.85000
13 ARM A Pulse Rate 6 WEEK 6 VSORRES 73.47368
14 ARM A Pulse Rate 8 WEEK 8 VSORRES 73.21053
15 ARM A Respiratory Rate 1 DAY 1 VSORRES 16.31579
16 ARM A Respiratory Rate 12 WEEK 12 VSORRES 16.42105
17 ARM A Respiratory Rate 16 WEEK 16 VSORRES 15.05263
18 ARM A Respiratory Rate 2 WEEK 2 VSORRES 15.40000
19 ARM A Respiratory Rate 4 WEEK 4 VSORRES 15.60000
20 ARM A Respiratory Rate 6 WEEK 6 VSORRES 17.15789
21 ARM A Respiratory Rate 8 WEEK 8 VSORRES 15.42105
22 ARM A Systolic Blood Pressure 1 DAY 1 VSORRES 127.52632
23 ARM A Systolic Blood Pressure 12 WEEK 12 VSORRES 128.31579
24 ARM A Systolic Blood Pressure 16 WEEK 16 VSORRES 132.05263
25 ARM A Systolic Blood Pressure 2 WEEK 2 VSORRES 129.45000
26 ARM A Systolic Blood Pressure 4 WEEK 4 VSORRES 132.25000
27 ARM A Systolic Blood Pressure 6 WEEK 6 VSORRES 130.05263
28 ARM A Systolic Blood Pressure 8 WEEK 8 VSORRES 131.00000
29 ARM A Temperature 1 DAY 1 VSORRES 36.52105
30 ARM A Temperature 12 WEEK 12 VSORRES 36.46316
31 ARM A Temperature 16 WEEK 16 VSORRES 36.43158
32 ARM A Temperature 2 WEEK 2 VSORRES 36.48947
33 ARM A Temperature 4 WEEK 4 VSORRES 36.37000
34 ARM A Temperature 6 WEEK 6 VSORRES 36.47368
35 ARM A Temperature 8 WEEK 8 VSORRES 36.52105
36 ARM B Diastolic Blood Pressure 1 DAY 1 VSORRES 78.23810
37 ARM B Diastolic Blood Pressure 12 WEEK 12 VSORRES 78.16667
38 ARM B Diastolic Blood Pressure 16 WEEK 16 VSORRES 78.47059
39 ARM B Diastolic Blood Pressure 2 WEEK 2 VSORRES 76.15000
40 ARM B Diastolic Blood Pressure 4 WEEK 4 VSORRES 78.45000
41 ARM B Diastolic Blood Pressure 6 WEEK 6 VSORRES 79.33333
42 ARM B Diastolic Blood Pressure 8 WEEK 8 VSORRES 77.33333
43 ARM B Pulse Rate 1 DAY 1 VSORRES 71.52381
44 ARM B Pulse Rate 12 WEEK 12 VSORRES 73.55556
45 ARM B Pulse Rate 16 WEEK 16 VSORRES 73.29412
46 ARM B Pulse Rate 2 WEEK 2 VSORRES 69.85000
47 ARM B Pulse Rate 4 WEEK 4 VSORRES 72.80000
48 ARM B Pulse Rate 6 WEEK 6 VSORRES 77.94444
49 ARM B Pulse Rate 8 WEEK 8 VSORRES 74.77778
50 ARM B Respiratory Rate 1 DAY 1 VSORRES 15.80952
51 ARM B Respiratory Rate 12 WEEK 12 VSORRES 15.55556
52 ARM B Respiratory Rate 16 WEEK 16 VSORRES 15.29412
53 ARM B Respiratory Rate 2 WEEK 2 VSORRES 16.45000
54 ARM B Respiratory Rate 4 WEEK 4 VSORRES 15.30000
55 ARM B Respiratory Rate 6 WEEK 6 VSORRES 15.38889
56 ARM B Respiratory Rate 8 WEEK 8 VSORRES 15.22222
57 ARM B Systolic Blood Pressure 1 DAY 1 VSORRES 127.47619
58 ARM B Systolic Blood Pressure 12 WEEK 12 VSORRES 129.66667
59 ARM B Systolic Blood Pressure 16 WEEK 16 VSORRES 128.88235
60 ARM B Systolic Blood Pressure 2 WEEK 2 VSORRES 124.00000
61 ARM B Systolic Blood Pressure 4 WEEK 4 VSORRES 126.35000
62 ARM B Systolic Blood Pressure 6 WEEK 6 VSORRES 128.61111
63 ARM B Systolic Blood Pressure 8 WEEK 8 VSORRES 126.33333
64 ARM B Temperature 1 DAY 1 VSORRES 36.38095
65 ARM B Temperature 12 WEEK 12 VSORRES 36.43333
66 ARM B Temperature 16 WEEK 16 VSORRES 36.26471
67 ARM B Temperature 2 WEEK 2 VSORRES 36.26842
68 ARM B Temperature 4 WEEK 4 VSORRES 36.35000
69 ARM B Temperature 6 WEEK 6 VSORRES 36.31667
70 ARM B Temperature 8 WEEK 8 VSORRES 36.38889
71 ARM C Diastolic Blood Pressure 1 DAY 1 VSORRES 77.33333
72 ARM C Diastolic Blood Pressure 12 WEEK 12 VSORRES 75.75000
73 ARM C Diastolic Blood Pressure 16 WEEK 16 VSORRES 78.62500
74 ARM C Diastolic Blood Pressure 2 WEEK 2 VSORRES 76.50000
75 ARM C Diastolic Blood Pressure 4 WEEK 4 VSORRES 76.47059
76 ARM C Diastolic Blood Pressure 6 WEEK 6 VSORRES 76.58824
77 ARM C Diastolic Blood Pressure 8 WEEK 8 VSORRES 77.52941
78 ARM C Pulse Rate 1 DAY 1 VSORRES 74.09524
79 ARM C Pulse Rate 12 WEEK 12 VSORRES 73.75000
80 ARM C Pulse Rate 16 WEEK 16 VSORRES 76.18750
81 ARM C Pulse Rate 2 WEEK 2 VSORRES 73.94444
82 ARM C Pulse Rate 4 WEEK 4 VSORRES 77.29412
83 ARM C Pulse Rate 6 WEEK 6 VSORRES 76.05882
84 ARM C Pulse Rate 8 WEEK 8 VSORRES 75.29412
85 ARM C Respiratory Rate 1 DAY 1 VSORRES 15.85714
86 ARM C Respiratory Rate 12 WEEK 12 VSORRES 14.93750
87 ARM C Respiratory Rate 16 WEEK 16 VSORRES 15.43750
88 ARM C Respiratory Rate 2 WEEK 2 VSORRES 15.27778
89 ARM C Respiratory Rate 4 WEEK 4 VSORRES 15.23529
90 ARM C Respiratory Rate 6 WEEK 6 VSORRES 16.11765
91 ARM C Respiratory Rate 8 WEEK 8 VSORRES 14.64706
92 ARM C Systolic Blood Pressure 1 DAY 1 VSORRES 123.90476
93 ARM C Systolic Blood Pressure 12 WEEK 12 VSORRES 120.06250
94 ARM C Systolic Blood Pressure 16 WEEK 16 VSORRES 122.62500
95 ARM C Systolic Blood Pressure 2 WEEK 2 VSORRES 123.05556
96 ARM C Systolic Blood Pressure 4 WEEK 4 VSORRES 123.52941
97 ARM C Systolic Blood Pressure 6 WEEK 6 VSORRES 121.94118
98 ARM C Systolic Blood Pressure 8 WEEK 8 VSORRES 125.00000
99 ARM C Temperature 1 DAY 1 VSORRES 36.42857
100 ARM C Temperature 12 WEEK 12 VSORRES 36.23750
101 ARM C Temperature 16 WEEK 16 VSORRES 36.42500
102 ARM C Temperature 2 WEEK 2 VSORRES 36.57778
103 ARM C Temperature 4 WEEK 4 VSORRES 36.25882
104 ARM C Temperature 6 WEEK 6 VSORRES 36.14118
105 ARM C Temperature 8 WEEK 8 VSORRES 36.26471
106 ARM D Diastolic Blood Pressure 1 DAY 1 VSORRES 76.63636
107 ARM D Diastolic Blood Pressure 12 WEEK 12 VSORRES 75.21053
108 ARM D Diastolic Blood Pressure 16 WEEK 16 VSORRES 75.57143
109 ARM D Diastolic Blood Pressure 2 WEEK 2 VSORRES 74.90909
110 ARM D Diastolic Blood Pressure 4 WEEK 4 VSORRES 78.04762
111 ARM D Diastolic Blood Pressure 6 WEEK 6 VSORRES 76.60000
112 ARM D Diastolic Blood Pressure 8 WEEK 8 VSORRES 77.90000
113 ARM D Pulse Rate 1 DAY 1 VSORRES 74.78261
114 ARM D Pulse Rate 12 WEEK 12 VSORRES 70.75000
115 ARM D Pulse Rate 16 WEEK 16 VSORRES 74.19048
116 ARM D Pulse Rate 2 WEEK 2 VSORRES 76.59091
117 ARM D Pulse Rate 4 WEEK 4 VSORRES 75.42857
118 ARM D Pulse Rate 6 WEEK 6 VSORRES 69.95000
119 ARM D Pulse Rate 8 WEEK 8 VSORRES 72.90000
120 ARM D Respiratory Rate 1 DAY 1 VSORRES 16.13043
121 ARM D Respiratory Rate 12 WEEK 12 VSORRES 15.20000
122 ARM D Respiratory Rate 16 WEEK 16 VSORRES 15.09524
123 ARM D Respiratory Rate 2 WEEK 2 VSORRES 16.36364
124 ARM D Respiratory Rate 4 WEEK 4 VSORRES 15.42857
125 ARM D Respiratory Rate 6 WEEK 6 VSORRES 15.45000
126 ARM D Respiratory Rate 8 WEEK 8 VSORRES 16.00000
127 ARM D Systolic Blood Pressure 1 DAY 1 VSORRES 127.54545
128 ARM D Systolic Blood Pressure 12 WEEK 12 VSORRES 124.52632
129 ARM D Systolic Blood Pressure 16 WEEK 16 VSORRES 129.57143
130 ARM D Systolic Blood Pressure 2 WEEK 2 VSORRES 123.45455
131 ARM D Systolic Blood Pressure 4 WEEK 4 VSORRES 128.52381
132 ARM D Systolic Blood Pressure 6 WEEK 6 VSORRES 122.85000
133 ARM D Systolic Blood Pressure 8 WEEK 8 VSORRES 129.40000
134 ARM D Temperature 1 DAY 1 VSORRES 36.50435
135 ARM D Temperature 12 WEEK 12 VSORRES 36.35000
136 ARM D Temperature 16 WEEK 16 VSORRES 36.30000
137 ARM D Temperature 2 WEEK 2 VSORRES 36.31818
138 ARM D Temperature 4 WEEK 4 VSORRES 36.19524
139 ARM D Temperature 6 WEEK 6 VSORRES 36.32000
140 ARM D Temperature 8 WEEK 8 VSORRES 36.28000
datastep: columns started with 6 and ended with 6
CLASS1 CLASS2 CLASS3 CLASS4 VAR MEAN
1 ARM A Diastolic Blood Pressure 1 DAY 1 VSORRES 76.47368
2 ARM A Diastolic Blood Pressure 12 WEEK 12 VSORRES 78.36842
3 ARM A Diastolic Blood Pressure 16 WEEK 16 VSORRES 77.26316
4 ARM A Diastolic Blood Pressure 2 WEEK 2 VSORRES 77.65000
5 ARM A Diastolic Blood Pressure 4 WEEK 4 VSORRES 78.70000
6 ARM A Diastolic Blood Pressure 6 WEEK 6 VSORRES 74.36842
7 ARM A Diastolic Blood Pressure 8 WEEK 8 VSORRES 77.05263
8 ARM A Pulse Rate 1 DAY 1 VSORRES 72.57895
9 ARM A Pulse Rate 12 WEEK 12 VSORRES 75.68421
10 ARM A Pulse Rate 16 WEEK 16 VSORRES 76.26316
11 ARM A Pulse Rate 2 WEEK 2 VSORRES 73.35000
12 ARM A Pulse Rate 4 WEEK 4 VSORRES 75.85000
13 ARM A Pulse Rate 6 WEEK 6 VSORRES 73.47368
14 ARM A Pulse Rate 8 WEEK 8 VSORRES 73.21053
15 ARM A Respiratory Rate 1 DAY 1 VSORRES 16.31579
16 ARM A Respiratory Rate 12 WEEK 12 VSORRES 16.42105
17 ARM A Respiratory Rate 16 WEEK 16 VSORRES 15.05263
18 ARM A Respiratory Rate 2 WEEK 2 VSORRES 15.40000
19 ARM A Respiratory Rate 4 WEEK 4 VSORRES 15.60000
20 ARM A Respiratory Rate 6 WEEK 6 VSORRES 17.15789
21 ARM A Respiratory Rate 8 WEEK 8 VSORRES 15.42105
22 ARM A Systolic Blood Pressure 1 DAY 1 VSORRES 127.52632
23 ARM A Systolic Blood Pressure 12 WEEK 12 VSORRES 128.31579
24 ARM A Systolic Blood Pressure 16 WEEK 16 VSORRES 132.05263
25 ARM A Systolic Blood Pressure 2 WEEK 2 VSORRES 129.45000
26 ARM A Systolic Blood Pressure 4 WEEK 4 VSORRES 132.25000
27 ARM A Systolic Blood Pressure 6 WEEK 6 VSORRES 130.05263
28 ARM A Systolic Blood Pressure 8 WEEK 8 VSORRES 131.00000
29 ARM A Temperature 1 DAY 1 VSORRES 36.52105
30 ARM A Temperature 12 WEEK 12 VSORRES 36.46316
31 ARM A Temperature 16 WEEK 16 VSORRES 36.43158
32 ARM A Temperature 2 WEEK 2 VSORRES 36.48947
33 ARM A Temperature 4 WEEK 4 VSORRES 36.37000
34 ARM A Temperature 6 WEEK 6 VSORRES 36.47368
35 ARM A Temperature 8 WEEK 8 VSORRES 36.52105
36 ARM B Diastolic Blood Pressure 1 DAY 1 VSORRES 78.23810
37 ARM B Diastolic Blood Pressure 12 WEEK 12 VSORRES 78.16667
38 ARM B Diastolic Blood Pressure 16 WEEK 16 VSORRES 78.47059
39 ARM B Diastolic Blood Pressure 2 WEEK 2 VSORRES 76.15000
40 ARM B Diastolic Blood Pressure 4 WEEK 4 VSORRES 78.45000
41 ARM B Diastolic Blood Pressure 6 WEEK 6 VSORRES 79.33333
42 ARM B Diastolic Blood Pressure 8 WEEK 8 VSORRES 77.33333
43 ARM B Pulse Rate 1 DAY 1 VSORRES 71.52381
44 ARM B Pulse Rate 12 WEEK 12 VSORRES 73.55556
45 ARM B Pulse Rate 16 WEEK 16 VSORRES 73.29412
46 ARM B Pulse Rate 2 WEEK 2 VSORRES 69.85000
47 ARM B Pulse Rate 4 WEEK 4 VSORRES 72.80000
48 ARM B Pulse Rate 6 WEEK 6 VSORRES 77.94444
49 ARM B Pulse Rate 8 WEEK 8 VSORRES 74.77778
50 ARM B Respiratory Rate 1 DAY 1 VSORRES 15.80952
51 ARM B Respiratory Rate 12 WEEK 12 VSORRES 15.55556
52 ARM B Respiratory Rate 16 WEEK 16 VSORRES 15.29412
53 ARM B Respiratory Rate 2 WEEK 2 VSORRES 16.45000
54 ARM B Respiratory Rate 4 WEEK 4 VSORRES 15.30000
55 ARM B Respiratory Rate 6 WEEK 6 VSORRES 15.38889
56 ARM B Respiratory Rate 8 WEEK 8 VSORRES 15.22222
57 ARM B Systolic Blood Pressure 1 DAY 1 VSORRES 127.47619
58 ARM B Systolic Blood Pressure 12 WEEK 12 VSORRES 129.66667
59 ARM B Systolic Blood Pressure 16 WEEK 16 VSORRES 128.88235
60 ARM B Systolic Blood Pressure 2 WEEK 2 VSORRES 124.00000
61 ARM B Systolic Blood Pressure 4 WEEK 4 VSORRES 126.35000
62 ARM B Systolic Blood Pressure 6 WEEK 6 VSORRES 128.61111
63 ARM B Systolic Blood Pressure 8 WEEK 8 VSORRES 126.33333
64 ARM B Temperature 1 DAY 1 VSORRES 36.38095
65 ARM B Temperature 12 WEEK 12 VSORRES 36.43333
66 ARM B Temperature 16 WEEK 16 VSORRES 36.26471
67 ARM B Temperature 2 WEEK 2 VSORRES 36.26842
68 ARM B Temperature 4 WEEK 4 VSORRES 36.35000
69 ARM B Temperature 6 WEEK 6 VSORRES 36.31667
70 ARM B Temperature 8 WEEK 8 VSORRES 36.38889
71 ARM C Diastolic Blood Pressure 1 DAY 1 VSORRES 77.33333
72 ARM C Diastolic Blood Pressure 12 WEEK 12 VSORRES 75.75000
73 ARM C Diastolic Blood Pressure 16 WEEK 16 VSORRES 78.62500
74 ARM C Diastolic Blood Pressure 2 WEEK 2 VSORRES 76.50000
75 ARM C Diastolic Blood Pressure 4 WEEK 4 VSORRES 76.47059
76 ARM C Diastolic Blood Pressure 6 WEEK 6 VSORRES 76.58824
77 ARM C Diastolic Blood Pressure 8 WEEK 8 VSORRES 77.52941
78 ARM C Pulse Rate 1 DAY 1 VSORRES 74.09524
79 ARM C Pulse Rate 12 WEEK 12 VSORRES 73.75000
80 ARM C Pulse Rate 16 WEEK 16 VSORRES 76.18750
81 ARM C Pulse Rate 2 WEEK 2 VSORRES 73.94444
82 ARM C Pulse Rate 4 WEEK 4 VSORRES 77.29412
83 ARM C Pulse Rate 6 WEEK 6 VSORRES 76.05882
84 ARM C Pulse Rate 8 WEEK 8 VSORRES 75.29412
85 ARM C Respiratory Rate 1 DAY 1 VSORRES 15.85714
86 ARM C Respiratory Rate 12 WEEK 12 VSORRES 14.93750
87 ARM C Respiratory Rate 16 WEEK 16 VSORRES 15.43750
88 ARM C Respiratory Rate 2 WEEK 2 VSORRES 15.27778
89 ARM C Respiratory Rate 4 WEEK 4 VSORRES 15.23529
90 ARM C Respiratory Rate 6 WEEK 6 VSORRES 16.11765
91 ARM C Respiratory Rate 8 WEEK 8 VSORRES 14.64706
92 ARM C Systolic Blood Pressure 1 DAY 1 VSORRES 123.90476
93 ARM C Systolic Blood Pressure 12 WEEK 12 VSORRES 120.06250
94 ARM C Systolic Blood Pressure 16 WEEK 16 VSORRES 122.62500
95 ARM C Systolic Blood Pressure 2 WEEK 2 VSORRES 123.05556
96 ARM C Systolic Blood Pressure 4 WEEK 4 VSORRES 123.52941
97 ARM C Systolic Blood Pressure 6 WEEK 6 VSORRES 121.94118
98 ARM C Systolic Blood Pressure 8 WEEK 8 VSORRES 125.00000
99 ARM C Temperature 1 DAY 1 VSORRES 36.42857
100 ARM C Temperature 12 WEEK 12 VSORRES 36.23750
101 ARM C Temperature 16 WEEK 16 VSORRES 36.42500
102 ARM C Temperature 2 WEEK 2 VSORRES 36.57778
103 ARM C Temperature 4 WEEK 4 VSORRES 36.25882
104 ARM C Temperature 6 WEEK 6 VSORRES 36.14118
105 ARM C Temperature 8 WEEK 8 VSORRES 36.26471
106 ARM D Diastolic Blood Pressure 1 DAY 1 VSORRES 76.63636
107 ARM D Diastolic Blood Pressure 12 WEEK 12 VSORRES 75.21053
108 ARM D Diastolic Blood Pressure 16 WEEK 16 VSORRES 75.57143
109 ARM D Diastolic Blood Pressure 2 WEEK 2 VSORRES 74.90909
110 ARM D Diastolic Blood Pressure 4 WEEK 4 VSORRES 78.04762
111 ARM D Diastolic Blood Pressure 6 WEEK 6 VSORRES 76.60000
112 ARM D Diastolic Blood Pressure 8 WEEK 8 VSORRES 77.90000
113 ARM D Pulse Rate 1 DAY 1 VSORRES 74.78261
114 ARM D Pulse Rate 12 WEEK 12 VSORRES 70.75000
115 ARM D Pulse Rate 16 WEEK 16 VSORRES 74.19048
116 ARM D Pulse Rate 2 WEEK 2 VSORRES 76.59091
117 ARM D Pulse Rate 4 WEEK 4 VSORRES 75.42857
118 ARM D Pulse Rate 6 WEEK 6 VSORRES 69.95000
119 ARM D Pulse Rate 8 WEEK 8 VSORRES 72.90000
120 ARM D Respiratory Rate 1 DAY 1 VSORRES 16.13043
121 ARM D Respiratory Rate 12 WEEK 12 VSORRES 15.20000
122 ARM D Respiratory Rate 16 WEEK 16 VSORRES 15.09524
123 ARM D Respiratory Rate 2 WEEK 2 VSORRES 16.36364
124 ARM D Respiratory Rate 4 WEEK 4 VSORRES 15.42857
125 ARM D Respiratory Rate 6 WEEK 6 VSORRES 15.45000
126 ARM D Respiratory Rate 8 WEEK 8 VSORRES 16.00000
127 ARM D Systolic Blood Pressure 1 DAY 1 VSORRES 127.54545
128 ARM D Systolic Blood Pressure 12 WEEK 12 VSORRES 124.52632
129 ARM D Systolic Blood Pressure 16 WEEK 16 VSORRES 129.57143
130 ARM D Systolic Blood Pressure 2 WEEK 2 VSORRES 123.45455
131 ARM D Systolic Blood Pressure 4 WEEK 4 VSORRES 128.52381
132 ARM D Systolic Blood Pressure 6 WEEK 6 VSORRES 122.85000
133 ARM D Systolic Blood Pressure 8 WEEK 8 VSORRES 129.40000
134 ARM D Temperature 1 DAY 1 VSORRES 36.50435
135 ARM D Temperature 12 WEEK 12 VSORRES 36.35000
136 ARM D Temperature 16 WEEK 16 VSORRES 36.30000
137 ARM D Temperature 2 WEEK 2 VSORRES 36.31818
138 ARM D Temperature 4 WEEK 4 VSORRES 36.19524
139 ARM D Temperature 6 WEEK 6 VSORRES 36.32000
140 ARM D Temperature 8 WEEK 8 VSORRES 36.28000
Rename variables for clarity
=========================================================================
Create plots and print report
=========================================================================
Create plot
Construct output path
Define report object
Write report to file system
# A report specification: 5 pages
- file_path: 'C:\Users\dbosa\AppData\Local\Temp\Rtmpo1naKK/output/example6.rtf'
- output_type: RTF
- units: inches
- orientation: landscape
- margins: top 1 bottom 1 left 1 right 1
- line size/count: 9/36
- page by: VSTEST
- page_header: left=Sponsor: Company right=Study: ABC
- title 1: 'Figure 1.0'
- title 2: 'Vital Signs Change from Baseline'
- title 3: 'Safety Population'
- footnote 1: 'R Program: VS_Figure.R'
- page_footer: left=Date Produced: 06Sep23 20:24 center= right=Page [pg] of [tpg]
- content:
# A plot specification:
- data: 140 rows, 6 cols
- layers: 2
- height: 4.5
- width: 9
Close libname
Close log
=========================================================================
Log End Time: 2023-09-06 20:24:10.852245
Log Elapsed Time: 0 00:00:12
=========================================================================