R語言：我寫的一個數據可視化的函數，散點圖和線性回歸趨勢線及公式

在做項目的時候，發(fā)現需要多次繪制散點圖和圖例，以及計算線性回歸的擬合公式和R2，為了方便處理，特編寫了這個函數，希望對大家有所幫助。
也歡迎大家提出報給的改進建議或者更多的需求組合。具體的可視化函數如下。
其中，data.xts是tidy的時間數據集，調用時只需要給出time和lie這2個變量，lie的格式是data.xts的第幾個字段。sandiantu函數直接繪制散點圖
qushixian函數將添加趨勢線，并顯示公式和R2，在Rmd格式中使用效果更好。數據分析培訓
sandiantu<-function(time,lie){
        a<-names(data.xts)[lie][1]
        b<-names(data.xts)[lie][2]
        with(as.dataframe(data.xts[time,lie]),
             {
                     plot(get(b) ~ get(a),xlab=a,ylab=b,col='lightgray',lwd=1)
             })
}

qushixian<-function(time,lie){
        a<-names(data.xts)[lie][1]
        b<-names(data.xts)[lie][2]
        with(as.dataframe(data.xts[time,lie]),

             {
                      reg<-lm((get(b)~get(a)))
                     abline(reg,col="red",lty=3,lwd=3)
                     gongshi<-paste("y=",substr(summary(reg)$coef[2,1],1,6),"x+",
                                    substr(summary(reg)$coef[1,1],1,6),sep='')
                     rfang<-paste("R2=",substr(summary(reg)$r.squared,1,6),sep='')
                     gongshi2<-paste("y=",summary(reg)$coef[2,1],"x+",
                                     summary(reg)$coef[1,1],sep='')
                     legend("topright", legend = c(gongshi,rfang))
                     print(gongshi2)
                     print(rfang)
             }

        )

}