Skip to content
This repository has been archived by the owner on Mar 3, 2021. It is now read-only.

Commit

Permalink
remove esa talk figures
Browse files Browse the repository at this point in the history
  • Loading branch information
Aariq committed Dec 2, 2020
1 parent ea5198b commit 53c5be9
Show file tree
Hide file tree
Showing 4 changed files with 0 additions and 56 deletions.
56 changes: 0 additions & 56 deletions R/6-simulation-figures.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -266,62 +266,6 @@ apparent.pls.p
```

# Make figure
For ESA talk:
## Apparent

```{r}
apparent.p <-
(apparent.pca.p +
labs(title = "PCA",
subtitle = NULL,
x = "PC 1 (51.4%)",
y = "PC 2 (11.2%)")) /
(apparent.pls.p +
labs(title = "PLS",
subtitle = NULL,
x = "Predictive Comp. 1 (51.2%)",
y = "Predictive Comp. 2 (8.41%)")) &
theme(legend.position = "none", text = element_text(size = 14))
ggsave(here("out", "apparent.png"), apparent.p, height = 8, width = 5)
```

## Hidden

```{r}
hidden.p <-
(hidden.pca.p +
labs(title = "PCA",
subtitle = NULL,
x = "PC 1 (25.2%)",
y = "PC 2 (24%)")) /
(hidden.pls.p +
labs(title = "PLS",
subtitle = NULL,
x = "Predictive Comp. 1 (18.8%)",
y = "Predictive Comp. 2 (17.5%)")) &
theme(legend.position = "none", text = element_text(size = 14))
ggsave(here("out", "hidden.png"), hidden.p, height = 8, width = 5)
```

## None

```{r}
none.p <-
(none.pca.p +
labs(title = "PCA",
subtitle = NULL,
x = "PC 1 (14.1%)",
y = "PC 2 (11.6%)")) /
(none.pls.p +
labs(title = "PLS",
subtitle = NULL,
x = "Predictive Comp. 1 (7.94%)",
y = "Predictive Comp. 2 (7.23%)")) &
theme(legend.position = "none", text = element_text(size = 14))
ggsave(here("out", "none.png"), none.p, height = 8, width = 5)
```


## Three Scenarios
Put three scenarios together to make a figure.

Expand Down
Binary file removed out/apparent.png
Binary file not shown.
Binary file removed out/hidden.png
Binary file not shown.
Binary file removed out/none.png
Binary file not shown.

0 comments on commit 53c5be9

Please sign in to comment.