How to scale points in R plot? -

-

i have 40 pairs of birds each male , female scored colour. colour score categorical variable (range of 1 9). plot frequency of number of males , female pairs colour combinations. have created 'table' number of each combination (1/1, 1/2, 1/3, ... 9/7, 9/8, 9/9), converted vector called 'colour_count'. use 'colour_count' 'cex' parameter in 'plot' scale size of each combination of colours. not work because of order data read table. how create vector frequency of each colour combination scale plot points?

see data , code below:

## dataset pairs of males , females , colour classes pair_colours <- structure(list(male = c(7, 6, 4, 6, 8, 8, 5, 6, 6, 8, 6, 6, 5,  7, 9, 5, 8, 7, 5, 5, 4, 6, 7, 7, 3, 6, 5, 4, 7, 4, 3, 9, 4, 4,  4, 4, 9, 6, 6, 6), female = c(9, 8, 8, 9, 3, 6, 8, 5, 8, 9, 7,  3, 6, 5, 8, 9, 7, 3, 6, 4, 4, 4, 8, 8, 6, 7, 4, 2, 8, 9, 5, 6,  8, 8, 4, 4, 5, 9, 7, 8)), .names = c("male", "female"), class = "data.frame", row.names = c(na,  40l))  pair_colours[] <- as.data.frame(lapply(pair_colours, factor, levels=1:9))  ## table of pair colour values (colours 1 9 - categoricial variable) table(pair_colours$male, pair_colours$female)  colour_count <-  as.vector(table(pair_colours$male, pair_colours$female)) #<- problem occurs here  ## plot results visisually possible assortative mating colour op<-par(mfrow=c(1,1), oma=c(2,4,0,0), mar=c(4,5,1,2), pty = "s") plot(1,1, xlim = c(1, 9), ylim = c(1, 9), type="n", xaxt = "n", yaxt = "n", las=1, bty="n", cex.lab = 1.75, cex.axis = 1.5, main = null, xlab = "male colour", ylab = "female colour", pty = "s") axis(1, @ = seq(1, 9, = 1), labels = t, cex.lab = 1.5, cex.axis = 1.5, tick = true, tck = -0.015, lwd = 1.25, lwd.ticks = 1.25) axis(2, @ = seq(1, 9, = 1), labels = t, cex.lab = 1.5, cex.axis = 1.5, tick = true, tck = -0.015, lwd = 1.25, lwd.ticks = 1.25, las =2) points(pair_colours$male, pair_colours$female, pch = 21, cex = colour_count, bg = "darkgray", col = "black", lwd = 1)

you can summarise data function ddply() of library plyr , use new data frame plot data. counts in column v1 of new data frame.

library(plyr) df<-ddply(pair_colours,.(male,female),nrow) df    male female v1 1     3      5  1 2     3      6  1 3     4      2  1 4     4      4  3  points(df$male, df$female, pch = 21, cex = df$v1,                 bg = "darkgray", col = "black", lwd = 1)

update - solution using aggregate

other possibility use function aggregate(). first, add new column n contains values 1. aggregate() sum n values each male , female combination.

pair_colours$n<-1 aggregate(n~male+female,data=pair_colours,fun=sum)     male female n 1     4      2 1 2     6      3 1 3     7      3 1 4     8      3 1 5     4      4 3

enter image description here


Comments

Post a Comment

Popular posts from this blog

c++ - Function signature as a function template parameter -

-
i'd use function signature template argument. works great classes, when try same trick function templates, msvc throws error: error c2768: 'func' : illegal use of explicit template arguments here's code: template <typename signature> void func(); template <typename r, typename a1> void func<r(a1)>(); what should make work? you cannot partially specialize function template, not supported language. can create partially specialized class template static member function, , possibly trampoline function instantiate class template , invoke static function. something this: namespace detail { template<typename signature> struct helper; template<typename r, typename a1> struct helper<r(a1)> { static void call() { // stuff r , a1... } }; } template<typename signature> void func() { detail::helper<signature>::call(); }
Read more

algorithm - What are some ways to combine a number of (potentially incompatible) sorted sub-sets of a total set into a (partial) ordering of the total set? -

-
i have sorting problem i'm pretty sure doesn't have canonical "answer" - has number of different approaches, each pros/cons. i'm interested in hearing different approaches. suppose bunch of people {p_i | i=1,...,m} ranking favorite ice cream flavors. in total there n different flavors, single person p_i ranks n_i << n flavors or familiar with. i'm interested in combining these sub-rankings plausible overall ranking of n flavors. for concrete situation: m , n both 1000 (by coincidence), , each n_i 20 . can assume there's enough overlap in flavors people rank such no flavor "isolated". again, i'm interested in hearing different ways approach this, if there isn't single clear answer. thanks! one way approach problem construct directed cyclic graph representing of constraints on ordering of elements. nodes in graph represent different elements compared , have edge first node second node if had ranked first e...
Read more

How to call a javascript function after the page loads with a chrome extension? -

-
there's function on page want call after loads. not own page, can't insert html it. can please provide specific examples how chrome extension or greasemonkey? (function submitaction() ). both chrome extensions , greasemonkey offer ways specify when script inject if executed. in chrome extension, you set in manifest : "content_scripts": [ { "run_at" : "document_idle", in greasemonkey compatible userscripts, set in metadata // @run-at document-end in both cases, have add script if want ensure resources loaded when function executed : document.addeventlistener('load', submitaction);
Read more