# 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 the `create_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
    =========================================================================

Next: Example 7: Survival Analysis