/
.Rhistory
117 lines (117 loc) · 2.87 KB
/
.Rhistory
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
library("learnr")
install.packages("learnr")
library(learnr)
library(learnr)
knitr::opts_chunk$set(echo = FALSE)
library(palmerpenguins)
library(learnr)
knitr::opts_chunk$set(echo = FALSE)
library(palmerpenguins)
data("penguins")
library(learnr)
knitr::opts_chunk$set(echo = FALSE)
library(palmerpenguins)
library(tidyverse)
data("penguins")
penguin_factor <- penguins %>%
mutate(across(is.character, factor))
glimpse(penguin_factor)
penguin_int <- penguins %>%
mutate(across(is.integer, as.double))
glimpse(penguin_int)
penguin_int <- penguins %>%
mutate(across(is.integer, as.double))
glimpse(penguin_int)
library(palmerpenguins)
data(penguins)
penguins %>%
select(contains("beak"))
selected_variables <- c("island", "year", "species")
penguins %>%
select(any_of(selected_variables))
penguins %>%
select(where(is.integer))
penguins %>%
select(where(is.character))
penguins %>%
select(where(is.factor))
penguin_factor <- penguins %>%
mutate(across(where(is.factor), as.character))
penguins %>%
mutate(across(where(is.factor), as.character))
penguins %>%
summarize(across(where(is.numeric), mean))
penguins %>%
tidyr::complete() %>%
summarize(across(where(is.numeric), mean))
penguins %>%
summarize(across(where(is.numeric), mean, na.omit=TRUE))
penguins %>%
group_by(species) %>%
summarize(across(contains("bill"), mean, na.omit=TRUE))
penguins %>%
group_by(species) %>%
summarize(across(contains("bill"), mean, na.rm=TRUE))
penguins %>%
select(contains("bill"))
penguins %>%
summarize(across(contains("bill"), mean, na.rm=TRUE))
install.packages("likert")
library(learnr)
knitr::opts_chunk$set(echo = FALSE)
library(palmerpenguins)
library(tidyverse)
library(likert)
data("gap")
data("penguins")
install.packages("mnormt")
library(learnr)
knitr::opts_chunk$set(echo = FALSE)
library(palmerpenguins)
library(tidyverse)
library(likert)
data("gap")
data("penguins")
View(gap)
gap %>%
mutate(StudentId = as.character(StudentId)) %>%
mutate(across(is.integer, ordered))
?where
penguins %>%
select(where(mean(.x) > 3))
penguins %>%
select(~ where(mean(.x) > 3))
penguins %>%
select(where(~ mean(.x) > 3))
penguins %>%
select(where(~ is.numeric(.x)))
penguins %>%
select(where(~ is.numeric(.x) && mean(.x) > 20))
iris %>% select(where(~ is.numeric(.x) && mean(.x) > 3.5))
penguins %>%
tidyr::drop_na() %>%
select(where(~ is.numeric(.x) && mean(.x) > 20))
penguins %>%
tidyr::drop_na() %>%
select(where(~ mean(.x) > 20))
penguins %>%
group_by(species) %>%
summarize(across(where(is.double)), mean, na.rm=TRUE)
penguins %>%
group_by(species) %>%
summarize(across(where(is.double), mean, na.rm=TRUE))
selected_variables <- c("island", "year", "species", "blah")
penguins %>%
select(any_of(selected_variables))
?any_of
library(learnr)
knitr::opts_chunk$set(echo = FALSE)
library(palmerpenguins)
library(tidyverse)
library(likert)
data("gap")
data("penguins")
penguins %>%
select(c(species, contains("bill")))
penguins %>%
select(-contains("bill"))