R: how to find the mode of a vector -


this question has answer here:

below data.frame , know mode each of memory categories (1 through 8)

> dput(d) structure(list(memory1 = c(5.5, 7, 1.5, 6, 4.5, 4.5, 5, 4, 1,  5.5, 2.5, 4.5, 2.5, 5.5, 4, 1, 4, 5, 2.5, 5.5), memory2 = c(5.5,  3, 1.5, 6, 4.5, 4.5, 5, 4, 5, 5.5, 6.5, 4.5, 2.5, 5.5, 4, 7,  8, 5, 6.5, 5.5), memory3 = c(5.5, 3, 4.5, 2, 4.5, 4.5, 5, 4,  5, 1.5, 6.5, 4.5, 6.5, 5.5, 4, 7, 4, 5, 6.5, 5.5), memory4 = c(1.5,  3, 4.5, 2, 1, 4.5, 5, 4, 5, 5.5, 2.5, 4.5, 2.5, 1.5, 4, 2, 4,  5, 2.5, 1.5), memory5 = c(5.5, 3, 4.5, 6, 4.5, 4.5, 5, 1, 5,  5.5, 6.5, 4.5, 6.5, 5.5, 4, 4, 4, 5, 2.5, 1.5), memory6 = c(5.5,  7, 7.5, 6, 8, 4.5, 5, 7.5, 5, 5.5, 6.5, 4.5, 6.5, 5.5, 4, 4,  4, 5, 2.5, 5.5), memory7 = c(1.5, 3, 4.5, 2, 4.5, 4.5, 1, 4,  5, 1.5, 2.5, 4.5, 6.5, 1.5, 4, 7, 4, 1, 6.5, 5.5), memory8 = c(5.5,  7, 7.5, 6, 4.5, 4.5, 5, 7.5, 5, 5.5, 2.5, 4.5, 2.5, 5.5, 8, 4,  4, 5, 6.5, 5.5)), .names = c("memory1", "memory2", "memory3",  "memory4", "memory5", "memory6", "memory7", "memory8"), row.names = c(492l,  509l, 510l, 518l, 519l, 522l, 527l, 533l, 535l, 542l, 543l, 557l,  558l, 560l, 567l, 569l, 578l, 581l, 582l, 584l), class = "data.frame")

please ignore first unnamed column not relevant here.

> d     memory1 memory2 memory3 memory4 memory5 memory6 memory7 memory8 492     5.5     5.5     5.5     1.5     5.5     5.5     1.5     5.5 509     7.0     3.0     3.0     3.0     3.0     7.0     3.0     7.0 510     1.5     1.5     4.5     4.5     4.5     7.5     4.5     7.5 518     6.0     6.0     2.0     2.0     6.0     6.0     2.0     6.0 519     4.5     4.5     4.5     1.0     4.5     8.0     4.5     4.5 522     4.5     4.5     4.5     4.5     4.5     4.5     4.5     4.5 527     5.0     5.0     5.0     5.0     5.0     5.0     1.0     5.0 533     4.0     4.0     4.0     4.0     1.0     7.5     4.0     7.5 535     1.0     5.0     5.0     5.0     5.0     5.0     5.0     5.0 542     5.5     5.5     1.5     5.5     5.5     5.5     1.5     5.5 543     2.5     6.5     6.5     2.5     6.5     6.5     2.5     2.5 557     4.5     4.5     4.5     4.5     4.5     4.5     4.5     4.5 558     2.5     2.5     6.5     2.5     6.5     6.5     6.5     2.5 560     5.5     5.5     5.5     1.5     5.5     5.5     1.5     5.5 567     4.0     4.0     4.0     4.0     4.0     4.0     4.0     8.0 569     1.0     7.0     7.0     2.0     4.0     4.0     7.0     4.0 578     4.0     8.0     4.0     4.0     4.0     4.0     4.0     4.0 581     5.0     5.0     5.0     5.0     5.0     5.0     1.0     5.0 582     2.5     6.5     6.5     2.5     2.5     2.5     6.5     6.5 584     5.5     5.5     5.5     1.5     1.5     5.5     5.5     5.5

if tabulate values memory1, following:

> table(d$memory1)    1 1.5 2.5   4 4.5   5 5.5   6   7    2   1   3   3   3   2   4   1   1

so can see 5.5 mode here, , tried as.numeric(names(table(d$memory1))[which.max(table(d$memory1))]) did return 5.5. pretty clunky , how can iterate on 8 columns of data.frame? want resulting vector containing 8 modes (one corresponding each column). what's elegant way this?

this post provides elegant function determine mode need apply data frame.

mode <- function(x) {   ux <- unique(x)   ux[which.max(tabulate(match(x, ux)))] }  apply(d, 2, mode)

yields:

memory1 memory2 memory3 memory4 memory5 memory6 memory7 memory8      5.5     5.5     4.5     1.5     4.5     5.5     4.5     5.5

Comments

Post a Comment

Popular posts from this blog

user interface - how to replace an ongoing process of image capture from another process call over the same ImageLabel in python's GUI TKinter -

i trying use following code create interactive gui changes color-space(hsv, rbg, grayscale etc) on event of button click. display opencv video in tkinter using multiprocessing being new python having problems multiprocessing , attempts on making gui change it's color space on button clicks hangs entire system. on it's implementation highly appreciated. thankyou. below code: import cv2 pil import image,imagetk import tkinter tk import numpy np multiprocessing import process , queue def quit_it(root,process): root.destroy() process.terminate() def black_andwhite(root,process): process.terminate p=process(target=capture_image, args=(5,queue, )) p.start() root.after(0, func=lambda: update_all(root, image_label, queue)) def update_image(image_label, queue): frame = queue.get() = image.fromarray(frame) b = imagetk.photoimage(image=a) image_label.configure(image=b) image_label._image_cache = b root.update() def update_all(root...
Read more

javascript - Using jquery append to add option values into a select element not working -

i'm looking dynamically populate select element names of items stored array. for reason it's not working , i'm not sure why. html: <div class="col-md-4 col-md-offset-4"> <select class="select1"> </select> , <select class="select2"> </select> </div> note i'm using bootstrap layout. here's jquery i'm using try , populate ".select1" jquery: select: function() { $.each(state.greens, function(index, value) { $(".select1").append("<option value =' " + index + " '>" + state.greens[index].name + "</option>"); }); } note function 'select' stored within object called 'display'. state.greens name of array i'm trying access. so @ end of html page call display.select(); call function. no error messages showing in console. also, saw question: appending ...
Read more

javascript - Restarting Supervisor and effect on FlaskSocketIO -

in index.html (html/javascript) have: $(document).ready(function(){ namespace = '/test'; var socket = io.connect('http://' + document.domain + ':' + location.port + namespace); socket.on('connect', function() { socket.emit('join', {room: 'venue_1'}); }); socket.on('my response', function(msg) { $('#log').append('<br>received #' + ': ' + msg.data); }); }); on server have: @socketio.on('connect', namespace='/test') def test_connect(): if session.get('venue_id'): emit('my response', {'data': 'connected'}) session.pop('venue_id', none) else: request.namespace.disconnect() @socketio.on('join', namespace='/test') def join(message): join_room(message['room']) room = message[...
Read more