library(CGPfunctions)
## Registered S3 methods overwritten by 'broom.mixed':
##   method         from 
##   augment.lme    broom
##   augment.merMod broom
##   glance.lme     broom
##   glance.merMod  broom
##   glance.stanreg broom
##   tidy.brmsfit   broom
##   tidy.gamlss    broom
##   tidy.lme       broom
##   tidy.merMod    broom
##   tidy.rjags     broom
##   tidy.stanfit   broom
##   tidy.stanreg   broom
## Registered S3 methods overwritten by 'lme4':
##   method                          from
##   cooks.distance.influence.merMod car 
##   influence.merMod                car 
##   dfbeta.influence.merMod         car 
##   dfbetas.influence.merMod        car
data(newcancer)
newcancer
##       Year             Type Survival
## 1   5 Year         Prostate       99
## 2  10 Year         Prostate       95
## 3  15 Year         Prostate       87
## 4  20 Year         Prostate       81
## 5   5 Year          Thyroid       96
## 6  10 Year          Thyroid       96
## 7  15 Year          Thyroid       94
## 8  20 Year          Thyroid       95
## 9   5 Year           Testis       95
## 10 10 Year           Testis       94
## 11 15 Year           Testis       91
## 12 20 Year           Testis       88
## 13  5 Year        Melanomas       89
## 14 10 Year        Melanomas       87
## 15 15 Year        Melanomas       84
## 16 20 Year        Melanomas       83
## 17  5 Year           Breast       86
## 18 10 Year           Breast       78
## 19 15 Year           Breast       71
## 20 20 Year           Breast       75
## 21  5 Year        Hodgkin's       85
## 22 10 Year        Hodgkin's       80
## 23 15 Year        Hodgkin's       74
## 24 20 Year        Hodgkin's       67
## 25  5 Year           Uterus       84
## 26 10 Year           Uterus       83
## 27 15 Year           Uterus       81
## 28 20 Year           Uterus       79
## 29  5 Year          Urinary       82
## 30 10 Year          Urinary       76
## 31 15 Year          Urinary       70
## 32 20 Year          Urinary       68
## 33  5 Year           Cervix       71
## 34 10 Year           Cervix       64
## 35 15 Year           Cervix       63
## 36 20 Year           Cervix       60
## 37  5 Year           Larynx       69
## 38 10 Year           Larynx       57
## 39 15 Year           Larynx       46
## 40 20 Year           Larynx       38
## 41  5 Year           Rectum       63
## 42 10 Year           Rectum       55
## 43 15 Year           Rectum       52
## 44 20 Year           Rectum       49
## 45  5 Year           Kidney       62
## 46 10 Year           Kidney       54
## 47 15 Year           Kidney       50
## 48 20 Year           Kidney       47
## 49  5 Year            Colon       62
## 50 10 Year            Colon       55
## 51 15 Year            Colon       54
## 52 20 Year            Colon       52
## 53  5 Year    Non-Hodgkin's       58
## 54 10 Year    Non-Hodgkin's       46
## 55 15 Year    Non-Hodgkin's       38
## 56 20 Year    Non-Hodgkin's       34
## 57  5 Year             Oral       57
## 58 10 Year             Oral       46
## 59 15 Year             Oral       38
## 60 20 Year             Oral       33
## 61  5 Year            Ovary       55
## 62 10 Year            Ovary       49
## 63 15 Year            Ovary       50
## 64 20 Year            Ovary       50
## 65  5 Year         Leukemia       43
## 66 10 Year         Leukemia       32
## 67 15 Year         Leukemia       30
## 68 20 Year         Leukemia       26
## 69  5 Year            Brain       32
## 70 10 Year            Brain       29
## 71 15 Year            Brain       28
## 72 20 Year            Brain       26
## 73  5 Year Multiple myeloma       30
## 74 10 Year Multiple myeloma       13
## 75 15 Year Multiple myeloma        7
## 76 20 Year Multiple myeloma        5
## 77  5 Year          Stomach       24
## 78 10 Year          Stomach       19
## 79 15 Year          Stomach       19
## 80 20 Year          Stomach       15
## 81  5 Year             Lung       15
## 82 10 Year             Lung       11
## 83 15 Year             Lung        7
## 84 20 Year             Lung        6
## 85  5 Year        Esophagus       14
## 86 10 Year        Esophagus        8
## 87 15 Year        Esophagus        8
## 88 20 Year        Esophagus        5
## 89  5 Year            Liver        8
## 90 10 Year            Liver        6
## 91 15 Year            Liver        6
## 92 20 Year            Liver        8
## 93  5 Year         Pancreas        4
## 94 10 Year         Pancreas        3
## 95 15 Year         Pancreas        3
## 96 20 Year         Pancreas        3
newggslopegraph(dataframe = newcancer, 
                Times = Year, 
                Measurement = Survival, 
                Grouping = Type, 
                Title = "Estimates of Percent Survival Rates",
                SubTitle ="",
                Caption = NULL)

mm= head(newcancer, 42)
newggslopegraph(dataframe = mm, 
                Times = Year, 
                Measurement = Survival, 
                Grouping = Type, 
                Title = "Estimates of Percent Survival Rates",
                SubTitle ="",
                Caption = NULL)