哪位大神会用R循环读取数据

牛肉面在这吃么

4946

收藏 2015-06-05

悬赏 10 个论坛币未解决

library(wordcloud)
colors=brewer.pal(9,"Set1")
data=read.csv("e:/1.csv")
wordcloud(data$provname,data$pop3,scale=c(3,0.5),min.freq=-Inf,max.words=Inf,colors=colors,random.order=F,random.color=F,ordered.colors=F)
我这个词云图程序中，我想每次读入不同的pop列（如pop1，pop2等）来画图，应该怎么修改，求大神指教

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

牛肉面在这吃么

2015-6-5 16:09:09

自己加了一个循环，不知道返回哪个
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}

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

小飞碟

2015-6-5 16:09:55

使用for循环，
i=1
d<-paste(pop,i,seq="")
我不清楚data$d是否合理，大概意思就是这样，希望有帮助，，

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

牛肉面在这吃么

2015-6-5 16:36:28

小飞碟发表于 2015-6-5 16:09
使用for循环，
i=1
d

貌似不行...谢谢

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

牛肉面在这吃么

2015-6-5 16:56:41

如何修改可以实现重复做Wordcloud那一行呢？
library(wordcloud)
colors=brewer.pal(9,"Set1")
data=read.csv("e:/1.csv")
i=2
b <- data[,i]
wordcloud(data$provname,b,scale=c(3,0.5),min.freq=-Inf,max.words=Inf,colors=colors,random.order=F,random.color=F,ordered.colors=F)
while(i<5){i=i+1}

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群