-
Notifications
You must be signed in to change notification settings - Fork 0
/
code_2022-02-15.R
60 lines (58 loc) · 2.17 KB
/
code_2022-02-15.R
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
# CPSC 375-01
mean(iris[iris$Petal.Length > 3, "Sepal.Length"])
mean(iris[iris$Sepal.Width > 3, "Sepal.Length"])
library(tidyverse)
?mpg
View(mpg)
filter(mpg, cty > 27)
filter(mpg, cty > 27, hwy > 40)
filter(mpg, manufacturer == "honda")
filter(mpg, manufacturer == "honda", manufacturer == "toyota")
filter(mpg, manufacturer == "honda" | manufacturer == "toyota")
filter(mpg, manufacturer %in% c("honda","toyota"))
select(mpg, manufacturer)
select(mpg, manufacturer, model)
select(mpg, 1, 2)
select(mpg, 1:4)
select(filter(mpg, cty > 25), manufacturer, model)
mpg %>% filter(cty > 25) %>% select(manufacturer, model)
mpg %>%
filter(cty > 25) %>%
select(manufacturer, model)
iris %>% filter(Petal.Length > 3, Petal.Width > 1) %>% select(c(Sepal.Length, Sepal.Width))
select(filter(iris, Petal.Length > 3.0, Petal.Width > 1.0), Sepal.Length, Petal.Length)
iris %>% filter(Petal.Length > 3, Petal.Width > 1) %>% select(Sepal.Length, Sepal.Width)
iris %>% filter(Petal.Length > 3, Petal.Width > 1) %>% select(3, 4)
colnames(iris)
iris %>% filter(Petal.Length > 3, Petal.Width > 1) %>% select(1,2)
mpg %>% arrange(cty)
mpg %>% arrange(desc(cty))
# CPSC 375-02
iris[iris$Petal.Length > 3.0,]
iris[iris$Petal.Length > 3.0,"Sepal.Length"]
mean(iris[iris$Petal.Length > 3.0,"Sepal.Length"])
library(tidyverse)
help(mpg)
filter(mpg, cty > 27)
filter(mpg, cty > 27, hwy > 40)
filter(mpg, manufacturer=="honda", manufacturer=="toyota")
filter(mpg, manufacturer=="honda" | manufacturer=="toyota")
filter(mpg, manufacturer %in% c("honda","toyota"))
select(mpg, manufacturer)
select(mpg, manufacturer, model)
mpg[,"manufacturer"]
select(mpg, 1, 2)
select(mpg, 1:4)
select(mpg, starts_with("m"))
select(filter(mpg, cty > 25), manufacturer, model)
mpg %>% filter(cty > 25) %>% select(manufacturer, model)
select(filter(iris, Petal.Length > 3.0, Petal.Width > 1.0),1,2)
iris %>% filter(Petal.Length>3.0, Petal.Width>1.0) %>% select(Sepal.Length, Sepal.Width)
mpg %>% arrange(cty)
mpg %>% arrange(desc(cty))
mpg %>% arrange(-cty)
mpg %>% arrange(-cty, -hwy)
mpg %>% arrange(manufacturer)
mpg %>% arrange(-manufacturer)
mpg %>% arrange(-cty)
mpg %>% arrange(desc(manufacturer))