A Perfect Scatterplot (with Marginals)

library(ggplot2)
library(ggExtra)
library(data.table)
library(WVPlots)
library(asbio)
df<-fread("C:\\Users\\r631758\\Desktop\\r631758\\Tableau\\data\\tips.csv",stringsAsFactors = FALSE)

plot the data not perfect one

plot_center=ggplot(df, aes(x=total_bill, y=tip))+geom_point()+geom_smooth(method="lm")
plot_center
#default: type="density"
ggMarginal(plot_center, type="histogram")

df$sex<-as.factor(df$sex)
df$smoker<-as.factor(df$smoker)
df$day<-as.factor(df$day)
df$time<-as.factor(df$time)
pairs(df,cex.labels=1,cex=.95,gap=.1,lower.panel=panel.cor.res,upper.panel=panel.lm)

data(asthma)
attach(asthma)

The following objects are masked from asthma (pos = 4):

    BASEFEV1, DRUG, FEV11H, FEV12H, FEV13H, FEV14H, FEV15H, FEV16H, FEV17H, FEV18H,
    PATIENT

pairs(asthma,cex.labels=1,cex=.95,gap=.1,lower.panel=panel.cor.res,
upper.panel=panel.lm)

# our own (very beta) plot package: details later
ScatterHist(df, "total_bill", "tip",
            smoothmethod="lm",
            annot_size=3,
            title="Tips vs. Total Bill")