The goal is to calculate some metrics as requested by Mr JVD

You can also embed plots, for example:

setwd("~/git/JVD_HEALTH/BOSCH/")
dat=read.csv(file="Case Study Production Value Stream-Table 1.csv",
             sep=",",header=TRUE,stringsAsFactors=FALSE)
dd=dat[-1,5:7]
rownames(dd)=dat[-1,1]

Now we will derivate the distance between points.

dist =apply(diff(as.matrix(dd)),1,function(x){return(sqrt(sum(x*x)))})
ddist=data.frame(week=1:length(dist),inc=as.numeric(dist))
#
print(ggplot(data=ddist,aes(x=week,y=inc,group=1)) + 
         geom_line(colour="red", linetype="dashed", size=1.5) +
         geom_point(aes(x=week,y=inc),size=3) +  
         scale_x_discrete(labels=paste("CW",ddist$week,sep="")) +
         xlab("Weeks") + 
         ylab("Incremental dist [unknown units]") +  
         theme_bw() +
         theme(axis.text.x = element_text(angle=90, hjust=1)))  

N=data.frame(week=1:length(dist),inc=cumsum(ddist$inc))
print(ggplot(data=N,aes(x=week,y=inc,group=1)) + 
         geom_line(colour="black", linetype="dashed", size=1) +
         geom_point(aes(x=week,y=inc),size=3) +  
         scale_x_discrete(labels=paste("CW",ddist$week,sep="")) +
         xlab("Weeks") + 
         ylab("N dist [unknown units]") +  
         theme_bw() +
         theme(axis.text.x = element_text(angle=90, hjust=1)))