不规则语法命名数据框tibble

本题来自《R数据科学》第7章使用tibble实现简单数据框

(4) 在以下的数据框中练习如何引用不符合语法规则的变量名。
a. 提取名称为 1 的变量。
b. 绘制表示变量 1 和变量 2 关系的散点图。
c. 创建一个名称为 3 的新列，其值为列 2 除以列 1。 
d. 将这些列重新命名为 one、two 和 three。

     annoying <- tibble(
       `1` = 1:10,
       `2` = `1` * 2 + rnorm(length(`1`))
)

a.提取名称为 1 的变量。

library("tidyverse")

annoying <- tibble(
  `1` = 1:10,
  `2` = `1` * 2 + rnorm(length(`1`))
)

# 方法1:按名称提取
annoying$`1`

# 方法2:按位置提取
annoying[[1]]

输出结果为：

> annoying$`1`
 [1]  1  2  3  4  5  6  7  8  9 10

b. 绘制表示变量 1 和变量 2 关系的散点图。

library("tidyverse")

annoying <- tibble(
  `1` = 1:10,
  `2` = `1` * 2 +