Welcome to Random Forest

ggplot2

visualizations

Welcome to my new blog, Random Forest.

Author

Roman Kyrychenko

Published

October 28, 2018

Hello world!

This blog isn’t only about a random forest. I’ll write about machine learning in general, spatial analysis and data. I’ll focus on R language, primarily describing capabilities of its visualizations.

My blog consists of 3 sections:

trees: this section unites my blog posts
datahub: this is my collection of datasets, which covers sociological, spatial and economy data
root: here you can find some information about me

Code

require(ggplot2)
require(dplyr)

df <- tibble(t = seq(0, 2 * pi, by = 0.01)) %>% mutate(
  x = 16 * sin(t)^3,
  y = 13 * cos(t) - 5 * cos(2 * t) - 2 * cos(3 * t) - cos(4 * t)
)

p <- ggplot(df, aes(x, y)) +
  geom_polygon(fill = "red", col = NA, alpha = 0.7) +
  theme_void()

p

Heart using ggplot2

---
title: "Welcome to Random Forest"
description: |
  Welcome to my new blog, Random Forest.
author:
  - name: Roman Kyrychenko
    url: https://www.linkedin.com/in/kirichenko17roman/
date: 10-28-2018
output:
  distill::distill_article:
    self_contained: false
categories:
  - ggplot2
  - visualizations
creative_commons: CC BY
image: "Heart using ggplot2.png"
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, message = FALSE)
```

Hello world!

This blog isn't only about a random forest. I'll write about machine learning in general, spatial analysis and data. I'll focus on R language, primarily describing capabilities of its visualizations.

My blog consists of 3 sections:

-   trees: this section unites my blog posts
-   datahub: this is my collection of datasets, which covers sociological, spatial and economy data
-   root: here you can find some information about me

```{r heart, echo=TRUE, fig.cap="Heart using ggplot2", preview=TRUE}
require(ggplot2)
require(dplyr)

df <- tibble(t = seq(0, 2 * pi, by = 0.01)) %>% mutate(
  x = 16 * sin(t)^3,
  y = 13 * cos(t) - 5 * cos(2 * t) - 2 * cos(3 * t) - cos(4 * t)
)

p <- ggplot(df, aes(x, y)) +
  geom_polygon(fill = "red", col = NA, alpha = 0.7) +
  theme_void()

p
```

```{r heart2, echo=FALSE}
ggsave("Heart using ggplot2.png", p)
```

<aside>Base of code from here: http://www.rpubs.com/RandhyllCho/250112</aside>