相關代碼：

#輸入數據 B <- 1000000 R <- 0.06/12 # 月利率 t <- 15*12 N <- 1:t#等額本金 MBA <- B/t MYA <- B - MBA*(N-1) MIA <- MYA*R MPA <- MIA + MBA# 等額本息 MPB <- B*R*(1+R)^t / ((1+R)^t-1) # 每月應還的等額本息，包含月還利息和月還本金 MYBF <- function(n) # 如何將利息與本金分離出來 {# 可知，MYB(n)為第n個月后剩余的欠銀行的錢,即第n個月的剩余本金(n=1,2,3..)# 那么MYB(N),N=0,1,2,...,且MYB(N)*r就是第N+1個月的利息MYB <- B*(1+R)^n - MPB*((1+R)^n-1)/R return(MYB) } MYB <- MYBF(N-1) # 讓時間從0,1,2,3...到n-1結束 MIB <- MYB * R # 月還利息 MBB <- MPB - MIB # 月還本金#開始畫圖展示 par(mfcol=c(2,2), oma = c(0, 0, 3, 0)) plot(MIA,col='red',pch=19) points(MIB,col='blue',pch=19) title('月還利息對比') plot(rep(MBA,t),col='red',pch=19) points(MBB,col='blue',pch=19) title('月還本金對比') plot(MPA,col='red',pch=19) points(rep(MPB,t),col='blue',pch=19) title('月還本息對比') # plot(rep(sum(MPA),t),col='red',pch=19) # points(rep(MPB*t,t),col='blue',pch=19) x <- c(sum(MPA),MPB*t) barplot(x,col=c(2,4),ylim = c(0,2000000),names.arg =c('等額本金','等額本息') ) title('總還款額對比') mtext("（紅色：等額本金）（藍色：等額本息）",cex=1.5,side = 3, line = 0, outer = T)

相關圖像：

?

總結

以上是生活随笔為你收集整理的R语言图解“等额本金与等额本息”的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。