-
Notifications
You must be signed in to change notification settings - Fork 0
/
shrut_file.Rmd
35 lines (25 loc) · 733 Bytes
/
shrut_file.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
---
title: "Shrut work"
date: "`r Sys.Date()`"
output:
github_document:
toc: yes
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(message = FALSE, warning = FALSE, echo = FALSE, fig.retina = 4)
knitr::opts_chunk$set(fig.pos = 'H')
```
```{r}
# Libraries
pacman::p_load(tidyverse, readxl, janitor, lubridate, extrafont, hrbrthemes, sf, ggcorrplot, plotly, ggradar, estimatr, texreg, estimatr)
extrafont::loadfonts()
# Parameters
df <- read_csv(here::here("shrut_file.csv"))
```
```{r}
df %>% glimpse()
```
```{r}
df %>% select(geo_strategy, features_type, area_lim) %>% mutate_all(as_factor) %>% summary()
df %>% filter(features_type == "opt", area_lim == 0.05, trial >= 6)
```