title: Unite lists of named num in R
body: <p>I am facing the problem that my results are in a confusing format after some calculations.  I have two different values calculated for every quarter of a year and stored <strong>each value in a list</strong> like the following output shows:</p>
  
  <pre><code>$`2015`
     1        2        3        4 
  158.4567 165.7833 153.1233 140.8067 
  
  $`2016`
         1        2        3        4 
  140.4833 149.9200 157.9233 161.2467
  </code></pre>
  
  <p>My previous solutions ended up in something like <code>append(value1,value2)</code> that gives me the following not required output:</p>
  
  <pre><code>$`2015`
     1        2        3        4        1        2        3        4 
  158.4567 165.7833 153.1233 140.8067 151.5633 155.2667 132.4667 128.4633 
  
  $`2016`
         1        2        3        4        1        2        3        4 
  140.4833 149.9200 157.9233 161.2467 127.8667 144.3600 150.8467 152.5333
  </code></pre>
  
  <p>I cannot find a way to unite those three lists to one list or dataframe that could be like:</p>
  
  <pre><code>date   value1     value2
  2015.1 158.4567   151.5633
  2015.2 165.7833   155.2667
  2015.3 153.1233   132.4667
  2015.4 140.8067   128.4633
  2016.1 ...        ...
  2016.2 ...        ...
  2016.3 ...        ...
  2016.4 ...        ...
  </code></pre>
  
  <p><strong>EDIT:</strong>
  Example Code that creates the two values i want to union in a dataframe:</p>
  
  <pre><code>library(lubridate) # for date operations
  
  # manual created dataframe
  date &lt;- sample(seq(as.Date('1999-01-01 00:00:00'), as.Date('2017-01-01 00:00:00'), by="day"), 500)
  dataM = data.frame("first" = 1:500, "sec" = c(1:500), "date"=date)
  
  dataM &lt;- transform(dataM, date = ymd(dataM$date)) # date to lubridate date format
  
    splitByYear = split(dataM, year(dataM$date))
    splitByQuarter = sapply(splitByYear, function(y) split(y, quarter(y$date)))
  
    a = sapply(splitByQuarter, function(x) sapply(x, function(y) max(y$date, na.rm = TRUE)))
    b = sapply(splitByQuarter, function(x) sapply(x, function(y) min(y$sec, na.rm = TRUE)))
  
  
    res = mapply(quarterPP, a,b)
    res
  
    quarterPP &lt;- function(a, b){
      value1 = a+b
      value2 = b+1900
  
      c(value1, value2) # this should be in a dataframe
  }
  </code></pre>