Skip to content

Insert row in specific location between data frames

4 messages · David Winsemius, Rui Barradas, pigpigmeow

David Winsemius
#
On Jul 1, 2012, at 1:33 AM, pigpigmeow wrote:

            

      
      
      
    

        
Yes, you are. The 'merge' operation requires that the two data.frames  
have some sort of identifier that labels the groups to be merged.

You should describe what you are attempting rather than showing failed  
efforts at doing it.

  
    

      
      
    

  


  


    

    

      
      

        


  

        

      pigpigmeow
    

    

      
      #
    

  


  

      
First, I have "predict_SO2_a" which is contained 24 data. I want to insert
"NA" in 11th row. Then, "predict_SO2_a" becomes 25 data.
After insert the row, I want to use "with" function to combine the
data.frame
/>groupA$predict_SO2<-with(groupA, predict_SO2_a).
/
/>dput(predict_SO2_a)
c(39.7932308121176, 30.25257753285, 32.4675835451901, 31.9415094289634, 
27.9083195877186, 11.5941369504695, 9.36812510512633, 12.3190926962636, 
.......................
14.9134904913096, 33.8462160039482, 16.6586503422101, 11.0312717522444, 
22.3102431270508, 15.1408236735915, 10.6875527887638, 11.3294850253127, 
13.9037966719703, 28.6603710864312)

            

      
      
      
    

        
structure(list(Date = structure(c(15L, 21L, 23L, 20L, 9L, 10L, 
2L, 11L, 22L, 6L, 7L, 16L, 17L, 24L, 26L, 12L, 18L, 19L, 14L, 
8L, 25L, 3L, 4L, 5L, 13L), .Label = c("", "1/9/2001", "10/9/2010", 
"11/9/2010", "12/9/2010", "14/9/2002", "15/9/2002", "15/9/2009", 
"19/9/1999", "2/9/2000", "2/9/2001", "2/9/2008", "21/9/2010", 
"24/9/2008", "3/9/1997", "3/9/2003", "3/9/2005", "3/9/2008", 
"5/9/2008", "6/9/1998", "7/9/1997", "7/9/2001", "8/9/1997", "8/9/2006", 
"8/9/2010", "9/9/2006"), class = "factor"), pressure = c(-8.110989011, 
-5.910989011, -3.510989011, -4.732967033, -5.737362637, -7.607692308, 
-9.675824176, -9.075824176, -5.575824176, -6.169230769, -8.169230769, 
-9.207692308, -9.197802198, -4.884615385, -3.684615385, -3.132967033, 
-3.332967033, -3.232967033, -9.532967033, -8.537362637, -6.869230769, 
-6.869230769, -3.869230769, -2.069230769, -5.369230769), maxtemp =
c(2.056043956, 
0.756043956, 1.556043956, 2.216483516, 1.995604396, 2.346153846, 
1.97032967, 0.17032967, 1.57032967, 0.747252747, -0.352747253, 
0.672527473, 1.985714286, 1.452747253, 0.352747253, 1.568131868, 
3.068131868, 1.368131868, 0.168131868, 1.987912088, 5.187912088, 
3.987912088, -0.812087912, 1.587912088, -1.112087912), avetemp =
c(2.540659341, 
0.440659341, 1.340659341, 1.287912088, 2.278021978, 2.2, 1.962637363, 
0.962637363, 1.562637363, 1.482417582, 0.682417582, 1.089010989, 
2.103296703, 1.989010989, 0.589010989, 2.087912088, 2.287912088, 
1.787912088, 1.287912088, 1.330769231, 5.237362637, 3.43736263
.............................
ratio = c(1.53920929073912, 
...................
2.08020364225369, 2.5845449621267, 4.68646633242131, 0.93343593089835, 
1.18698605729367, 1.19133323040343, 1.9902213063946, 2.09049362040035
)), .Names = c("Date", "pressure", "maxtemp", "avetemp", "mintemp", 
"RH", "solar", "windspeed", "transport", "angle", "rainfall", 
"RSP", "Ozone", "NO2", "NOX", "SO2", "CO", "newRSP", "newOzone", 
"newNO2", "newNOX", "newSO2", "predict_RSP", "predict_NO2", "predict_NOX",
"ratio"), row.names = c(NA, 25L), class = "data.frame")/

Finally, I want to groupA combine with groupB, groupB contains ......

/dput(groupB)
structure(list(Date = structure(c(1L, 16L, 20L, 27L, 32L, 34L, 
35L, 7L, 11L, 21L, 30L, 17L, 8L, 2L, 28L, 3L, 18L, 22L, 24L, 
29L, 31L, 23L, 25L, 4L, 26L, 12L, 13L, 15L, 19L, 5L, 6L, 33L, 
9L, 10L, 14L), .Label = c("1/9/1997", "1/9/2004", "1/9/2006", 
"1/9/2008", "10/11/2009", "11/11/2009", "11/9/1999", "12/10/2003", 
"13/9/2010", "17/9/2010", "18/9/1999", "18/9/2008", "18/9/2009", 
"18/9/2010", "19/9/2009", "2/9/1997", "2/9/2002", "2/9/2006", 
"20/9/2009", "26/11/1997", "3/10/2000", "3/9/2006", "3/9/2007", 
"4/9/2006", "4/9/2007", "4/9/2008", "5/9/1998", "5/9/2004", "5/9/2006", 
"6/9/2001", "6/9/2006", "7/9/1998", "7/9/2010", "8/9/1998", "9/9/1998"
), class = "factor"), pressure = c(-8.310989011, -8.710989011, 
-1.710989011, -4.732967033, -2.932967033, -2.732967033, -5.432967033, 
-6.637362637, -7.237362637, -1.707692308, -6.475824176, -3.869230769, 
-3.507692308, -8.098901099, -10.6989011, -7.184615385, ....................
 ratio = c(1.94158182541644, 2.12248234979731, 
1.87302150800523, 2.61289013672199, 2.97067043253228, 2.85053235533923, 
2.51886435993509, 1.87829582620638, ........................
2.9380496638884, 1.40686764084479, 
0.858666346292962)), .Names = c("Date", "pressure", "maxtemp", 
"avetemp", "mintemp", "RH", "solar", "windspeed", "transport", 
"angle", "rainfall", "RSP", "Ozone", "NO2", "NOX", "SO2", "CO", 
"newRSP", "newOzone", "newNO2", "newNOX", "newSO2", "predict_RSP", 
"predict_NO2", "predict_NOX", "predict_SO2", "ratio"), row.names = c(NA, 
-35L), class = "data.frame")/


I used "merge" function to combine groupA and groupB. totally contains 60
data
mab<-merge(groupA,groupB)

however, it shows...
/>mab
 [1] Date        pressure    maxtemp     avetemp     mintemp     RH         
solar       windspeed   transport   angle       rainfall    RSP        
Ozone      
[14] NO2         NOX         SO2         CO          newRSP      newOzone   
newNO2      newNOX      newSO2      predict_RSP predict_NO2 predict_NOX
predict_SO2
[27] ratio      
<0 rows> (or 0-length row.names)/



--
View this message in context: http://r.789695.n4.nabble.com/Insert-row-in-specific-location-between-data-frames-tp4634905p4635071.html
Sent from the R help mailing list archive at Nabble.com.

  
  


  


      

    

    

      
      

        


  

        

      Rui Barradas
    

    

      
      #
    

  


  

      
Hello,

When I've asked you to dput() your datasets, I meant all of the output 
of dput(), for us to copy it and paste in an R session. It is the 
easiest way of recreating exact copies of the objects.

Like this, with those "................" it's unusable.

Now, as far as I can see, you have a data.frame called groupA with 25 
rows and a vector of 24 elements. after including an NA in 11th position 
the vector length becomes 25. This part was already answered to.

Then you want to put that vector as a column of groupA. You do NOT need 
'with', this will do:

groupA$predict_SO2 <- predict_SO2_a


Then you want to merge this resulting data.frame with another 
data.frame, groupB, right? But merge returns a data.frame with 0 rows.

What went wrong? The common columns combined don't have the same values.

Why not? Because column 'Date' is a factor, not a date. The labels, 
i.e., the dates values, might be equal but the factors, how they are 
coded, are not.

Use the following.


x <- with(groupA, levels(Date)[Date])
x <- as.Date(x, format="%d/%m/%Y")
groupA$Date <- x

And the same for groupB. Only then try to merge them.

And next time paste the output of dput(), ALL of it.

Hope this helps,

Rui Barradas

Em 02-07-2012 05:39, pigpigmeow escreveu:

            

      
      
      
    

        

      
      
    

  
  


  


      

    

    

      
      

        


  

        

      pigpigmeow
    

    

      
      #
    

  


  

      
I have already follow your step, it still not work
when I merge groupA and groupB , the error message was shown
Error in rbind(deparse.level, ...) : replacement has length zero

--
View this message in context: http://r.789695.n4.nabble.com/Insert-row-in-specific-location-between-data-frames-tp4634905p4635153.html
Sent from the R help mailing list archive at Nabble.com.