How to group results, and have the counts of each group written into a matrix in R? -


here's table : 

month    d1       d2      d3     d4  1.      11149   10488    5593    3073 1.      6678    11073    789     10009 2.      2322    10899    3493    21 3.      5839    11563    4367    9987

i want divide above content ( 4 columns of distance 4 rows of month) in 3 groups , have counts of each group written in matrix such : 

month        d<=700    700<d<1000   d>=1000 1.           counts       counts    .... 2.           ...           3.           ....

what's fastest way ??

thanks !

a solution using data.table package:

library(data.table) library(magrittr)  setdt(dt)[, cut(colsums(.sd),breaks=c(0,700,1000,max(colsums(.sd)))) %>%               table %>%               as.list           , month]  #   month (0,700] (700,1e+03] (1e+03,2.16e+04] #1:     1       0           0                4 #2:     2       1           0                3 #3:     3       0           0                4

data:

dt = structure(list(month = c(1, 1, 2, 3), d1 = c(11149l, 6678l, 2322l,  5839l), d2 = c(10488l, 11073l, 10899l, 11563l), d3 = c(5593l,  789l, 3493l, 4367l), d4 = c(3073l, 10009l, 21l, 9987l)), .names = c("month",  "d1", "d2", "d3", "d4"), class = "data.frame", row.names = c(na,  -4l))

Comments

Post a Comment

Popular posts from this blog

asp.net mvc - SSO between MVCForum and Umbraco7 -

i need integrate sso between mvcforum (forum of company) , umbraco7 (manages cms company). however struggling shared authentication work. tried several ways suggested on other threads still not running expected. here did: 1. in mvcforum (forum.mywebsite.com) 1.1. machine key in web.xml: <machinekey validationkey="the same key umbraco7" decryptionkey="the same key umbraco7" validation="sha1" decryption="aes" /> 1.2. authenticate forms in web.xml <forms name="my-sso-auth" protection="all" path="/" timeout="43200" domain="forum.mywebsite.com" loginurl="/members/logon" enablecrossappredirects="true" /> 2. in umbraco7 (news.mywebsite.com) 2.1. machine key in web.xml: <machinekey validationkey="the same key mvcforum" decryptionkey="the same key mvcforum" validation="sha1" decryption="aes" /> 2.2. a
Read more

Python Tkinter keyboard using bind -

i have problem using bind option can click button in keyboard, , call function once key pressed. tried taking other codes have similar purpose , saw i'm doing pretty same, though still have problem must've missed. thankful if me this. here's code: # -*- coding: utf-8 -*- #imports tkinter import * pil import imagetk, image import time import tkmessagebox #===========================================================================================================================================# #tkinter class class app(frame): def __init__(self, master=none): frame.__init__(self, master) self.pack() #===========================================================================================================================================# #game pieces classes class board: def __init__(self, rows = 7, columns = 6, picture_height = none, picture_width = none): self.rows = rows self.columns = columns self.picture
Read more

ubuntu - Selenium Node Not Connecting to Hub, Not Opening Port -

i'm trying set demo selenium grid. have digital ocean ubuntu 14.02 droplet. (i have 2 , tried set using 2 different machines got nowhere.) i'm trying run hub , node both locally. here input both hub, node, , nmap results. https://gist.github.com/mekhami/d5bbecca5ff0de9d2dc9 so, node starting tcp connection reset , port it's supposed operate on closed. i have had no luck in number of different options , configurations work. but... of course, worked randomly once. don't know why, don't know did, know 1 brief moment, node connected , saw on grid console. tried run test , went down again , i've never seen come up. please let me know more information can provide. update: randomly came online again. don't know happened, might related timeout or time_wait or going on. this because vm/server not have enough entropy available. to resolve problem, install haveged (or other similar things). the instructions of how install haveged on ubu
Read more