Growth of Loblolly pine trees

We want to show how the Loblolly trees are growing for that, we decided focus on the dataset Loblolly. Also, we center our point of view in some particular trees with seed numbers: 325,307,331,321,319 and 305

summary(Loblolly)

data_filtered <- filter(Loblolly, Loblolly$Seed %in% input$seed)

After that, calculate a height prediction for the next 5 year from the last year, divided by 12 (we think that it recreates well the tendency of the growing height)

last_year <- filter(data_filtered, age==25)
last_year$age <- last_year$age+5
last_year$height <- last_year$height+(last_year$height/12)

data_filtered <- rbind(data_filtered,last_year)

And with all the data we create the plot, setting the axes and the colours with spectral palette

ggplot(data=data_filtered, aes(x=age,y=height,colour=Seed)) + 
    geom_line() + scale_fill_brewer(palette="Spectral") +
    xlab("Years") + ylab("Tree Heights (ft)")

We can see in the previous slide that the height of the trees are more or less inside the interval (60 - 75) after our forecast. Even, you can see how some trees didn't develop so fast at the begging but when they reach 20 years old, they got a faster growing than the others.