Hello,

I was trying to add labels to the colSums  of the  "integers" variable 
corresponding to a "factor".  Below are the  warning message and the 
reproducible code.  How would I tweak the code to replace the "NA" with the 
"Total" in the output?  Your advice toward resolving the issue would be greatly 
appreciated.

Thanks,

Pradip Muhuri



###################  warning message - from the console  
############################
rb.data <- rbind(s.data2, c("Total", colSums(s.data2[,2, drop=FALSE]))) # row 
bind with the column total

Warning message:
In `[<-.factor`(`*tmp*`, ri, value = "Total") :
  invalid factor level, NA generated
> rb.data
Source: local data frame [7 x 2]

  years.before.initiated.cat anl.count
1                      [0,1]        89
2                      (1,2]        73
3                      (2,3]        72
4                      (3,4]        82
5                      (4,5]        82
6                      (5,6]        86
7                         NA       484
#########################  reproducible code 
#################################################
library(dplyr)

i.data2 <- data.frame(sample(1:6, size=484, replace=T)) # simulate data to 
create a data frame
colnames(i.data2) <- "years.before.initiated" # add a column name
                      
m.data2 <- mutate(i.data2,  years.before.initiated.cat = 
                    cut(years.before.initiated, 
breaks=c(0,1,2,3,4,5,6),include.lowest=TRUE))
                        # create a new variable

g.data2 <- group_by(m.data2, years.before.initiated.cat) # group by 
years.before.initiated.cat
s.data2 <- summarise(g.data2, anl.count =n() ) # summarize to get the count

rb.data <- rbind(s.data2, c("Total", colSums(s.data2[,2, drop=FALSE]))) # row 
bind with the column total
rb.data
###########################################################################################

Pradip K. Muhuri, PhD
SAMHSA/CBHSQ
1 Choke Cherry Road, Room 2-1071
Rockville, MD 20857
Tel: 240-276-1070
Fax: 240-276-1260
ommented, minimal, self-contained, reproducible code.

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to