w x <- c(52, 30, 10, 8)labels <- c("分析思考", "写代码.调试", "沟通", "其他")png(file = "D:\\Documents\\r_action\\TimeInOfficePresent.png")pie(x,labels)dev.off()…