一个关于R的题目，求详细

1、2020年世界各国新型冠状肺炎新增人数与死亡人数数据集可见

.
（1）统计data的变量countriesAndTerritories对应的不同国家的数目是多少？（2）统计data中各国2020年新冠肺炎新增人数与死亡人数，并将所得数据与对应地区（国家）写入新数据集new.data，意味着此新数据集包含三个变量（2020新冠肺炎累计新增人数，2020新冠肺炎累计死亡人数，国家）。
（3）将new.data数据集按2020新冠肺炎累计死亡人数从高到低排序，并列出死亡人数排名前三的国家名称。
（4）抽取2020新冠肺炎累计新增人数小于500的观测（样本），将结果输出到result.txt。

data<-read.table("C:/Users/lenovo/Desktop/试验作业2/data.csv",header=TRUE,sep=")
length(new.data[,1]) #统计data的变量countriesAndTerritories对应的不同国家的数目（在（2）基础上)
myvars<-c("cases","deaths")
aggregate(data[myvars],by=list(data$countriesAndTerritories),sum) #统计data中各国2020年新冠肺炎新增人数与死亡人数
new.data<-aggregate(data[myvars],by=list(data$countriesAndTerritories),sum) #将所得数据与对应地区（国家）写入新数据集new.data
new.data[order(new.data$deaths,decreasing = T),] #将new.data数据集按2020新冠肺炎累计死亡人数从高到低排序

sink("文件路径",append=FALSE,split=TRUE)
new.data [new.data$cases<500,] #抽取2020新冠肺炎累计新增人数小于500的观测（样本）

write.table ( 需要导出的数据, file ="路径", sep =" ", row.names =TRUE, col.names =TRUE, quote =TRUE) #将结果输出到result.txt