Function

コメント･参照等
  • f_get_key_statistics_of_tsdata()で作成した時系列データの基本統計量をデータフレームとして纏める関数
FUN = f_convert_to_merge_dataframe.r 
function (df0) 
{
    obj_col <- 2:ncol(df0)
    for (iii in seq(obj_col)) {
        datadf <- na.omit(df0[, c(1, obj_col[iii])])
        buf0 <- f_get_key_statistics_of_tsdata(df0 = datadf)
        tmp0 <- paste0(buf0[, 3], "(", buf0[, 4], ")")
        buf0[, 3] <- gsub("\\( \\)", "", tmp0)
        colnames(buf0)[3] <- buf0[1, 3]
        buf1 <- buf0[, -4]
        if (iii == 1) {
            statdf <- buf1
        }
        else {
            statdf <- merge(statdf, buf1, all = T)
        }
    }
    statdf <- statdf[order(statdf[, 1], decreasing = F), ]
    row.names(statdf) <- NULL
    return(statdf)
}