vignettes/my-external-code.R

In KirtiKharb/DATA-598-WI20-week-5:

#----starwars-plot
starwars %>%
  filter(species == "Human") %>%
  ggplot() +
  aes(x=height,
      y=mass) +
  geom_point()


#----starwars-tbl
starwars %>%
  filter(species == "Human") %>%
  select(name,
         height,
         mass,
         homeworld) %>%
  knitr::kable(caption="A knit kable table of  starwars data")