title: Plot the participation on changes in a code by individuals in R
body: <p>I got a dataframe for a project where there are for example two workers which take place in this project.
  Every change ist documentated and the frame looks like this:</p>
  
  <pre><code>      devf    lines_add  lines_del
  [1,] "egamma" "660"      "527"
  [2,] "egamma" "8"        "2"  
  [3,] "egamma" "14"       "3"  
  [4,] "egamma" "128"      "8"  
  [5,] "egamma" "67"       "5"  
  [6,] "egamma" "74"       "248"
  [7,] "egamma" "20"       "6"  
  [8,] "egamma" "9"        "7"  
  [9,] "egamma" "148"      "10" 
  [10,] "egamma" "0"        "0"  
  [11,] "egamma" "0"        "0"  
  [12,] "egamma" "2"        "0"  
  [13,] "egamma" "3"        "3"  
  [14,] "egamma" "1"        "1"  
  [15,] "egamma" "4"        "3"  
  [16,] "emeade" "1"        "0"  
  [17,] "emeade" "2"        "0"  
  [18,] "emeade" "15"       "22" 
  [19,] "emeade" "20"       "4"  
  [20,] "egamma" "1"        "1"  
  </code></pre>
  
  <p>I started to write a function but i dont get an idea for how to calculate the value on the y-axe.
  Here is the function so far:</p>
  
  <pre><code>myplot.participation&lt;- function(x){
    count.dev&lt;- length(levels(x$devf))
    t= seq(0, count.dev, 0.5)
    z= tapply(t, )
    plot(t,z, type="l", col="green", lwd=5, xlab="Individuals", ylab="Participation")
    title("developer participation")  
   }
  </code></pre>
  
  <p>Any help for how to resolve this is welcome.
  Here an example how the Plot should look like. The
  solid line in the Figure shows the cumulative proportion of changes against the number of
  contributors.
  <a href="https://i.stack.imgur.com/jmNHy.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/jmNHy.png" alt="enter image description here"></a></p>