r - Assign value lable to the shaping of a varibale -


i have data frame "cb" column"gender" 2 variables "male" , "female". want "male" gets value 0 , female gets value 1.

i did this:

cb$gender <- ifelse(cb$gender == "male", 0, ifelse(cb$gender == "female", 1,  999))

when @ column result:

head(cb$gender, 3) [1] 1 0 0

that´s fine!

when make table result:

table(cb$gender)    0    1  3555 3488

i want 0 says "male" , 1 says "female"

for better understanding:

in spss possible assign value 0 "male" , value 1 "female". when print table looks this:

male female 3555 3488

but column looks this:

gender 0 1 1 0

this want.

thank you!

you can use factor turn variable factor , label it:

cb <- data.frame(gender= c("male", "female", "male", "male", "female", "female", "male", "male")) cb$gender <- ifelse(cb$gender == "male", 0, ifelse(cb$gender == "female", 1, 999)) str(cb) #'data.frame':  8 obs. of  1 variable: # $ gender: num  0 1 0 0 1 1 0 0 cb$gender <- factor(cb$gender ,                 labels=c("male", "female")) str(cb) #'data.frame':  8 obs. of  1 variable: # $ gender: factor w/ 2 levels "male","female": 1 2 1 1 2 2 1 1 table(cb$gender) #male female  #   5      3

note: r turning factors assigns levels 1 (in case 1 & 2)

alternatively, use packages lfactors:

library(lfactors) cb <- data.frame(gender= c("male", "female", "male", "male", "female", "female", "male", "male")) cb$gender <- ifelse(cb$gender == "male", 0, ifelse(cb$gender == "female", 1, 999)) cb$gender <- lfactor(cb$gender,                  levels=0:1,                  labels=c("male", "female")) print(cb$gender) #[1] male   female male   male   female female male   male   #levels: male female #numeric levels: 0 1  table(cb$gender) #  male female  #     5      3  attributes(cb$gender)$llevels #[1] 0 1

yet option, closest spss analogy, use package labelled , sjmisc follows:

library(labelled) library(sjmisc) #access function to_label() cb <- data.frame(gender= c("male", "female", "male", "male", "female", "female", "male", "male")) cb$gender <- ifelse(cb$gender == "male", 0, ifelse(cb$gender == "female", 1, 999)) val_labels(cb$gender) <- c("male" = 0, "female" = 1) print(cb$gender) #<labelled double> #[1] 0 1 0 0 1 1 0 0 #labels: # value  label #     0   male #     1 female table(to_label(cb$gender)) #  male female  #     5      3

also, can use combination of packages sjmisc , sjlabelled. 

library(sjmisc) #access function to_label() library(sjlabelled) #function set_labels() cb <- data.frame(gender= c("male", "female", "male", "male", "female", "female", "male", "male")) cb$gender <- ifelse(cb$gender == "male", 0, ifelse(cb$gender == "female", 1, 999)) cb$gender <- set_labels(cb$gender, labels=c("male", "female")) print(cb$gender) #[1] 0 1 0 0 1 1 0 0 #attr(,"labels") #  male female  #     0      1  table(to_label(cb$gender)) #  male female  #     5      3

the function to_label() works packages lfactors, labelled , sjlabelled.


Comments

Post a Comment

Popular posts from this blog

PHP and MySQL WP -

i trying accomplish 2 things here code. writing php directly wp page using insert php plugin. 1) query mysql database , return results 1 column 4 columns. 2) make each result own hyperlink directs user new wp page runs new query on page. i able query show results , turn results dynamic hyperlink, cannot formatting down. right returns result 1 column. here have: [insert_php] $servername = "localhost"; $username = "login"; //edited privacy $password = "password"; //edited privacy $database = "database"; //edited privacy // create connection $conn = new mysqli($servername, $username, $password, $database); // check connection if ($conn->connect_error) { die("connection failed: " . $conn->connect_error); } echo "connected successfully"; //get results database $result = mysqli_query($conn,"select mine mines order mine"); $all_property = array(); //declare array saving property //showing proper...
Read more

android - InAppBilling registering BroadcastReceiver in AndroidManifest -

i'm implementing inapp billing in android app. works well, however, i'm trying decouple broadcast receiver activity manifest. suggestion in android's trivialdrive sample: // important: dynamically register broadcast messages updated purchases. // register receiver here instead of <receiver> in manifest // because call getpurchases() @ startup, therefore can ignore // broadcasts sent while app isn't running. // note: registering listener in activity bad idea, done here // because sample. regardless, receiver must registered after // iabhelper setup, before first call getpurchases(). currently there's class extends broadcastreceiver : public class iabbroadcastreceiver extends broadcastreceiver { /** * intent action receiver should filter for. */ public static final string action = "com.android.vending.billing.purchases_updated"; private final iabbroadcastlistener mlistener; public iabbroadcastreceiver(iabbroadcastlistener listener) { m...
Read more

go - golang pprof for c library code -

i have been trying profile golang application pprof, seems details of c code(linked static library) missed in output result. flame graph from frame graph can see c code time consuming reported within "runtime._externalcode", no details @ all. , sure static library compiled debug enable. so there way make pprof details(like stack trace) of 3rd party c code? or there other golang profiling tool this?
Read more