r - Preserve NA in output of ifelse statement using paste -



r - Preserve NA in output of ifelse statement using paste -

i have info organized below m1 - m4, , utilize code here generate m_new:

m1 m2 m3 m4 m_new 1 1,2 0 1 1 3,4 3,4 1,2,3,4 4 3,4 na na 1 2 na

it looks specified number of occurneces of number in 4 columns , reports numbers in m_new. now, include numbers 0 , 21 each of observations, unless observation na. however, far, unable paste 0 , 21 observations, without pasting them na values. desired output include in df below m_new1. how can accomplished? appears missing paste here.

# sample info df <- structure(list(m1 = structure(c(3l, 4l, 2l, 2l, 1l, 5l, na, 6l ), .label = c("0", "1", "1,2", "1,2,3,4", "1,2,3,4,5", "3,4,5,6,7" ), class = "factor"), m2 = structure(c(3l, na, 2l, 2l, 1l, 4l, na, 5l), .label = c("0", "1,2", "1,2,3,4,5", "4,5,6", "4,5,6,7,8,9,10,11,12,13,14" ), class = "factor"), m3 = structure(c(3l, na, 1l, 1l, 1l, 2l, na, 4l), .label = c("0", "1,2,3,4", "1,2,3,4,5", "1,2,3,4,5,6,7,8" ), class = "factor"), m4 = structure(c(3l, na, 1l, 2l, 1l, 5l, na, 4l), .label = c("0", "1", "1,2,3,4,5,6", "1,2,3,4,5,6,7,8,9,10,11,12", "4,5"), class = "factor"), m_new1 = structure(c(3l, na, 1l, 2l, 1l, 5l, na, 4l), .label = c("0,21", "1,0,21", "1,2,3,4,5,0,21", "3,4,5,6,7,8,0,21", "4,5,0,21"), class = "factor")), .names = c("m1", "m2", "m3", "m4", "m_new1"), class = "data.frame", row.names = c(na, -8l)) # function modified http://stackoverflow.com/a/23203159/1670053 f <- function(x, n=3) { tab <- table(strsplit(paste(x, collapse=","), ",")) res <- paste(names(tab[which(tab >= n)]), collapse=",") return(ifelse(is.na(res), na, ifelse(res == 0, "0,21", paste(res,",0,21",sep="")))) #return(ifelse(is.na(res), ifelse(res == 0, "0,21", na), paste(res,",0,21",sep=""))) #http://stackoverflow.com/a/17554670/1670053 #return(ifelse(is.na(res), na, ifelse(res == 0, "0,21", paste(na.omit(res),",0,21",sep="")))) #return(ifelse(is.na(res), as.character(na), ifelse(res == 0, "0,21", paste(res,",0,21",sep="")))) } df$m_new2 <- apply(df[, 1:4], 1, f))

you can add together if else statement - rather inelegant gets there.

f2 <- function(x, n=3) { tab <- table(strsplit(paste(x, collapse=","), ",")) res <- paste(names(tab[which(tab >= n)]), collapse=",") res <- ifelse(res %in% c("0", ""), "0,21", res) if(res %in% c("na","0,21")) res else paste(res, "0,21", sep=",") } apply(df[1:4], 1, f2) # "1,2,3,4,5,0,21" "na" "0,21" "1,0,21" "0,21" "4,5,0,21" "na" # "3,4,5,6,7,8,0,21"

r if-statement data.frame na

Comments

Post a Comment

Popular posts from this blog

Delphi change the assembly code of a running process -

Delphi change the assembly code of a running process - i'm trying alter address 00741fa5 has push test.009e721c . alter push test.009e71c8 . procedure callback; asm force $9e71c8 end; procedure tform2.btn1click(sender: tobject); var ppid :dword; pprocess : cardinal; begin getwindowthreadprocessid(findwindow(nil,pchar('test')), @ppid); pprocess := openprocess(process_all_access, false, ppid); injectasm(pprocess, $741fa5, 10, integer(@callback), 0); end; here injectasm function (with error checking) function injectasm(process: longword; injectaddress, injectsize, codeaddress, codesize : integer): pointer; var csize, rsize : integer; replaced : array of byte; jmp : array [0..4] of byte; jmpaddress : integer; nopv : byte; : integer; nbr: ulong_ptr; begin //injectsize must equal or greater 5, because need space our //(far) jmp wwxxyyzz instruction //if there's no space, inject in place of few instructions if injectsize ...
Read more

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) -

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) - hello have problem hibernate , jackson. have 2 pojos @entity @table(name = "users") public class user implements serializable { static final long serialversionuid = 4235637833262722256l; @id @generatedvalue private int id; @column(name = "creation_date") private date creationdate; @column(name = "first_name") private string firstname; @column(name = "last_name") private string lastname; @version @column(name = "version") private int version; @column(name = "e_mail") private string email; @column(name = "enabled") private boolean enabled; @column(name = "login") private string login; @column(name = "password") private string password; @jsonmanagedreference("role") @onetomany(mappedby = "user", cascade = cascadetype.all,fetch = fetchtyp...
Read more

C++ 11 "class" keyword -

C++ 11 "class" keyword - i've started using c++ 11 little bit more , have few questions on special uses of class keyword. know it's used declare class, there's 2 instances have seen don't understand: method<class t>(); and class class_name *var; why precede typename keyword class in first example, , keyword pointer in sec example? that known elaborated type specifier , necessary when class name "shadowed" or "hidden" , need explicit. class t { }; // love of god don't t t; t t2; if compiler smart, give these warnings: main.cpp:15:5: error: must utilize 'class' tag refer type 't' in scope t t2; ^ class main.cpp:14:7: note: class 't' hidden non-type declaration of 't' here t t; ^ if class not defined, deed forwards declaration. for example: template <typename t> void method() { using type = typename t::value_type; } method...
Read more