r - Mapping variables to hexagon size and color with hex_bin -



r - Mapping variables to hexagon size and color with hex_bin -

so, found this code how map variable hexagon size while ago , tried modify utilize purpose of drawing basketball shot charts. know there have been other threads this one, none i've read in past answered question. first 1 help i'm stuck 1 little problem:

let's have info frame 4 variables, x, y, value (of points shot has; in basketball it's either 2 or 3, depending on how far basket take shot), , outcome (1 shot made, 0 shot missed), on 250 observations. 250 shots x , y coordinates, value , outcome.

example:

x y value outcome 1 169.7650 -316.5726 3 0 2 75.0775 -182.3126 2 0 3 94.0150 -147.4050 2 1 4 109.1650 -138.0068 2 0 5 87.7025 -146.0624 2 1 # dput below: structure(list(x = c(169.765, 75.0775, 94.015, 109.165, 87.7025), y = c(-316.5726, -182.3126, -147.405, -138.0068, -146.0624), value = c(3l, 2l, 2l, 2l, 2l), outcome = c(0l, 0l, 1l, 0l, 1l)), .names = c("x", "y", "value", "outcome"), class = "data.frame", row.names = c(na, -5l))

negative coordinates because (0/0) in top left corner. code first thread linked above able bin data, can't figure out how operate on binned data. got far:

from code:

# devtools::install_git("https://github.com/hadley/densityvis.git") library(densityvis) bin = hex_bin(df$x, df$y, var4=df$value, frequency.to.area=true) hexes = hex_coord_df(x=bin$x, y=bin$y, width=attr(bin,"width"), height=attr(bin,"height"), size=bin$size) hexes$rightness = rep(bin$col, each=6) ggplot(hexes, aes(x=x, y=y)) + geom_polygon(aes(fill=rightness, group=id))

with size displaying how many shots taken given area. color gives value of shots area. want points per shot, meaning: summing points per bin , dividing number of shots taken, ranging 0 (no shots made) 3 (all shots made 3 point area) , displaying bins @ to the lowest degree 2 shots taken.

i know lot ask, , it's problem can't on own. if had time, help much appreciated.

edit: uploaded csv sample created above image here. don't know if it's cool post 300 lines of code question, that's why link geotheory's code here. modified illustration in code bracket above, ran

df <- read.csv("sample_data.csv", header=true)

beforehand.

as hex_bin code stands 0 value observations filtered out. can changed removing & var4 > 0 argument clean_xy (line 117 in github). following:

df$pts = 0 for(i in 1:nrow(df)) if(df$outcome[i] == 1) df$pts[i] = df$value[i] bin = hex_bin(df$x, df$y, var4=df$pts, frequency.to.area=true) hexes = hex_coord_df(x=bin$x, y=bin$y, width=attr(bin,"width"), height=attr(bin,"height"), size=bin$size) hexes$points = rep(bin$col, each=6) ggplot(hexes, aes(x=x, y=y)) + geom_polygon(aes(fill=points, group=id))

gives you:

is you're looking for?

r ggplot2 binning

Comments

Post a Comment

Popular posts from this blog

xslt - DocBook 5 to PDF transform failing with error: "fo:flow" is missing child elements. Required content model: marker* -

xslt - DocBook 5 to PDF transform failing with error: "fo:flow" is missing child elements. Required content model: marker* - i've inherited doc publishing process takes docbook , builds html , pdf output, using apache fop both. project had been started, never completed. lots of tweaking, i've able of doc sets build (20+), except handful, , fail severe code 1 of these 2 conditions: "fo:flow" missing kid elements. required content model: marker* "fo:block" not valid kid of "fo:root" the xml output comes out of docbook , docbook-fop checks out well-formed. the fop error in 1 book, "endecagloss", example, points end of string: <fo:flow flow-name="xsl-region-body" start-indent="4pc" end-indent="0pt"/> here’s log output in case: [java] severe: javax.xml.transform.transformerexception: file:/scratch/publishing/hudson/jobs/build-main-endeca-documentation/workspace/serverdoc/w...
Read more

mediawiki - How do I insert tables inside infoboxes on Wikia pages? -

mediawiki - How do I insert tables inside infoboxes on Wikia pages? - i want insert tables in infoboxes. example, have proteinbox i've developed using infobox template (http://health-and-medicine.wikia.com/wiki/template:proteinbox), , fasta field big fit comfortably in proteinbox. hence collapsible table within box. this tried: {{infobox | row 1 = {| class = "mw-collapsible mw-collapsed wikitable" |- | <!-- table content --> |} }} your problem is, putting nested table within template. pipe characters ( | ) in table syntax collides pipe usage in templates. the commonly used hack around create template called template:! , containing pipe character, , utilize when need set tables, parser functions or other stuff using pipe characters, within templates. table (with every | replaced {{!}} ): {{{!}} {{!}}- {{!}} a1 {{!}} b1 {{!}}- {{!}} a2 {{!}} b2 {{!}}} ...the equivalent of {| |- | a1 | b1 |- | a2 | b2 |} furthermore, hav...
Read more

Local Service User Logged into Windows -

Local Service User Logged into Windows - i created windows service tracks app server user connected through load balancer. it retrieves user logged windows on machine, cross references active directory (ad) business relationship homecoming first name, lastly name , e-mail (for notification through website created project) there 1 scheme on network users remote system, vista system, reason returning values "local service" logged machine, it's weird , security guys impossible "local service" business relationship logged windows. here how user logged windows managementscope ms = new managementscope("\\\\.\\root\\cimv2"); objectquery query = new objectquery("select * win32_computersystem"); managementobjectsearcher searcher = new managementobjectsearcher(ms, query); foreach (managementobject mo in searcher.get()) { _username = mo["username"].tostring(); } // remove domain part username string[] usernameparts = _...
Read more