I'm having a problem reading data to set control totals for a dataframe.
I want to adjust a dataframe based on a 2-d table of values, which I get
by using :

> CurrentX1Sums <- as.matrix(xtabs(~tripid_nu+lineon, data=SurveyData))


> CurrentX2Sums <- apply(CurrentX1Sums, 1, sum)

 

I've created a .csv file with new (target) sums that looks like this:

tripid_nu    Warner Center     De Soto      Pierce College      Tampa
Reseda        Balboa          Woodley     Sepulveda   Van Nuys   Woodman
Valley College      Laurel Canyon          North Hollywood

9011880     5        2        2        2        2        2        2
2        2        2        6        4        1

9011890     1        1        1        1        1        1        2
1        1        1        1        2        1

9011960     2        2        2        1        2        2        1
2        3        2        2        1        1

9011970     1        1        1        1        2        1        1
2        6        2        2        2        24

9012040     2        2        2        3        2        7        2
2        2        1        1        1        1

9012050     1        1        1        1        1        1        1
2        2        2        1        1        5

  ...{More}...

 

I'm trying to read/process it like this:

> NewTargetData  <- read.table("C:/Data/R/NewTarget.csv", header=TRUE,
sep=",", na.strings="NA", dec=".")

> NewTargetX1Sums <- as.matrix(NewTargetData)

> NewTargetX2Sums <- apply(NewTargetX1Sums, 1, sum)

 

 

The structures of CurrentX1Sums and NewTargetX1Sums are different:

 

> str(CurrentX1Sums)

 xtabs [1:55, 1:13] 1 0 1 0 1 0 0 0 0 1 ...

 - attr(*, "dimnames")=List of 2

  ..$ tripid_nu: chr [1:55] "9011880" "9011890" "9011960" "9011970" ...

  ..$ lineon   : chr [1:13] "Warner Center" "De Soto" "Pierce College"
"Tampa" ...

 - attr(*, "class")= chr [1:2] "xtabs" "table"

 - attr(*, "call")= language xtabs(formula = ~tripid_nu + lineon, data =
SurveyData)

 

> str(NewTargetX1Sums)

 int [1:55, 1:14] 9011880 9011890 9011960 9011970 9012040 9012050
9012130 9012280 9012290 9012720 ...

 - attr(*, "dimnames")=List of 2

  ..$ : NULL

  ..$ : chr [1:14] "tripid_nu" "Warner.Center" "De.Soto"
"Pierce.College" ...

> 

 

 

 

 

Question 1) The structures (CurrentX1Sums , NewTargetX1Sums) are
different.  One way is in the dimension of the rownames.  Instead of
line numbers, I want  tripid_nu.   How do I do that?  What's the
appropriate "structure" for both?

 

 

Question 2) Why do the labels in NewTargetData have dots in place of
spaces?  Will that be a problem later when I try to match them with
SurveyData?

 

 

Question 3) Ultimately, I want to create a variable in the original
dataframe like: 

           SurveyData$NewX1 = TargetX1Sums/ CurrentX1Sums { for each
tripid_nu, lineon combination}

Am I on the right track to do so?  Any hints on what THAT syntax will
look like?

 

 

 

 

Thanks in advance,

 

 

 

 

 

########################################################################
######################################

#My work to date:

> SurveyData <- read.spss("C:/Data/R/orange_delivery.sav",
use.value.labels=TRUE, max.value.labels=Inf, to.data.frame=TRUE)

> NewTargetData  <- read.table("C:/Data/R/NewTarget.csv", header=TRUE,
sep=",", na.strings="NA", dec=".")

>
#-----------------------------------------------------------------------
--------

> temp <- sub(' +$', '', SurveyData$direction_)       # Remove spaces
from variable names

> SurveyData$direction_ <- temp

>
#-----------------------------------------------------------------------
--------

> SurveyData$StnNum=as.numeric(SurveyData$lineon)

> CurrentX1Sums <- as.matrix(xtabs(~tripid_nu+lineon, data=SurveyData))


> CurrentX2Sums <- apply(CurrentX1Sums, 1, sum)

> NewTargetX1Sums <- as.matrix(NewTargetData)

> NewTargetX2Sums <- apply(NewTargetX1Sums, 1, sum)

> 

> str(CurrentX1Sums)

 xtabs [1:55, 1:13] 1 0 1 0 1 0 0 0 0 1 ...

 - attr(*, "dimnames")=List of 2

  ..$ tripid_nu: chr [1:55] "9011880" "9011890" "9011960" "9011970" ...

  ..$ lineon   : chr [1:13] "Warner Center" "De Soto" "Pierce College"
"Tampa" ...

 - attr(*, "class")= chr [1:2] "xtabs" "table"

 - attr(*, "call")= language xtabs(formula = ~tripid_nu + lineon, data =
SurveyData)

> str(NewTargetX1Sums)

 int [1:55, 1:14] 9011880 9011890 9011960 9011970 9012040 9012050
9012130 9012280 9012290 9012720 ...

 - attr(*, "dimnames")=List of 2

  ..$ : NULL

  ..$ : chr [1:14] "tripid_nu" "Warner.Center" "De.Soto"
"Pierce.College" ...

> 



> CurrentX1Sums

         lineon

tripid_nu Warner Center De Soto Pierce College Tampa Reseda Balboa
Woodley Sepulveda Van Nuys Woodman Valley College Laurel Canyon North
Hollywood

  9011880             1       0              2     1      0      2
1         0        0       0              1             0
0

  9011890             0       0              0     0      0      0
1         0        0       0              0             1
0

  9011960             1       1              2     0      1      1
0         1        3       2              1             0
0

  9011970             0       0              0     0      1      0
0         1        6       1              1             1
14

 ...{More}...

> NewTargetX1Sums

      tripid_nu Warner.Center De.Soto Pierce.College Tampa Reseda Balboa
Woodley Sepulveda Van.Nuys Woodman Valley.College Laurel.Canyon
North.Hollywood

 [1,]   9011880             5       2              2     2      2      2
2         2        2       2              6             4
1

 [2,]   9011890             1       1              1     1      1      1
2         1        1       1              1             2
1

 [3,]   9011960             2       2              2     1      2      2
1         2        3       2              2             1
1

 [4,]   9011970             1       1              1     1      2      1
1         2        6       2              2             2
24

...{More}...







########################################################################
######################################









Robert Farley

Metro

1 Gateway Plaza

Mail Stop 99-23-7

Los Angeles, CA 90012-2952

Voice: (213)922-2532

Fax:    (213)922-2868

www.Metro.net 






	[[alternative HTML version deleted]]

