data$城镇网民占比 <- as.numeric(gsub("%", "", data$城镇网民占比))*0.01 解释这行代码

这行代码主要是将数据框 data 中的城镇网民占比这一列数据进行处理，具体解释如下：

- gsub("%", "", data$城镇网民占比)：使用 gsub 函数将 data$城镇网民占比 这一列中的百分号 "%" 替换为空字符串 ""，得到一个不含百分号的字符向量。
- as.numeric()：将上一步得到的字符向量转换为数值型向量。
- *0.01：将数值型向量中的数值乘以 0.01，实现将百分数转换为小数的目的。

综上，这行代码的作用是将数据框 data 中的城镇网民占比这一列从百分数转换为小数，并将转换后的结果存储在 data$城镇网民占比 中。