How to compress imported column types in R -


my code importing specific file far looks like

df <- read_excel("file path",         col_types = c("numeric", "text", "numeric",           "numeric", "numeric", "numeric",           "text", "text", "text", "text", "text", "text", "text", "text",           "text", "text", "text", "text", "text", "text", "text", "text",           "text", "text", "text", "text", "text", "text", "text", "text",           "text", "text", "text", "text", "text", "text", "text", "text",           "text", "text", "text", "text", "text", "text", "text", "text",           "text", "text", "text", "text", "text", "text", "text", "text",           "text", "text", "text", "text", "text", "text", "text", "text",           "text", "text", "text", "text", "text", "text", "text", "text",           "text", "text", "text", "numeric", "numeric", "numeric", "numeric",           "numeric", "numeric", "text", "text", "text", "text", "text", "text",           "text", "text", "text", "text", "text", "text", "text"),         skip = 8)

how go compressing "col types" sections still keeping same effect. i've tried sapply(df, as.numeric), changes columns numeric need second text.

note: understand other columns besides second have "text", example halfway point of attempt.

note read_excel guess types if not work on spreadsheet:

1) rep use rep this:

col_types <- rep(c("numeric", "text", "numeric", "text", "numeric", "text"),                  c(1l, 1l, 4l, 67l, 6l, 13l))  # test - col_types_orig defined in note @ end identical(col_types, col_types_orig)  ## [1] true

2) rle can compress using rle , uncompress using inverse.rle:

r <- rle(col_types_orig) col_types <- inverse.rle(r)  identical(inverse.rle(r), col_types_orig) ## [1] true

you can r r code using dput(r). (in fact got arguments rep in (1) examining dput output.)

3) noting there 92 elements in col_types_orig , text except few numeric can this:

length(col_types_orig) ## [1] 92  table(col_types_orig) ## col_types_orig ## numeric    text  ##      11      81   which(col_types_orig == "numeric") ## [1]  1  3  4  5  6 74 75 76 77 78 79  col_types <- replace(rep("text", 92), c(1, 3:6, 74:79), "numeric")  identical(col_types, col_types_orig)  ## [1] true

note:

col_types_orig <-  c("numeric", "text", "numeric", "numeric", "numeric", "numeric",  "text", "text", "text", "text", "text", "text", "text", "text",  "text", "text", "text", "text", "text", "text", "text", "text",  "text", "text", "text", "text", "text", "text", "text", "text",  "text", "text", "text", "text", "text", "text", "text", "text",  "text", "text", "text", "text", "text", "text", "text", "text",  "text", "text", "text", "text", "text", "text", "text", "text",  "text", "text", "text", "text", "text", "text", "text", "text",  "text", "text", "text", "text", "text", "text", "text", "text",  "text", "text", "text", "numeric", "numeric", "numeric", "numeric",  "numeric", "numeric", "text", "text", "text", "text", "text",  "text", "text", "text", "text", "text", "text", "text", "text"

-

Comments

Post a Comment

Popular posts from this blog

c# - Binding a comma separated list to a List<int> in asp.net web api -

the default binder in web api expecst http://url.com/webapi/report/?pageids=3243&pageids=2365 to bind public ihttpactionresult report(list<int> pageids){ // exciting webapi code} i wish bind http://url.com/webapi/report/?pageids=3243,2365 as running out of space in url get . i have created class public class commaseparatedmodelbinder : system.web.http.modelbinding.imodelbinder { public bool bindmodel(httpactioncontext actioncontext, modelbindingcontext bindingcontext) { //binding in here } } and registered in webapiconfig.cs var provider = new simplemodelbinderprovider( typeof(list<int>), new commaseparatedmodelbinder()); config.services.insert(typeof(modelbinderprovider), 0, provider); i have altered method signature use model binder so public ihttpactionresult report( [modelbinder] list<int> pageids){ // exciting webapi code} however break point in binder not being
Read more

Delphi 7 and decode UTF-8 base64 -

in delphi 7, have widestring encoded base64(that received web service widestring result) : pd94bwwgdmvyc2lvbj0ims4wij8+dqo8c3ryaw5nptiq2lpyqjwvc3ryaw5npg== when decoded it, result not utf-8: <?xml version="1.0"?> <string>طھط³طھ</string> but when decoded base64decode.org, result true : <?xml version="1.0"?> <string>تست</string> i have use encddecd unit decodestring function. the problem have using decodestring . function, in delphi 7, treats decoded binary data being ansi encoded. , problem text utf-8 encoded. to continue encddecd unit have couple of options. can switch decodestream . instance, code produce utf-8 encoded text file data: {$apptype console} uses classes, encddecd; const data = 'pd94bwwgdmvyc2lvbj0ims4wij8+dqo8c3ryaw5nptiq2lpyqjwvc3ryaw5npg=='; var input: tstringstream; output: tfilestream; begin input := tstringstream.create(data); try output := tfilestream.
Read more

html - Is there any way to exclude a single element from the style? (Bootstrap) -

so, have img logo, overlaid on div styled background-image: url("...") , , both elements inside 2 div classes .to-color , .to-overlay respectively, black transparent overlay. is there way exclude logo style given these 2 classes? here's jsfiddle example: link html , css example: - html - <div class="to-color"> <div class="to-overlay"> <div class="respo"> <div class="row"> <div class="col-xs-4 col-xs-offset-4 text-center"> <img src="http://ansonalex.com/wp-content/uploads/2011/06/google-logo-768x260.png" alt="..." class="img-responsive"> </div> </div> </div> </div> </div> - css - .to-color { background-color: #000; } .to-overlay { opacity : 0.5; } .respo { background-image: url("https://source.unsplash.com/category/objects/1600x900"); background-position: center center;
Read more