TimeInOfficePresent
w

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

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