Another new awesome post

A short description of the post.

I’m going to show how to create a plot, and display it in different ways.

ggplot(mpg, aes(displ, cty)) +
  geom_point() +
  geom_smooth() +
  labs(title = "Default")

Now let’s look at the same plot with l-body-outset. And now I’m just going to say a bunch of random stuff so we can see where the text ends and how the plot goes beyond that.

ggplot(mpg, aes(displ, cty)) +
  geom_point() +
  geom_smooth() +
  labs(title = "Body Outset")

Now we’ll try the same thing again, but this time with layout = "l-page"

ggplot(mpg, aes(displ, cty)) +
  geom_point() +
  geom_smooth() +
  labs(title = "Page layout")

And now we’ll try layout = "l-screen"

ggplot(mpg, aes(displ, cty)) +
  geom_point() +
  geom_smooth() +
  labs(title = "Screen layout")

Now let’s look at the same plot with l-body-outset. And now I’m just going to say a bunch of random stuff so we can see where the text ends and how the plot goes beyond that.

This plot up there is HUGE!

manufacturer	model	displ	cty
audi	a4	1.8	18
audi	a4	1.8	21
audi	a4	2.0	20
audi	a4	2.0	21
audi	a4	2.8	16
audi	a4	2.8	18

That table is too hard to read. Let’s look at it much bigger, and let’s include all the columns. And we’re going to be really fancy and make it an interactive table with {reactable}

mpg %>% 
  reactable::reactable()