add_bridge <- function(df_mit_xy, scale = 1.5, l = 1000) {
df_mit_xy %>%
mutate(x = x + as.double(e1071::rbridge(frequency = l)) / scale,
y = y + as.double(e1071::rbridge(frequency = l)) / scale)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.