Working_directory ="T:\\TimelapseData\\201215GA12"
setwd(Working_directory)

data = read.table("allquant_201221.csv",header=TRUE, row.names=NULL, sep=";")



data$PositionComment = as.character(data$PositionComment)
temp = strsplit(data$PositionComment,split = " ")
data$Comment = sapply(temp,"[[",1)

library(dplyr)
count_data = data %>%
  group_by(Comment,TimePoint) %>%
  summarise (n = n()) 


library("tidyr")
count_data = spread(count_data,Comment, n)

write.csv(count_data,"Count_data_per_pos_TP2.csv", row.names=FALSE)