- devtools::install_github(“daranzolin/ViewPipeSteps”)
- highlight your text and click “Addins” and select View Pipe Chain Steps
library(tidyverse)
library(ViewPipeSteps)
mydat <- diamonds %>%
as_tibble() %>%
select(carat, cut, price) %>%
filter(cut == "Ideal" | cut == "Premium") %>%
arrange(desc(price))
mydat
## # A tibble: 35,342 x 3
## carat cut price
## <dbl> <ord> <int>
## 1 2.29 Premium 18823
## 2 1.51 Ideal 18806
## 3 2.07 Ideal 18804
## 4 2.29 Premium 18797
## 5 2.04 Premium 18795
## 6 2 Premium 18795
## 7 1.71 Premium 18791
## 8 2.15 Ideal 18791
## 9 2.05 Ideal 18787
## 10 2.05 Premium 18784
## # … with 35,332 more rows
mydat_messy <- diamonds %>%
as_tibble() %>%
select(carat, cut, price) %>%
filter(cut == "Ideal" | cut == "Premium") %>%
arrange(desc(price))
mydat_clean <- diamonds %>%
as_tibble() %>%
select(carat, cut, price) %>%
filter(cut == "Ideal" | cut == "Premium") %>%
arrange(desc(price))