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

Question

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

Page not found The requested page or file cannot be found https://www.ecdc.europa.eu/en/publications-data/download-todays-data-geographic-distribution-covid-19-cases-worldwide%EF%BC%8C%E6%88%96%E8%80%85%E7%9B%B4%E6%8E%A5%E4%B8%8B%E8%BD%BDdata.csv%E3%80%82%E5%B0%86%E8%AF%BB%E5%85%A5%E7%9A%84%E6%95%B0%E6%8D%AE%E5%91%BD%E5%90%8D%E4%B8%BAdata

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

Answer 1

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新冠肺炎累计死亡人数从高到低排序