Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/82.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
表格中的R字云可视化_R_Tableau Api - Fatal编程技术网

表格中的R字云可视化

表格中的R字云可视化,r,tableau-api,R,Tableau Api,试图让Tableau显示一个简单的R视觉(词云),但我无法让它工作。任何帮助都将不胜感激 R代码: library(wordcloud) library(tm) cp <- Corpus(VectorSource('asdf gato perro 98945')) wordcloud(cp) 库(wordcloud) 图书馆(tm) cp我假设您的目标只是从R中的向量在Tableau中生成一个单词cloud 我采用了您建议的向量,并为向量中的每个字符串生成了一个带有随机计数的数据帧。我

试图让Tableau显示一个简单的R视觉(词云),但我无法让它工作。任何帮助都将不胜感激

R代码:

library(wordcloud)
library(tm)
cp <- Corpus(VectorSource('asdf gato perro 98945')) 
wordcloud(cp)
库(wordcloud)
图书馆(tm)

cp我假设您的目标只是从R中的向量在Tableau中生成一个单词cloud

我采用了您建议的向量,并为向量中的每个字符串生成了一个带有随机计数的数据帧。我将向量保存为csv

count <- as.integer(round(runif(4,1,100),0))
words <- c('asdf','gfg','ff','98945')
df <- as.data.frame(cbind(words,count),stringsAsFactors = FALSE)
df$count <- as.integer(df$count)
write.csv(df,"word_cloud.csv",row.names = FALSE)

countR:简化单词云图(单词图)

假设您有一个包含单词和相关值的表,名为Top5

为了得到 请执行以下操作:

  • 导入Top5数据集

  • 执行:

    安装.packages(“wordcloud”)#word云生成器
    library(“wordcloud”)
    wordcloud(words=Top5$word,freq=Top5$value,min.freq=1,max.words=200,random.order=FALSE,rot.per=0.2,colors=brewer.pal(8,“Dark2”)


  • 非常感谢,非常有帮助。如果您能够帮助第二个选项工作(将R word cloud显示为图像),那就太好了。我在Tableau中得到了一个维度,其中包含了我希望最终用于单词cloud的所有字符串。谢谢你抽出时间!R代码很简单。我不明白的是我怎么能把这些都显示在画面上。我遵循的步骤:*创建计算字段*选择表计算*选择“脚本”\u STR“不确定如何继续?Rserve肯定在运行,所以这不是问题所在。Tableau中显示了以下错误:脚本函数返回的结果是意外类型。@GraveDigger明白了,我不会在这方面提供帮助,因为我没有RServer:(很抱歉,祝你好运!
    count <- as.integer(round(runif(4,1,100),0))
    words <- c('asdf','gfg','ff','98945')
    df <- as.data.frame(cbind(words,count),stringsAsFactors = FALSE)
    df$count <- as.integer(df$count)
    write.csv(df,"word_cloud.csv",row.names = FALSE)
    
    library(wordcloud)
    df <- read.csv("directory.csv",stringsAsFactors = FALSE)
    words <- df$City
    words <- gsub(" ",".",words)
    wordcloud(words, min.freq = 50)