自己加了一个循环,不知道返回哪个
library(wordcloud)
colors=brewer.pal(9,"Set1")
data=read.csv("e:/1.csv")
x=2:4
i=1
p <- wordcloud(data$provname,data[,x[i]],scale=c(3,0.5),min.freq=-Inf,max.words=Inf,colors=colors,random.order=F,random.color=F,ordered.colors=F)
while(i<3){i=i+1}


雷达卡




京公网安备 11010802022788号







