I want to use fishplot in R to draw a model picture like this: https://ibb.co/h7WtX0
Here is my code:
library(fishplot) timepoints=c(0,1,5,10) frac.table=matrix(c(2,0,0,3,1,0,50,40,2,90,75,30),ncol = length(timepoints)) parents = c(0,1,2) fish = createFishObject(frac.table,parents,timepoints=timepoints) fish = layoutClones(fish) fish = setCol(fish,col=c("grey","lightpink","lightblue"))` fishPlot(fish,shape="spline",title.btm="Sample1", cex.title=0.5,bg.type = 'solid',bg.col = c('white'))
But finally i get a picture :https://ibb.co/eoHgkL
I tried several times changing the matrix and the picture is still sunk in the middle and looks ugly. Can anyone tell me how to fix it?