誰でも次のコマンドの実行をスピードアップする方法を知っていますか?私は数字の "月"値を文字列で置き換えたいと思っています。 1月は「7月」になります。実行中のスピードアップelse loop in R
このコマンドは、実装しようとしているデータフレームが膨大であるため、実際には非常に遅いです!
for (i in 1:length(CO2$month)){
if(CO2$month[i]=='1') {CO2$months[i]<-'Jul'} else
if(CO2$month[i]=='2') {CO2$months[i]<-'Aug'} else
if(CO2$month[i]=='3') {CO2$months[i]<-'Sept'} else
if(CO2$month[i]=='4') {CO2$months[i]<-'Oct'} else
if(CO2$month[i]=='5') {CO2$months[i]<-'Nov'} else
if(CO2$month[i]=='6') {CO2$months[i]<-'Dec'} else
if(CO2$month[i]=='7') {CO2$months[i]<-'Jan'} else
if(CO2$month[i]=='8') {CO2$months[i]<-'Feb'} else
if(CO2$month[i]=='9') {CO2$months[i]<-'Mar'} else
if(CO2$month[i]=='10') {CO2$months[i]<-'Apr'} else
if(CO2$month[i]=='11') {CO2$months[i]<-'May'} else
if(CO2$month[i]=='12') {CO2$months[i]<-'Jun'}
}
グレート! – Alex
彼は質問に6ヶ月遅れています:1は "Jan"ではなく "Jul"に対応します。したがって、 'month.abb [(数値として(CO2 $月)+6)%% 12]'のようなものは、遅れを修正します。 – plannapus
@ plannapus:偉大なキャッチは、私の答えにそれを編集します –