R: convert XML data to data frame -

-

for homework assignment attempting convert xml file data frame in r. have tried many different things, , have searched ideas on internet have been unsuccessful. here code far:

library(xml) url <- 'http://www.ggobi.org/book/data/olive.xml' doc <- xmlparse(myurl) root <- xmlroot(doc)  dataframe <- xmlsapply(xmltop, function(x) xmlsapply(x, xmlvalue)) data.frame(t(dataframe),row.names=null)

the output giant vector of numbers. attempting organize data data frame, not know how adjust code obtain that.

it may not verbose xml package xml2 doesn't have memory leaks , laser-focused on data extraction. use trimws really recent addition r core.

library(xml2)  pg <- read_xml("http://www.ggobi.org/book/data/olive.xml")  # <record>s recs <- xml_find_all(pg, "//record")  # extract , clean columns vals <- trimws(xml_text(recs))  # extract , clean (if needed) area names labs <- trimws(xml_attr(recs, "label"))  # mine column names 2 variable descriptions # xpath construct lets grab either <categ…> or <real…> tags # , grabs 'name' attribute of them cols <- xml_attr(xml_find_all(pg, "//data/variables/*[self::categoricalvariable or                                                       self::realvariable]"), "name")  # converts each set of <record> columns data frame # after first converting each row numeric , assigning # names each column (making easier matrix data frame conv) dat <- do.call(rbind, lapply(strsplit(vals, "\ +"),                                  function(x) {                                    data.frame(rbind(setnames(as.numeric(x),cols)))                                  }))  # assign area name column data frame dat$area_name <- labs  head(dat) ##   region area palmitic palmitoleic stearic oleic linoleic linolenic ## 1      1    1     1075          75     226  7823      672        na ## 2      1    1     1088          73     224  7709      781        31 ## 3      1    1      911          54     246  8113      549        31 ## 4      1    1      966          57     240  7952      619        50 ## 5      1    1     1051          67     259  7771      672        50 ## 6      1    1      911          49     268  7924      678        51 ##   arachidic eicosenoic    area_name ## 1        60         29 north-apulia ## 2        61         29 north-apulia ## 3        63         29 north-apulia ## 4        78         35 north-apulia ## 5        80         46 north-apulia ## 6        70         44 north-apulia

update

i'd prbly last bit way now:

library(tidyverse)  strsplit(vals, "[[:space:]]+") %>%    map_df(~as_data_frame(as.list(setnames(., cols)))) %>%    mutate(area_name=labs)

Comments

Post a Comment

Popular posts from this blog

java - Static nested class instance -

-
this question has answer here: java inner class , static nested class 23 answers i came across in java, know static nested class why create instance of 'static'. isn't whole idea of 'static' use without instance? understand concept of inner classes, why (and frankly how possible to) create 'instance' of 'static' member @ ? why this: 1- outerclass.staticnestedclass nestedobject = new outerclass.staticnestedclass(); 2- nestedobject.anestedclassmethod(); and not this: 1- outerclass outerinstance=new outerclass(); 2- outerinstance.staticnestedclass.anestedclassmethod(); use on inner classes, keyword static indicates can access inner class without instance of outer class. for example: public class outer { public static class inner { /* code here. */ } } with construction, can create instance of inn
Read more

c# - Bluetooth LE CanUpdate Characteristic property -

-
i building xamarin.forms cross platform mobile app, uses monkey.robotics bluetoth low energy functionality. connecting mbed based implimentation of custom gatt service . in xamarin c#, triggers characteristic. canupdate property in monkey.robotics? this standard example c# based on: if (characteristic.canupdate) { characteristic.valueupdated += (s, e) => { debug.writeline("characteristic.valueupdated"); device.begininvokeonmainthread( () => { updatedisplay(characteristic); }); isbusy = false; // spin until first result received }; isbusy = true; characteristic.startupdates(); } this has been working, since changed own custom gatt service connecting to, canupdate property false. property , how triggered? me debugging gatt service code. thanks monkey.robotics open sour
Read more

JavaScript - Replace variable from string in all occurrences -

-
ok, know if have character '-' , want remove in places in string javascript, ... someword = someword.replace(/-/g, ''); but, when applying array of characters, s not working ... const badchars = ('\/:*?"<>|').split(''); let filename = title.replace(/ /g, '-').tolocalelowercase(); (let item = 0; item < badchars.length; item++) { // below not work global '/ /g' filename = filename.replace(/badchars[item]/g, ''); } any ideas? /badchars[item]/g looks badchars , literally, followed i , t , e , or m . if you're trying use character badchars[item] , you'll need use regexp constructor, , you'll need escape regex-specific characters. escaping regular expression has been well-covered . using that: filename = filename.replace(new regexp(regexp.quote(badchars[item]), 'g'), ''); but , don't want that. want character class: let filename = title.replac
Read more