tests/testthat/test_80_examples.R

In vanzanden/ggsolvencyii: A 'ggplot2'-Plot of Composition of Solvency II SCR: SF and IM

## GNU General Public License version 3 , see file LICENCE ============== =====
##
##    sourcefile of package 'ggsolvencyii'
##    Copyright (C) <2018>  < Marco van Zanden , git@vanzanden.nl >
##
##    This program is free software: you can redistribute it and/or modify
##    it under the terms of the GNU General Public License as published by
##    the Free Software Foundation, either version 3 of the License, or
##    (at your option) any later version.
##
##    This program is distributed in the hope that it will be useful,
##    but WITHOUT ANY WARRANTY; without even the implied warranty of
##    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
##    GNU General Public License for more details.
##
##    You should have received a copy of the GNU General Public License
##    along with this program.  If not, see <https://www.gnu.org/licenses/>.
##
##
## test ================================================================= =====
library(ggsolvencyii)
context("example2")

    testdata <- sii_z_ex2_data

    testparams <- NULL
    testparams$structure <- sii_structure_sf16_eng
    testparams$levelmax <- sii_levelmax_sf16_993
    testparams$aggregatesuffix <- "_other"

# testresult_01 <- ggsolvencyii:::fn_structure_expansion(testparams); testresult_01

# testresult_02 <- ggsolvencyii:::fn_structure_data_integration(expandedstructure = testresult_01, data = testdata) ;testresult_02

    # rm(testparams); rm(testdata); rm(test_result)

## sii_z_example2_data ================================================== =====
##
## 1 dataregel, scr bevat allee leven en markt risicos
##
##
## basistest circle, no plotdetails ===================================== =====
# testresult_03 <-
#           ggplot2::ggplot() +
#           geom_sii_risksurface(data = testdata,
#                       mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value,
#                                              description = description,
#                                              fill = description, color = description
#                                )            )
#
# test_that("example2, 1 dataline" ,{
# expect_silent(ggplot2::ggplot() +
#   geom_sii_risksurface(data = testdata,
#               mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value, description = description
#                             ,fill = description
#                             ,color = description
#
#               )  ) )
# })


#
# ## basistest circle, legends ok === ===================================== =====
# ggplot2::ggplot() +
#   geom_sii_risksurface(data = sii_z_ex2_data,
#               mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value, description = description
#                             ,fill = description
#                             ,color = description
#
#               )  ) +
#   ggplot2::theme_bw() +
#   ggplot2::scale_fill_manual(name = "Componenten", values = sii_x_fillcolors_sf16_eng) +
#   ggplot2::scale_color_manual(name = "Componenten", values = sii_x_edgecolors_sf16_eng)
#
#
# ## basistest circle=, with plotdetails table ============================ =====
# ggplot2::ggplot() +
#   geom_sii_risksurface(data = sii_z_ex2_data,
#               mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value, description = description
#                             ,fill = description
#                             ,color = description
#
#               ),
#               plotdetails = sii_plotdetails_sf16  ) +
#   ggplot2::theme_bw() +
#   ggplot2::scale_fill_manual(name = "Componenten",values = sii_x_fillcolors_sf16_eng) +
#   ggplot2::scale_color_manual(name = "Componenten",values = sii_x_edgecolors_sf16_eng)
#
# ##  =max scr===================================================== =====
# ggplot2::ggplot() +
#   geom_sii_risksurface(data = sii_z_ex2_data,
#               mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value, description = description
#                             ,fill = description
#                             ,color = description
#               ),
#                maxscrvalue = .00333
#               ) +
#   ggplot2::theme_bw() +
#   ggplot2::scale_fill_manual(name = "Componenten",values = sii_x_fillcolors_sf16_eng) +
#   ggplot2::scale_color_manual(name = "Componenten",values = sii_x_edgecolors_sf16_eng)
#
#
# ##  =schaling hor===================================================== =====
# ggplot2::ggplot() +
#   geom_sii_risksurface(data = sii_z_ex2_data,
#               mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value, description = description
#                             ,fill = description
#                             ,color = description
#               ),
#                scalingx = .01
#   ) +
#   ggplot2::theme_bw() +
#   ggplot2::scale_fill_manual(name = "Componenten",values = sii_x_fillcolors_sf16_eng) +
#   ggplot2::scale_color_manual(name = "Componenten",values = sii_x_edgecolors_sf16_eng)
#
#
#
# ##  ==levelmax =2==================================================== =====
# ggplot2::ggplot() +
#   geom_sii_risksurface(data = sii_z_ex2_data,
#               mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value, description = description
#                             ,fill = description
#                             ,color = description
#               ),
#                levelmax = 2  ) +
#   ggplot2::theme_bw() +
#   ggplot2::scale_fill_manual(name = "Componenten",values = sii_x_fillcolors_sf16_eng) +
#   ggplot2::scale_color_manual(name = "Componenten",values = sii_x_edgecolors_sf16_eng)
#
# ##  ==levelmax = 3 ,color is part of aes=================================================== =====
# ggplot2::ggplot() +
#   geom_sii_risksurface(data = sii_z_ex2_data,
#               mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value, description = description
#                             ,fill = description
#                             # ,color = description
#                             ),
#                levelmax = 3,
#               color = "black"
#               ) +
#   ggplot2::theme_bw() +
#   ggplot2::scale_fill_manual(name = "Componenten",values = sii_x_fillcolors_sf16_eng) +
#   ggplot2::scale_color_manual(name = "Componenten",values = sii_x_edgecolors_sf16_eng)
#
# ##  ===levelmax = tabel 993 ============================================= =====
# ggplot2::ggplot() +
#   geom_sii_risksurface(data = sii_z_ex2_data,
#               mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value, description = description
#                             ,fill = description
#                             ,color = description
#               ),
#                levelmax = sii_levelmax_sf16_993
#   ) +
#   ggplot2::theme_bw() +
#   ggplot2::scale_fill_manual(name = "Componenten",values = sii_x_fillcolors_sf16_eng) +
#   ggplot2::scale_color_manual(name = "Componenten",values = sii_x_edgecolors_sf16_eng)
#
#
# ##  ===levelmax = tabel 995============================================== =====
# ggplot2::ggplot() +
#   geom_sii_risksurface(data = sii_z_ex2_data,
#               mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value, description = description
#                             ,fill = description
#                             ,color = description
#               ),
#                levelmax = sii_levelmax_sf16_995
#   ) +
#   ggplot2::theme_bw() +
#   ggplot2::scale_fill_manual(name = "Componenten",values = sii_x_fillcolors_sf16_eng) +
#   ggplot2::scale_color_manual(name = "Componenten",values = sii_x_edgecolors_sf16_eng)
#
#
#
# ## test square and description rotation ================================== =====
#
# ggplot2::ggplot() +  #xlim(0,40) +# ylim(190,230)+
#     geom_sii_risksurface(data = sii_z_ex2_data,
#                   mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value, description = description
#                                  ,fill = description
#                               ),
#                      rotationdescription = "l_lapse",
#                      squared = TRUE,
#                 color = "black",
#                 lwd = 0.25
#
#                  ) +
#   ggplot2::theme_bw() +
#   ggplot2::scale_fill_manual(name = "Componenten",values = sii_x_fillcolors_sf16_eng) +
#   ggplot2::scale_color_manual(name = "Componenten",values = sii_x_edgecolors_sf16_eng)
#
# ## test square, fixed rotation and description rotation ================== =====
#
# ggplot2::ggplot() +  #xlim(0,40) +# ylim(190,230)+
#     geom_sii_risksurface(data = sii_z_ex2_data,
#                   mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value, description = description
#                                  ,fill = description
#                                 ,color = description
#                               ),
#                       rotationdegrees = -10,
#                      rotationdescription = "l_lapse",
#                      squared = TRUE,
#                 color = "black",
#                 lwd = 0.25
#
#                  ) +
#   ggplot2::theme_bw() +
#   ggplot2::scale_fill_manual(name = "Componenten",values = sii_x_fillcolors_sf16_eng) +
#   ggplot2::scale_color_manual(name = "Componenten",values = sii_x_edgecolors_sf16_eng)
#
#
# ## test description rotatie on an "other" item ================== =====
#
# ggplot2::ggplot() +  #xlim(0,40) +# ylim(190,230)+
#     geom_sii_risksurface(data = sii_z_ex2_data,
#                   mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value, description = description
#                                  ,fill = description
#                                 ,color = description
#                               ),
#                      squared = TRUE,
#                      levelmax = sii_levelmax_sf16_995,
#                      rotationdescription = "market_other",
#                 color = "black",
#                 lwd = 0.25
#                  ) +
#   ggplot2::theme_bw() +
#   ggplot2::scale_fill_manual(name = "Componenten",values = sii_x_fillcolors_sf16_eng) +
#   ggplot2::scale_color_manual(name = "Componenten",values = sii_x_edgecolors_sf16_eng)
#
#
#
#
# ## test alles ================== =====
#
# ggplot2::ggplot() +  #xlim(0,40) +# ylim(190,230)+
#     geom_sii_risksurface(data = sii_z_ex2_data,
#                   mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value, description = description
#                                  ,fill = description
#                                 ,color = description
#                               ),
#                   maxscrvalue = 53.333,
#                    scalingx = 10.0,
#                    scalingy = 0.005,
#                     levelmax = sii_levelmax_sf16_995,
#                       rotationdegrees = -90,
#                      rotationdescription = "life_other",
#                      squared = TRUE,
#                 # color = "green",
#                 lwd = 0.75
#                  ) +
#   ggplot2::theme_bw() +
#   ggplot2::scale_fill_manual(name = "Componenten",values = sii_x_fillcolors_sf16_eng) +
#   ggplot2::scale_color_manual(name = "Componenten",values = sii_x_edgecolors_sf16_eng)
#
# ## vergelijk grootte van rond en square in een figuur =================== =====
#
# ggplot2::ggplot() +
#   geom_sii_risksurface(data = sii_z_ex2_data,
#               mapping = ggplot2::aes(x = 10, y = 5 , id = id, value = value
#                                      ,description = description
#                                     ,fill = description
#                                     ,color = description
#                                     ),
#               # color = NA
#               lwd = .75
#               ,alpha = 0.6
#   ) +
#   ggplot2::theme_bw()  +
#   ggplot2::scale_fill_manual(name = "Componenten",values = sii_x_fillcolors_sf16_eng) +
#   ggplot2::scale_color_manual(name = "Componenten",values = sii_x_edgecolors_sf16_eng) +
#   geom_sii_risksurface(data = sii_z_ex2_data,
#               mapping = ggplot2::aes(x = 10, y = 5 , id = id, value = value,
#                             description = description
#                             ,fill = description
#                                         ),
#               color = "black",
#               lwd = .5,
#               squared = TRUE,
#               # rotationdegrees = 45,
#               alpha = .2
#    )
#
# ## outline (no 'compareid'-column is present in data , is equal to the situation that raw data has the column but no mapping has been mede in 'geom_'-call)
# ## no comparewithid in the mapping
#   ggplot2::ggplot() +  #xlim(0,40) +# ylim(190,230)+
#     geom_sii_riskoutline(data = sii_z_ex2_data,
#                   mapping = ggplot2::aes(x = time, y = ratio , id = id,
#                                          value = value, description = description)
#                  ) +
#   ggplot2::theme_bw()
#
# ##  comparewithid in the mapping, refering to id. i.e. "self"
#
#   ggplot2::ggplot() +  #xlim(0,40) +# ylim(190,230)+
#     geom_sii_riskoutline(data = sii_z_ex2_data,
#                   mapping = ggplot2::aes(x = time, y = ratio , id = id,
#                                          value = value, description = description
#                                         ,comparewithid = id)
#                  ) +
#   ggplot2::theme_bw()
#
#
#   ## will throw error plus warning about this error
#   ggplot2::ggplot() +  #xlim(0,40) +# ylim(190,230)+
#     geom_sii_riskoutline(data = sii_z_ex2_data,
#                   mapping = ggplot2::aes(x = time, y = ratio , id = id,
#                                          value = value, description = description
#                                         ,comparewithid = 2)
#                  ) +
#   ggplot2::theme_bw()
#
#
# ## basistest circle, tocenter = TRUE  =================================== =====
# ggplot2::ggplot() +
#   geom_sii_risksurface(data = sii_z_ex2_data,
#               mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value, description = description
#                             ,fill = description
#                             ,color = description
#
#               ) , tocenter = FALSE ) +
#   ggplot2::theme_bw() +
#   ggplot2::scale_fill_manual(name = "Componenten", values = sii_x_fillcolors_sf16_eng) +
#   ggplot2::scale_color_manual(name = "Componenten", values = sii_x_edgecolors_sf16_eng)
#
#
# ## basistest circle, tocenter = TRUE  =================================== =====
# ggplot2::ggplot() +
#   geom_sii_risksurface(data = sii_z_ex2_data,
#               mapping = ggplot2::aes(x = time, y = ratio , id = id, value = value, description = description
#                             ,fill = description
#                             ,color = description
#
#               ) , tocenter = TRUE ) +
#   ggplot2::theme_bw() +
#   ggplot2::scale_fill_manual(name = "Componenten", values = sii_x_fillcolors_sf16_eng) +
#   ggplot2::scale_color_manual(name = "Componenten", values = sii_x_edgecolors_sf16_eng)
#