17  测试脚本

图 17.1 展示了对温度和臭氧水平之间的进一步研究.

library(ggplot2)

ggplot(airquality, aes(Temp, Ozone)) + 
  geom_point() + 
  geom_smooth(method = "loess")

图 17.1: 温度和臭氧水平

library(knitr)
df <- data.frame(Name = c("Alice", "Bob", "Charlie"), Age = c(25, 30, 35))  
kable(df)

表 17.1: 年龄分布

Name	Age
Alice	25
Bob	30
Charlie	35