dataframe - Complex data frame transposition in R -

-

i've tried searching answer data.frame/matrix transpoitions aren't complicated trying accomplish. have data.frame looks like

          f    m    2008_b    1    5    6 2008_r    3    3    6 2008_a    4    1    5 2009_b    1    1    2 2009_r    5    4    9 2009_a    2    2    4

i'm trying transpose , rename column , row names such:

          f_b  m_b  a_b  f_r  m_r  a_r  f_a  m_a  a_a 2008        1    5    6    3    3    6    4    1    5 2009        1    1    2    5    4    9    2    2    4

essentially every 3 rows being collapsed in single row. assume can done clever plyr or reshape2 commands i'm @ total loss how accomplish it.

you try

library(dplyr) library(tidyr)  lvl <- c(outer(colnames(df), unique(gsub(".*_", "", rownames(df))),                         fun=paste, sep="_"))   res <- cbind(var1=row.names(df), df) %>%                               gather(var2, value, -var1) %>%                                separate(var1, c('var11', 'var12')) %>%                               unite(varn, var2, var12) %>%                               mutate(varn=factor(varn, levels=lvl)) %>%                               spread(varn, value)  row.names(res) <- res[,1] res1 <- res[,-1] res1 #     f_b m_b a_b f_r m_r a_r f_a m_a a_a #2008   1   5   6   3   3   6   4   1   5 #2009   1   1   2   5   4   9   2   2   4

data

df <- structure(list(f = c(1l, 3l, 4l, 1l, 5l, 2l), m = c(5l, 3l, 1l,  1l, 4l, 2l), = c(6l, 6l, 5l, 2l, 9l, 4l)), .names = c("f",  "m", "a"), class = "data.frame", row.names = c("2008_b", "2008_r",  "2008_a", "2009_b", "2009_r", "2009_a"))

Comments

Post a Comment

Popular posts from this blog

java - Oracle EBS .ClassNotFoundException: oracle.apps.fnd.formsClient.FormsLauncher.class ERROR -

-
i need in configuring java on machine because, when try loading forms, loader goes in circles , gives error: java.lang.classnotfoundexception: oracle.apps.fnd.formsclient.formslauncher.class @ sun.plugin2.applet.applet2classloader.findclass(unknown source) @ sun.plugin2.applet.plugin2classloader.loadclass0(unknown source) @ sun.plugin2.applet.plugin2classloader.loadclass(unknown source) @ sun.plugin2.applet.plugin2classloader.loadclass(unknown source) @ java.lang.classloader.loadclass(unknown source) @ sun.plugin2.applet.plugin2classloader.loadcode(unknown source) @ sun.plugin2.applet.plugin2manager.createapplet(unknown source) @ sun.plugin2.applet.plugin2manager$appletexecutionrunnable.run (unknown source) @ java.lang.thread.run(unknown source) i have tried re-installing firefox, older versions of java runtime environments, disabling proxy. what missing? application working on other machines. i spent around 100 hours finding s
Read more

c# - how to use buttonedit in devexpress gridcontrol -

-
Image
i trying create gridcontrol buttonedit in 1 of columns. when user clicks button edit, popups form select product. when selection done on popup, returns datarow selection main grid below. but when column loses focus, value wrote column disappear. here code creates gridcontrol's data , buttonedit's click event. private void frmsiparisnew_load(object sender, eventargs e) { dt = new datatable(); dt.columns.add("malzeme_kodu",typeof(string)); dt.columns.add("malzeme_aciklama", typeof(string)); dt.columns.add("adet", typeof(decimal)); dt.columns.add("birim", typeof(string)); dt.columns.add("fiyat", typeof(decimal)); dt.columns.add("kur", typeof(string)); dt.columns.add("tutar", typeof(decimal)); datarow dr = dt.newrow(); dt.rows.add(dr); gc.datasource = dt; } private void repositoryitembuttoneditmal
Read more

nvd3.js - angularjs-nvd3-directives setting color in legend as well as in chart elements -

-
good morning i using angularjs-nvd3-directives, great, having difficulties when setting color of multi bar chart ( http://cmaurer.github.io/angularjs-nvd3-directives/multi.bar.chart.html ). the show legend works well: <div ng-controller="examplectrl"> <nvd3-multi-bar-chart data="exampledata" id="showlegendexample" width="550" height="300" showxaxis="true" showyaxis="true" xaxistickformat="xaxistickformatfunction()" showlegend="true"> <svg></svg> </nvd3-multi-bar-chart> </div> but when add option in conjunction color="colorfunction()" where, var colorarray = ['#ff0000', '#0000ff', '#ffff00', '#00ffff']; $scope.colorfunction = function() { return function(d, i) { return colorarray[i]; }; } the color of cha
Read more