>setwd("C:/Users/lenovo/Desktop")
>A1<-read.csv("dutycrime_anno2019.csv", header=T,sep=",",na.strings="?")
> names(A1)
> str(A1)
> A1<-t(na.omit(t(A1)))
> unique(A1)
>A<- data.frame(A1[A1$庭审程序=="一审",A1$案号,A$法院意见,])
代码要求是
1) 使用R命令对数据进行清洗,然后读取“庭审程序”为一审的案件数据,构建数据框对象A,其变量包括:案号、法院意见。