R/my_ggpairs.R

In flr/mydas: Tools for conducting Management Strategy Evaluation for data limited stocks

utils::globalVariables(c("ggplot","geom_density","ggplot","geom_smooth","geom_point"))

my_density <- function(data,mapping,...){
  ggplot(data=data,mapping=mapping)+
    geom_density(...,lwd=1)}

my_smooth <- function(data,mapping,...){
  ggplot(data=data,mapping=mapping)+
    geom_smooth(...,method="lm",se=FALSE)+
    geom_point(...)}