示例数据如下:
browsersbrowsers[order(browsers$browser,browsers$share),]arr=aggregate(share~browser,browsers,sum)mainCol =...,browsers$version, cols=subcolors(browsers,"browser",mainCol), legend=F,pilabels = T,borderlit...$parent# write data.frame into csv filewrite.table(browsers, file = 'browsers.csv', row.names = F, sep...by browser so it will line up with browser pie chartversion_data browsers[order(browsers$browser)