]
[xss6nl7z7g.jpeg]
3.编写R绘制直方图代码
## 加载R运行依赖包
library(ggplot2)
library(gcookbook)
library(data.table)...1","2","3","4","5","6","7","8"),
labels=c("0~15","15~30","30~45","45~60","60~75","75~100","100~","other...----
编写R绘制饼图代码
## 加载R运行依赖包
library(ggplot2)
library(gcookbook)
library(data.table)
library(DBI)
library...数据集
VDT <- data.table(tabledata)
## 用order()让数据框的数据按 scope 列数据从大到小排序
VDT = VDT[order(VDT$scope, decreasing...= TRUE),]
## 将数字1替换为"0~15"方式
myLabel = c("0~15","15~30","30~45","45~60","60~75","75~100","100~","other