1. ホーム
  2. r

[解決済み] このエラーを解決するには: 'rownames'をディメンションのないオブジェクトに設定しようとする

2022-02-07 04:13:32

質問

毎日の流量が記載されたcsvファイルを持っています。日次の値を月次に結合する必要があります。ハイドロTSMパッケージの"daily2monthly"関数を使おうとしているのですが、どうすればよいでしょうか? BRPT2.csvのサンプルデータです。

_date,_time,_value,_flag
 10/2/1959,0:00:00,0,2
 10/3/1959,0:00:00,0,2
 10/4/1959,0:00:00,1540,2
 10/5/1959,0:00:00,16100,2
 10/6/1959,0:00:00,6680,2
 10/7/1959,0:00:00,3100,2
 10/8/1959,0:00:00,2060,2

以下のコマンドを使いました。

qme<- read.csv(file = "BRPT2.csv",header = T,sep = ",") #read in csv file
date<- as.Date(qme$X_date,format("%Y-%m-%d")) #convert date column to date format from factor
flow<- qme[,3]
flow_2<-replace(flow,flow==-999,0) #replace the missing values (-999) with 0
df<- data.frame()
df<- rbind(df,data.frame(date,flow_2,stringsAsFactors = FALSE))
daily2monthly(df,FUN=sum,dates=1)

そして、次のようなエラーメッセージが表示されます。

のエラー rownames<- ( *tmp* , value = c("Oct-1959", "Nov-1959", "Dec-1959", : オブジェクトに 'rownames' を設定しようとした。 寸法

この件に関して、どなたか助けていただけないでしょうか。事前にありがとうございます。

解決方法は?

を変換してください。 dfzoo オブジェクトを先に作成します。

z <- zoo(df[, -1], df[, 1])
daily2monthly(z, FUN=sum, dates=1)
# 1959-10-01 1959-11-01 1959-12-01 1960-01-01 1960-02-01 1960-03-01 1960-04-01 
#    31440.0      411.9     1199.3     4373.0     1466.0     1904.0      741.0 

data.frame メソッドで daily2monthly は、複数の列のデータがある場合にのみ動作します。あなたの場合、データは1つしかないので、この関数はエラーメッセージを返します。 例えば、もう1列のデータがあったとしましょう。

df$station_3 <- sample(1:1000, nrow(df))
daily2monthly(df, FUN=sum, dates=1)
#           flow_2 station_3
# Oct-1959 31440.0    132423
# Nov-1959   411.9    149305
# Dec-1959  1199.3    157622
# Jan-1960  4373.0    176413
# Feb-1960  1466.0    143373
# Mar-1960  1904.0    166102
# Apr-1960   741.0    141861