接受各种R语言难题

jiandong4388

2016-7-23 11:54:46

大神，能否指导一下。用semplot的模块画出plspm模块下的pls的结构方程模型。一直没有解决。

扫码加我拉你入群

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

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

zhou1_20

2016-7-23 12:48:10

大神，这个问题怎么解决，为什么y[4]==0.15,显示为FALSE

扫码加我拉你入群

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

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

1229784736

2016-7-23 12:54:17

R语言读入中文数据用“UTF-8”读进去乱码，但是换成“UTF-”却不乱码了，这是为什么？

数据为(存为aa.txt)：
      买家昵称    下单时间
1    芭可儿2009    2015/3/19
2    suspector08    2011/9/16
3 123我要买衣服    2015/3/18
4       yumengyy    2011/9/16
5       y原应叹息       2015/3/19
6 zhangwenjuan9090  2015/3/19

dat <- read.table("aa.txt",header = T,encoding = "UTF-8");head(dat)  #乱码
dat <- read.table("aa.txt",header = T,encoding = "UTF-");head(dat)  #不乱码

更换其他数据试验多次，确实都不乱码。

扫码加我拉你入群

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

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

keteyewa

2016-7-23 14:37:39

用R模拟经营沙盘如何编写语言

扫码加我拉你入群

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

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

cbw1243

2016-7-23 23:39:56

zhou1_20 发表于 2016-7-23 12:48
大神，这个问题怎么解决，为什么y[4]==0.15,显示为FALSE

?'=='
"For numerical and complex values, remember == and != do not allow for the finite representation of fractions, nor for rounding error. Using all.equal with identical is almost always preferable."

identical(all.equal(y[4],0.15), TRUE) # TRUE

扫码加我拉你入群

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

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

cbw1243

2016-7-23 23:43:27

yaqiku 发表于 2016-7-21 15:21
请问一下R语言做直方图可以做横向的吗，如果可以代码是什么，最好有个小例子~~

建议用ggplot2包，然后用下面的函数
coord_flip()

扫码加我拉你入群

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

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

cbw1243

2016-7-23 23:45:12

lxy_yf 发表于 2016-7-20 15:45
本人是R的菜鸟，有个问题请教大神。就是如何建立不规则时间序列对象，
日期收盘 ...

as.Date()

扫码加我拉你入群

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

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

cbw1243

2016-7-23 23:54:49

verbatim 发表于 2016-7-21 10:04
d1 = structure(list(ID = c(118L, 115L, 194L, 7L, 747L)), .Names = "ID", row.names = c(NA,
-5L), cl ...

The "merge" function is to match one element at a time. That is why you see "7L" as it is the first element in "d1". You can either change the order of "d1" before merging or change the order of "demo" in the end, by using "order" function.
See details by inputing "?order'

扫码加我拉你入群

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

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

cbw1243

2016-7-23 23:56:13

keym86 发表于 2016-7-21 10:04
想根据最新一天的热度大小排序

先把最后一天的数据抓出来，然后在ggplot里的aes里假如 order = “”

扫码加我拉你入群

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

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

lxy444

2016-7-24 09:37:06

来学习一下

扫码加我拉你入群

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

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

gtxing

2016-7-24 16:14:09

cbw1243 发表于 2016-7-19 22:18
这个函数读取表头要求header都是character，查看一下你的源数据是不是

是，表头都是character，都是中文字符

扫码加我拉你入群

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

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

moretc

2016-7-24 17:00:15

R做Copula的代码，还要系统性风险的代码

扫码加我拉你入群

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

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

moretc

2016-7-24 17:11:35

elickychan 发表于 2016-6-26 22:50
想用R做空间面板分位数和空间面板门限求大神赐教

同求，3105046469@qq.com

扫码加我拉你入群

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

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

签名还在酝酿中

2016-7-24 21:42:14

大神，又有问题请教了。想用R来学习wilcoxon秩和检验（两组等级资料的比较），第一列是分组（两组），第二列是在这一组中的分值，第三列是人数。如下：
我用sas做的语句是这样的：
data a1;
input c g f@@;
cards;
1 1 1
1 2 8
1 3 16
1 4 10
1 5 4
2 1 2
2 2 23
2 3 11
2 4 4
2 5 0
;
proc npar1way wilcoxon;
freq f;
var g;
class c;
run;
请问如何用R来实现？谢谢大神

扫码加我拉你入群

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

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

cbw1243

2016-7-24 23:37:30

baoyuzeng 发表于 2016-7-21 15:31
您好，请问R中get_idf函数的参数需要有什么规定么？为什么我调用了这个函数之后求出来的值全为0呢？然后看到 ...

?get_idf
第一个参数要求为list

扫码加我拉你入群

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

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

cbw1243

2016-7-24 23:39:36

sea82_2000 发表于 2016-7-21 19:25
我来一个问题，作图的时候是否可以让x轴和y轴的显示比例不变？比如说，x/y=1.5，这样，如果x轴以3个单位长度 ...

ggplot2 里有这个函数：
coord_fixed(ratio = 1, xlim = NULL, ylim = NULL, expand = TRUE)

扫码加我拉你入群

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

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

cbw1243

2016-7-25 02:27:43

cbq95229 发表于 2016-7-22 09:48
楼主，我想问一下，我这里有一个sbml格式的文件我想提取里面的信息（比如反应-反应物、产物、反应关系、反应 ...

是数据读取问题还是其他问题

扫码加我拉你入群

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

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

cbw1243

2016-7-25 02:29:53

鸟儿找虫吃发表于 2016-7-22 12:33
楼主，有个基础绘图问题求教：
gradel

ggplot(data=gradel, aes(x=factor(First), y=Math)) +
geom_bar(stat="identity")

扫码加我拉你入群

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

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

baoyuzeng

2016-7-25 08:45:03

cbw1243 发表于 2016-7-24 23:37
?get_idf
第一个参数要求为list

是的，我直接把我的参数强制转换为list了，get_idf（list（参数）），但是只有一个参数，调用之后得到的数据就是0，我不知道什么原因，而且我用help得不到源代码，只知道其中调用了一个get_idf_cpp()函数，但是这个函数内部如何实现的并不知道

扫码加我拉你入群

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

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

残风_

2016-7-25 09:43:30

大神你好，我在用systemfit包的nlsystem()拟合一个方程组，结果已经拟合出。现在我想对每个方程（一共两个方程）分别进行加权回归，请问该怎么做？我看这个nlsystem()中好像没有类似于“weights”这样的参数。请大神指教，我的具体代码如下：

复制代码

扫码加我拉你入群

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

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

keym86

2016-7-25 10:32:09

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

扫码加我拉你入群

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

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

cbq95229

2016-7-25 10:38:23

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

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

扫码加我拉你入群

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

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

cbw1243

2016-7-25 11:04:39

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

> order

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

扫码加我拉你入群

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

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

cbw1243

2016-7-25 11:08:21

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

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

扫码加我拉你入群

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

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

cbw1243

2016-7-25 11:20:49

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

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

扫码加我拉你入群

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

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

chen9654

2016-7-25 11:23:25

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

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

扫码加我拉你入群

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

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

cbw1243

2016-7-25 11:25:09

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

wilcox.test()

扫码加我拉你入群

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

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

cbw1243

2016-7-25 11:30:07

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，然后会看见词云就在文件夹里。
*注：我没有做过中文的，不知道会不会可能出现错误。

扫码加我拉你入群

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

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

keym86

2016-7-25 11:43:50

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
>

扫码加我拉你入群

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

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

鱼籽酱牛肉酱

2016-7-25 11:51:47

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

扫码加我拉你入群

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

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

栏目导航

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群