R Forestogram generation