r语言代码程序及可视化绘图

```r
#瀵绘壘姘翠粰鑺辨暟
nums <- 100:999
first.num<-nums%/%100
second.num<-(nums%%100)%/%10
third.num<-nums%%10
nums[(first.num^3+second.num^3+third.num^3)==nums]

#鍥涢〉鐜懓鏁?
nums <- 1000:9999
first.num<-nums%/%1000
second.num<-(nums%%1000)%/%100
third.num<-(nums%%100)%/%10
forth.num<-nums%%10
nums[(first.num^4+second.num^4+third.num^4+forth.num^4)==nums]
#缁冧範锛氭眰涓€涓暟鐨勬墍浠ュ洜瀛?
num<-6
vec<-1:6
vec[6%%vec==0]

#浣滀笟锛氬垽鏂竴涓暟鏄惁鏄畬鏁般€?
nums <- 1:(6/2)
sum(nums[6%%nums==0])==6

#鍒涘缓涓€涓煩闃垫壘鍑虹浜屽垪鍏冪礌鑳借涓夋暣闄や笖澶т簬5鐨勫厓绱犳墍鍦ㄧ殑琛岀殑鍏冪礌

m<-matrix(1:12,nrow