首页 \ 问答 \ 如何将每日时间序列转换为平均每周？(How to convert a daily times series into an averaged weekly?)

如何将每日时间序列转换为平均每周？(How to convert a daily times series into an averaged weekly?)

 我希望（算术上）平均每日数据，从而将我的每日时间序列转换为每周一次。  
 遵循这个主题： 如何使用R计算每列数据的平均值？ ，我正在使用xts库。  
# Averages daily time series into weekly time series
# where my source is a zoo object
source.w <- apply.weekly(source, colMeans)
 
 我遇到的问题是，这个系列的平均值是星期二到下一个星期一的数据。  
 我正在寻找从星期一到星期五平均每日数据的选项。  
 任何提示？  
 这里有一点：  
    # here is part of my data, from a "blé colza.txt" file


    24/07/2012  250.5   499
    23/07/2012  264.75  518.25
    20/07/2012  269.25  525.25
    19/07/2012  267 522.5
    18/07/2012  261.25  517
    17/07/2012  265.75  522.25
    16/07/2012  264.25  523.25
    13/07/2012  258.25  517
    12/07/2012  253.75  513
    11/07/2012  246.25  512.75
    10/07/2012  248 515
    09/07/2012  247 519.25
    06/07/2012  243.25  508.25
    05/07/2012  245 508.5
    04/07/2012  236 500.5
    03/07/2012  234 497.75
    02/07/2012  234.25  489.75
    29/06/2012  229 490.25
    28/06/2012  229.75  487.25
    27/06/2012  229.75  493
    26/06/2012  226.5   486
    25/06/2012  220 482.25
    22/06/2012  214.25  472.5
    21/06/2012  212 469.5
    20/06/2012  210.25  473.75
    19/06/2012  208 472.75
    18/06/2012  206.75  462.5
    15/06/2012  203 456.5
    14/06/2012  205.25  460.5
    13/06/2012  205.25  465.25
    12/06/2012  205.25  469
    11/06/2012  208 471.5
    08/06/2012  208 468.5
    07/06/2012  208 471.25
    06/06/2012  208 467
    05/06/2012  208 458.75
    04/06/2012  208 457.5
    01/06/2012  208 463.5
    31/05/2012  208 466.75
    30/05/2012  208 468
    29/05/2012  212.75  469.75
    28/05/2012  212.75  469.75
    25/05/2012  212.75  465.5



# Loads external libraries
library("zoo") # or require("zoo")
library("xts") # or require("xts")

# Loads data as a zoo object
source <- read.zoo("blé colza.txt", sep=",", dec=".", header=T, na.strings="NA",     format="%d/%m/%Y")

# Averages daily time series into weekly time series
# https://stackoverflow.com/questions/11129562/how-does-one-compute-the-mean-of-weekly-    data-by-column-using-r
source.w <- apply.weekly(source, colMeans) 

I am wishing to (arithmetically) average daily data and thus convert my daily time series into a weekly one. 
Following this thread: How does one compute the mean of weekly data by column using R? , I am using the xts library.  
# Averages daily time series into weekly time series
# where my source is a zoo object
source.w <- apply.weekly(source, colMeans)
 
The problem I am having is that it averages the series taking tuesday through next monday data. 
I am searching for options to average my daily data from monday through friday. 
Any hints? 
Here is a bit more: 
    # here is part of my data, from a "blé colza.txt" file


    24/07/2012  250.5   499
    23/07/2012  264.75  518.25
    20/07/2012  269.25  525.25
    19/07/2012  267 522.5
    18/07/2012  261.25  517
    17/07/2012  265.75  522.25
    16/07/2012  264.25  523.25
    13/07/2012  258.25  517
    12/07/2012  253.75  513
    11/07/2012  246.25  512.75
    10/07/2012  248 515
    09/07/2012  247 519.25
    06/07/2012  243.25  508.25
    05/07/2012  245 508.5
    04/07/2012  236 500.5
    03/07/2012  234 497.75
    02/07/2012  234.25  489.75
    29/06/2012  229 490.25
    28/06/2012  229.75  487.25
    27/06/2012  229.75  493
    26/06/2012  226.5   486
    25/06/2012  220 482.25
    22/06/2012  214.25  472.5
    21/06/2012  212 469.5
    20/06/2012  210.25  473.75
    19/06/2012  208 472.75
    18/06/2012  206.75  462.5
    15/06/2012  203 456.5
    14/06/2012  205.25  460.5
    13/06/2012  205.25  465.25
    12/06/2012  205.25  469
    11/06/2012  208 471.5
    08/06/2012  208 468.5
    07/06/2012  208 471.25
    06/06/2012  208 467
    05/06/2012  208 458.75
    04/06/2012  208 457.5
    01/06/2012  208 463.5
    31/05/2012  208 466.75
    30/05/2012  208 468
    29/05/2012  212.75  469.75
    28/05/2012  212.75  469.75
    25/05/2012  212.75  465.5



# Loads external libraries
library("zoo") # or require("zoo")
library("xts") # or require("xts")

# Loads data as a zoo object
source <- read.zoo("blé colza.txt", sep=",", dec=".", header=T, na.strings="NA",     format="%d/%m/%Y")

# Averages daily time series into weekly time series
# https://stackoverflow.com/questions/11129562/how-does-one-compute-the-mean-of-weekly-    data-by-column-using-r
source.w <- apply.weekly(source, colMeans) 

原文：https://stackoverflow.com/questions/11892063

更新时间：2022-08-02 22:08

最满意答案

 基本上你有两种方法来获得整数的所有部分的总和。  
 
  用数字操作 
 拿这个数字，并建立剩下的十个并添加它。 然后把数字的整数部分除以10.继续。  
 
 
 
  
  var value = 2568,
    sum = 0;

while (value) {
    sum += value % 10;
    value = Math.floor(value / 10);
}

console.log(sum); 
  
 
 
 
  使用字符串操作 
 将数字转换为字符串，拆分字符串并获取包含所有数字的数组，并为每个部分执行缩减并返回总和。  
 
 
 
  
  var value = 2568,
    sum = value
        .toString()
        .split('')
        .map(Number)
        .reduce(function (a, b) {
            return a + b;
        }, 0);

console.log(sum); 
  
 
 
 
 要返回值，您需要添加value属性。  
rezultat.value = sum;
//      ^^^^^^
 
 
 
  
  function sumDigits() {
    var value = document.getElementById("thenumber").value,
        sum = 0;

  while (value) {
      sum += value % 10;
      value = Math.floor(value / 10);
  }
  
  var rezultat = document.getElementById("result");
  rezultat.value = sum;
} 
  <input type="text" placeholder="number" id="thenumber"/><br/><br/>
<button onclick="sumDigits()">Calculate</button><br/><br/>
<input type="text" readonly="true" placeholder="the result" id="result"/> 
  
 

Basically you have two methods to get the sum of all parts of an integer number. 
 
 With numerical operations
 Take the number and build the remainder of ten and add that. Then take the integer part of the division of the number by 10. Proceed. 
 
 
 
  
  var value = 2568,
    sum = 0;

while (value) {
    sum += value % 10;
    value = Math.floor(value / 10);
}

console.log(sum); 
  
 
 
 
 Use string operations
 Convert the number to string, split the string and get an array with all digits and perform a reduce for every part and return the sum. 
 
 
 
  
  var value = 2568,
    sum = value
        .toString()
        .split('')
        .map(Number)
        .reduce(function (a, b) {
            return a + b;
        }, 0);

console.log(sum); 
  
 
 
 
For returning the value, you need to addres the value property. 
rezultat.value = sum;
//      ^^^^^^
 
 
 
  
  function sumDigits() {
    var value = document.getElementById("thenumber").value,
        sum = 0;

  while (value) {
      sum += value % 10;
      value = Math.floor(value / 10);
  }
  
  var rezultat = document.getElementById("result");
  rezultat.value = sum;
} 
  <input type="text" placeholder="number" id="thenumber"/><br/><br/>
<button onclick="sumDigits()">Calculate</button><br/><br/>
<input type="text" readonly="true" placeholder="the result" id="result"/>

如何将每日时间序列转换为平均每周？(How to convert a daily times series into an averaged weekly?)

最满意答案

相关问答

使用JavaScript获取数位数(Get number of digits with JavaScript)[2022-12-14]

数字的产品，总和和位数(Product, Sum, and Digits of a Number)[2023-05-14]

仅输出后一个字符串，其中的数字总和了javascript中的最大数字(Outputting only the latter string with digits that sum the largest number in javascript)[2021-01-24]

数字的所有数字的总和(Sum of all digits of a number)[2022-05-02]

总和一个数字Javascript的所有数字(Sum all the digits of a number Javascript)[2023-09-11]

一个数字的总和(sum of digits of a number)[2024-02-16]

在mysql中总结一个数字的数字(Sum the digits of a number in mysql)[2022-04-23]

在python中测试一个数字中数字的总和是否相等？(Testing the equality of the sum of a digits within a number on python?)[2022-02-26]

如何计算Scheme中一个数字的位数的总和？(How to calculate the sum of a digits of a number in Scheme?)[2022-05-30]

幸运门票（计算一个幸运数字，具有指定的所有数字总和）(Lucky Tickets (count an amount of lucky numbers, having the specified sum of ALL digits))[2022-03-06]

相关文章

最新问答