接受各种R语言难题

cbw1243 发表于 2016-7-23 23:56
先把最后一天的数据抓出来，然后在ggplot里的aes里假如 order = “”

我把最后一天的数据放到left里面，但是提示长度不一致，大神能否解释一下:

> order
[1] 122.22222 116.21622 110.00000  90.90909  85.71429  81.63265  77.27273  74.60317  73.68421  66.66667  65.38462  64.28571  63.15789
[14]  61.11111  60.00000  59.45946  58.62069  56.25000  55.55556  54.16667
> ggplot(heat,aes(as.factor(date),sec_desc,fill=degree,order=order))+geom_raster(na.rm = TRUE)
Error: Aesthetics must be either length 1 or the same as the data (80): x, y, fill, order

cbw1243 发表于 2016-7-25 02:27
是数据读取问题还是其他问题

数据读取问题，提示：评估嵌套太深：无穷递归/ options(expressions=)

keym86 发表于 2016-7-25 10:32
我把最后一天的数据放到left里面，但是提示长度不一致，大神能否解释一下:

> order

所有aes里面用到的variable都要在heat里面

baoyuzeng 发表于 2016-7-25 08:45
是的，我直接把我的参数强制转换为list了，get_idf（list（参数）），但是只有一个参数，调用之后得到的数 ...

到这个里面去找一下get_idf_cpp的函数。
https://github.com/qinwf/jiebaR/tree/master/R

残风_ 发表于 2016-7-25 09:43
大神你好，我在用systemfit包的nlsystem()拟合一个方程组，结果已经拟合出。现在我想对每个方程（一共两个方 ...

SUR模型的假设是disturbances are contemporaneously correlated。 这个方程的拟合是先对方差矩阵进行估计。
我想知道你要的“加权”是要对什么进行怎么样的加权？目的是什么

MILK$很好喝 发表于 2016-6-26 23:31
楼主能写一下关于词云怎么做的吗，没找到，感谢

我最近也找词云相关的东西，网上说Rwordseg包，但这个包现在是不是下线了？

签名还在酝酿中 发表于 2016-7-24 21:42
大神，又有问题请教了。想用R来学习wilcoxon秩和检验（两组等级资料的比较），第一列是分组（两组），第二列 ...

wilcox.test()

chen9654 发表于 2016-7-25 11:23
我最近也找词云相关的东西，网上说Rwordseg包，但这个包现在是不是下线了？

既然这么多人对词云感兴趣，我就贴出来代码吧。其实非常简单：
假设你有一个dat(dataframe格式)。有两列数据，分别是 word和对应的frequency。
library(wordcould) #没有的话先安装
par(bg="grey30")
png(file="wordcloud.png",width=1000,height=700, bg="grey30")
wordcloud(d$word, d$freq, col=terrain.colors(length(d$word), alpha=0.9), random.order=FALSE, rot.per=0.3 )
title(main = "The Most Frequently Used Words",  font.main = 1, col.main = "cornsilk3", cex.main = 1.5)
dev.off()  #直接写入你的磁盘。 用getwd()查你的directory，然后会看见词云就在文件夹里。
*注：我没有做过中文的，不知道会不会可能出现错误。

cbw1243 发表于 2016-7-25 11:04
所有aes里面用到的variable都要在heat里面

已经将排序加到heat里面，比如下面的数据我需要按照order列在Y轴上做降序排列需要怎么写呢？

用下面的代码画图还是变成按sec_desc排。
ggplot(heat,aes(as.factor(date),sec_desc,fill=degree,order=order))+geom_raster(na.rm = TRUE)

> heat
Source: local data frame [613 x 4]
Groups: date [?]

         date     sec_desc    degree order
       <date>        <chr>     <dbl> <int>
1  2016-07-25   特斯拉指数 122.22222     1
2  2016-07-25   次新股指数 116.21622     2
3  2016-07-25 智能电视指数 110.00000     3
4  2016-07-25     OLED指数  90.90909     4
5  2016-07-25 量子通信指数  85.71429     5
6  2016-07-25   锂电池指数  81.63265     6
7  2016-07-25   石墨烯指数  77.27273     7
8  2016-07-25 虚拟现实指数  74.60317     8
9  2016-07-25 网红经济指数  73.68421     9
10 2016-07-25 移动转售指数  66.66667    10
# ... with 603 more rows
>

请教大神画完直方图之后如何添加累计频率曲线啊