在R中绘制个人参与代码更改的情况

我得到了一个项目的数据框架，例如，在这个项目中有两个工人。 每一个变化都被记录下来，画面如下：

      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"  

我开始写一个函数，但我不知道如何计算y轴上的值。 以下是迄今为止的功能：

myplot.participation<- function(x){
  count.dev<- 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")  
 }

---

myplot.participation这就是你想要的吗

newdf <- aggregate(df[2:3], by= list(df$devf), FUN = "sum")

newdf<- rbind(c(NA,0,0), newdf)
names(newdf) <- c("Participant", "lines_add", "lines_del")
newdf$lines_add <- cumsum(newdf$lines_add)/sum(newdf$lines_add)
newdf$lines_del <- cumsum(newdf$lines_del)/sum(newdf$lines_del)
newdf$Participant <- seq(0, length(newdf$Participant)-1)

plot(newdf$Participant, newdf$lines_add, type = "l", lwd = 1, col = "blue",
     xlab = "Particpant", ylab = "Ratio of Lines Added", 
     main = "Changes in Code")

newdf这就是你要找的吗

newdf <- aggregate(df[2:3], by= list(df$devf), FUN = "sum")

newdf<- rbind(c(NA,0,0), newdf)
names(newdf) <- c("Participant", "lines_add", "lines_del")
newdf$lines_add <- cumsum(newdf$lines_add)/sum(newdf$lines_add)
newdf$lines_del <- cumsum(newdf$lines_del)/sum(newdf$lines_del)
newdf$Participant <- seq(0, length(newdf$Participant)-1)

plot(newdf$Participant, newdf$lines_add, type = "l", lwd = 1, col = "blue",
     xlab = "Particpant", ylab = "Ratio of Lines Added", 
     main = "Changes in Code")

newdf更改意味着什么？行添加的作用是什么？行添加意味着开发人员在代码中添加了x行。我想得到这个项目中代码更改的累积比例。例如，这里的点线是对添加的线的修改。更改意味着什么？行添加的作用是什么？行添加意味着开发人员在代码中添加了x行。我想得到这个项目中代码更改的累积比例。例如，这里的点线表示添加的线。几乎，是的，我需要有3个图形，一个是fpr总体图，一个是del线，一个是add线。我通过命令行得到了这个结果，对吗？是的，你可以把总体作为一个新的变量来计算并绘制。顺便说一句，添加和删除之间的总体差异是吗？不，它是指DEVS项目中所有更改的总和。如果您将其添加为另一列，您可以在聚合函数中使用df[2:4]而不是df[2:3]，而newdf you函数只是绘制线加法的图形，对吗，是的，我需要有3张图，一张是fpr整体图，一张是del线，一张是add线。我通过命令行得到了这个结果，对吗？是的，你可以把总体作为一个新的变量来计算并绘制。顺便说一句，添加和删除之间的总体差异是吗？不，它是指devs引用的项目中所有更改的总和。如果您将其添加为另一列，您可以在聚合函数中使用df[2:4]而不是df[2:3]，而newdf you函数只是为行添加绘制图形，对吗？