You need to add the legend function as a separate line. library(RColorBrewer) dataSet<-read.table(header=TRUE, text="labels 6 1 4 8 3 2 9 7 ...
確定! 回上一頁