w
x <- c(52, 30, 10, 8)labels <- c("分析思考", "写代码、调试", "沟通", "其他")png(file = "D:\\Documents\\r_action\\TimeInOfficePresent.png")pie(x,labels)dev.off()
TimeInOfficePresent
原文：http://www.cnblogs.com/yuanjiangw/p/7079473.html
