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

how to prompt save As Box in Excel Interlop c# MVC 4 -

i want export excel sheet using excel interloop... i have datatable convert excel sheet... now there way save file using save dialogue box in mvc 4 here code public string datatabletoexcel(datatable dt, string htmlheading, string key) { try { microsoft.office.interop.excel.application excel; microsoft.office.interop.excel.workbook excelworkbook; microsoft.office.interop.excel.worksheet excelsheet; microsoft.office.interop.excel.range excelcellrange; excel = new microsoft.office.interop.excel.application(); excel.visible = false; excel.displayalerts = false; excelworkbook = excel.workbooks.add(type.missing); excelsheet = (microsoft.office.interop.excel.worksheet)excelworkbook.activesheet; excelsheet.name = "sheet1"; dataset ...
Read more

xslt 1.0 - How to access or retrieve mets content of an item from another item? -

my use case have item has link in item. example, item 123456789/152 has metadata field dc.relation.hasversion=123456789/717 . within item view of 123456789/152 , how can retrieve values of metadata of 123456789/717 ? example, want retrieve dc.language.iso value of 123456789/717 123456789/152 . i looked @ related items feature in dspace don't know how metadata displayed in related items list pulled items in list. i using dspace version 5.3 mirage 2 theme . edit based on schweerelos answer, below actual code. using custom metadata field dc.relation.languageversion . basically, want link other version instead of displaying value, display dc.language.iso of other version in item-view.xsl . i've incorporated answer of schweerelos question in code just displaying value of dc.relation.languageversion . sample values of dc.relation.languageversion 10665.1/9843 ; 10665.1/9844 ie not complete uri handle. thanks in advance! actual code <xsl:template name=...
Read more