Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
{brickr} Example - Random Forest
library(tidyverse)
library(brickr)
display_colors()
random_tree <- function(xloc, yloc, height, radius){
startz <- round(height * (2/5))
#Build a 3x3 trunk
trunk_coords <- expand.grid( x = -1:1, y = -1:1,
z = 1:startz) %>%
mutate(x=x+xloc, y=y+yloc)
#Add texture to the trunk color
trunk_color <- sample(c("Reddish brown", "Dark orange", "Dark brown"), 3, replace = TRUE)
trunk_coords$Color = sample(trunk_color, nrow(trunk_coords), replace = TRUE, prob = (4:2)^2)
#Leaves are a cone shape with radius=radius on the bottom, 1 at the top
leaf_coords <- expand.grid( x = (xloc-radius):(xloc+radius),
y = (yloc-radius):(yloc+radius),
z = startz:height) %>%
mutate(dist = ((x-median(x))^2 + (y-median(y))^2)^(1/2),
leaf = dist <= radius * (max(z)-z)/(max(z)-startz)) %>%
filter(leaf)
#2 leaf colors, main color is 3/4 of the tree
leaf_color <- sample(c("Bright green", "Bright yel. green", "Dark green", "Spring yel. green"), 2)
leaf_coords$Color <- sample(leaf_color, nrow(leaf_coords), replace = TRUE, prob = c(3, 1))
#Combine trunk and leaves into a single tree
bind_rows(leaf_coords, trunk_coords) %>%
group_by(x,y,z) %>%
filter(row_number()==1) %>%
ungroup()
}
forest_size <- 32
num_trees <- 9
list(xloc = round(seq(4, forest_size-4, length.out = num_trees)),
yloc = sample(seq(4, forest_size-4), num_trees, replace= TRUE),
height = sample(10:20, num_trees, replace = TRUE),
radius = sample(3:5, num_trees, replace = TRUE)) %>%
purrr::pmap_df(random_tree) %>%
bind_rows(expand.grid(x=1:forest_size, y=1:forest_size, z=1, Color = "Earth green")) %>%
group_by(x,y,z) %>%
filter(row_number()==1) %>%
ungroup() %>%
bricks_from_coords() %>%
display_bricks()
@gfleetwood

This comment has been minimized.

Copy link

gfleetwood commented Mar 23, 2019

Hi,

I'm trying this out but for some reason there's no bricks_from_coords available in the package. Do you know what the problem is?

@ryantimpe

This comment has been minimized.

Copy link
Owner Author

ryantimpe commented Mar 24, 2019

@gfleetwood Are you using Version 0.0.0.9150 published on Friday?

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.