library(knitr)
library(dplyr)
library(ggplot2)
library(kableExtra)
library(tidyverse)
ggplot(mpg, aes(displ, cty)) +
geom_point() +
geom_smooth(method = "lm", se = F)
## `geom_smooth()` using formula 'y ~ x'
d %>%
kbl(caption = "Table 1. Linear model of mpg",
col.names = c("Estimate", "Std. Error", "t value", "p value")) %>%
kable_classic(full_width = F,
html_font = "Cambria",
position = "left")
Table 1. Linear model of mpg
|
|
Estimate
|
Std. Error
|
t value
|
p value
|
|
Intercept
|
7.5584856
|
0.2085784
|
36.23810
|
0
|
|
cty
|
-0.2424045
|
0.0119972
|
-20.20515
|
0
|