全部版块 我的主页
› 论坛 › 数据科学与人工智能 › 数据分析与数据科学 › R语言论坛
接受各种R语言难题
cbw1243
2016-6-29 13:26:01
太阳之子追梦者 发表于 2016-6-29 12:30
字符串处理：
[[9995]]
[1] "送货快" "物流"   "就是"   "好"
这个是list转为data frame
先把list里面的name设成一样，然后用 do.call(rbind, list)
二维码

扫码加我 拉你入群

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

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

三味书生
2016-6-29 13:47:03
有一个仓库库位规划方面的问题，有没有兴趣？
举例，描述：一批货按照重要度计算出来一个权重列表，这批货之间又有关联关系（列表），在一个仓库里面如何安排摆放的位置，使取货路径最短。
二维码

扫码加我 拉你入群

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

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

秦时明月GF
2016-6-29 14:47:05
有关RExcle怎样安装的？我的结果如下：
install.packages("RExcelInstaller")
--- 在此連線階段时请选用CRAN的鏡子 ---
Warning message:
package ‘RExcelInstaller’ is not available (for R version 3.3.0)
求大神指教
二维码

扫码加我 拉你入群

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

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

太阳之子追梦者
2016-6-29 14:48:06
cbw1243 发表于 2016-6-29 13:26
这个是list转为data frame
先把list里面的name设成一样，然后用 do.call(rbind, list)
不行啊，不够内容的会自动补充内容：
> aa
     [,1]     [,2]     [,3]   [,4]       [,5]     [,6]   [,7]  
name "好"     "好"     "好"   "好"       "好"     "好"   "好"  
name "还可以" "不错"   "值得" "推荐"     "还可以" "不错" "值得"
name "很快"   "沙琪玛" "味道" "一如既往" "的"     "好"   "满意"
二维码

扫码加我 拉你入群

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

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

blank_7
2016-6-29 15:55:43
楼主，我在用ggplot2画某一个市的地图，但是在按照
http://blog.sina.com.cn/s/blog_14b79a5810102w10w.html
这个画出的地图不知道为什么显示不全，只能显示一个市的中间部分，这是为什么？
二维码

扫码加我 拉你入群

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

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

cbw1243
2016-6-29 22:42:36
三味书生 发表于 2016-6-29 13:47
有一个仓库库位规划方面的问题，有没有兴趣？
举例，描述：一批货按照重要度计算出来一个权重列表，这批货 ...
R来解决最优问题有点受限。看你的问题有多复杂。可以说来听听
二维码

扫码加我 拉你入群

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

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

cbw1243
2016-6-29 22:53:15
秦时明月GF 发表于 2016-6-29 14:47
有关RExcle怎样安装的？我的结果如下：
install.packages("RExcelInstaller")
--- 在此連線階段时请选用 ...
从这儿去下载：
http://rcom.univie.ac.at/download.html
二维码

扫码加我 拉你入群

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

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

cbw1243
2016-6-29 22:55:42
blank_7 发表于 2016-6-29 15:55
楼主，我在用ggplot2画某一个市的地图，但是在按照
http://blog.sina.com.cn/s/blog_14b79a5810102w10w.ht ...
截一个你画的图看看
二维码

扫码加我 拉你入群

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

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

cbw1243
2016-6-29 23:00:22
太阳之子追梦者 发表于 2016-6-29 14:48
不行啊，不够内容的会自动补充内容：
> aa
     [,1]     [,2]     [,3]   [,4]       [,5]     [,6]   ...
你的第一个在list里的vector 有四个值，剩下的两个有三个。
合并成dataframe时要将他们的length保持一致。
二维码

扫码加我 拉你入群

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

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

xrk_victor
2016-6-30 07:13:31
cbw1243 发表于 2016-6-26 09:15
暑假漫长，生活没有挑战。在此征集各类R语言疑难杂症，欢迎各位骚扰。
提出给力问题的，将予以100论坛币奖 ...
大神好，如果想要练习用r做混合效应模型的分析，从哪里可以找到例子？还想学习r实现机器学习的各种算法，有好的资料推荐么？
二维码

扫码加我 拉你入群

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

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

cbw1243
2016-6-30 07:27:29
xrk_victor 发表于 2016-6-30 07:13
大神好，如果想要练习用r做混合效应模型的分析，从哪里可以找到例子？还想学习r实现机器学习的各种算法， ...
lme4 是一个很好做mixed effect model的包。这里有一个好的资料链接：
http://lme4.r-forge.r-project.org/lMMwR/lrgprt.pdf
Machine learning是我一直没有触碰的领域。所以，抱歉我没有什么具体的建议。
二维码

扫码加我 拉你入群

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

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

cheetahfly
2016-6-30 07:55:02
如何用R语言给魔方（Rubik's Cube）建立一个模型，并求解一个被打乱的魔方？
二维码

扫码加我 拉你入群

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

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

三味书生
2016-6-30 08:21:34
cbw1243 发表于 2016-6-29 22:42
R来解决最优问题有点受限。看你的问题有多复杂。可以说来听听
就像举例描述中所说，将一批重要度不同，彼此之间又相互关联的商品放到不同的货架上，让每次去取货尽可能方便。
具体的应用，比如商场有各仓库，这些商品热卖程度不同（我理解为重要度），而且很多客人还同时购买多件（彼此关联）。那怎么设置仓库中这些商品的摆放让工人去仓库拿东西路径最优？
二维码

扫码加我 拉你入群

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

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

cbw1243
2016-6-30 08:24:33
cheetahfly 发表于 2016-6-30 07:55
如何用R语言给魔方（Rubik's Cube）建立一个模型，并求解一个被打乱的魔方？
这是个有意思的问题。
将Rubik‘s Cube 问题用数学notation表达出来，然后用R语言编译求解的algorithm。
目前R还没有现成的包来玩转这个。如果加入一点randomness，再进行visuali，应该会很好玩。
如果你想做，我会非常感兴趣。
二维码

扫码加我 拉你入群

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

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

blank_7
2016-6-30 09:41:42
cbw1243 发表于 2016-6-29 22:55
截一个你画的图看看
图上县没显示完全，还有区都没有显示

附件列表
ditu.png

原图尺寸 9.2 KB

ditu.png

二维码

扫码加我 拉你入群

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

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

fan020312
2016-6-30 10:25:01
请问楼主，怎么实现自定义的对象序列化和反序列。serialize, unserialize序列化对象时，如果只想系列化对象中的部分属性，这个怎么实现
二维码

扫码加我 拉你入群

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

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

cbw1243
2016-6-30 10:57:41
blank_7 发表于 2016-6-30 09:41
图上县没显示完全，还有区都没有显示
没有mapping数据的地图是全部显示的吗？
二维码

扫码加我 拉你入群

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

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

秦时明月GF
2016-6-30 11:01:05
cbw1243 发表于 2016-6-29 22:53
从这儿去下载：
http://rcom.univie.ac.at/download.html
试了不能下载rcom包，能远程操作一下么
二维码

扫码加我 拉你入群

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

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

cbw1243
2016-6-30 11:10:26
fan020312 发表于 2016-6-30 10:25
请问楼主，怎么实现自定义的对象序列化和反序列。serialize, unserialize序列化对象时，如果只想系列化对象 ...
想到最好的办法就是序列化之前，把不想要的属性删掉。
attr(x, which) <- NULL
x是你的对象，which是你要删掉的attr，比如“dim”
二维码

扫码加我 拉你入群

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

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

八神小弟
2016-6-30 13:11:28
程序如下
y<-rnorm(5,0,1)
d<-diag(c(1,2,3,4,5))
f<-function(i,u)
{d[i,i]^2*(y-mean(y))/(d[i,i]+u)}
for(i in 1:5){
g<-function(u){
sum(f(i,u))}}
#################
g1<-function(u)
{f(1,u)+f(2,u)+f(3,u)+f(4,u)+f(5,u)}#这个就是我要的函数g(u)#
要求的函数g是一个关于u的未知的函数，而且g是函数f(i,u)的和，i=1:5,我不想用g1这种列举法表示（因为如果有100个函数相加，这样根本写不下去），但是我的循环方法表示g出错了，g等于最后一个函数f(5,u)，而不是求和了，求大神解答一下，谢谢了！
二维码

扫码加我 拉你入群

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

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

cbw1243
2016-6-30 13:34:50
八神小弟 发表于 2016-6-30 13:11
程序如下
y
如果我对你的意图理解正确的话。以下能解决你的问题。

y<-rnorm(5,0,1)
d<-diag(c(1,2,3,4,5))
f<-function(i,u)
{ y <- get('y', envir = .GlobalEnv)  #avoid confused input
  d[i,i]^2*(y-mean(y))/(d[i,i]+u)}

u <- 2
test <- sapply(1:5, function(i) f(i,u)) #return result for each iteration in matrix
colSums(test) #sum column
二维码

扫码加我 拉你入群

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

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

cbw1243
2016-6-30 13:36:01
秦时明月GF 发表于 2016-6-30 11:01
试了不能下载rcom包，能远程操作一下么
抱歉，不方便提供这种帮助。
二维码

扫码加我 拉你入群

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

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

太阳之子追梦者
2016-6-30 14:01:59
cbw1243 发表于 2016-6-29 23:00
你的第一个在list里的vector 有四个值，剩下的两个有三个。
合并成dataframe时要将他们的length保持一致 ...
原因我知道的，怎么样用空白补充，而不是循环重复补充内容
二维码

扫码加我 拉你入群

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

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

三味书生
2016-6-30 14:02:26
三味书生 发表于 2016-6-30 08:21
就像举例描述中所说，将一批重要度不同，彼此之间又相互关联的商品放到不同的货架上，让每次去取货尽可能 ...
楼主，这问题有好办法解决吗？
二维码

扫码加我 拉你入群

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

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

八神小弟
2016-6-30 14:10:37
cbw1243 发表于 2016-6-30 13:34
如果我对你的意图理解正确的话。以下能解决你的问题。

y
谢谢您的解答
d[i,i]^2*(y-mean(y))/(d[i,i]+u)}这里面的y-mean(y)原来是y-mean(y)
这样的话对于test应该是一个列向量，而不是矩阵了。
我的目标是想用一个函数g(u)表示对f(i,u)求和
这样我就能快速算出这个函数在u的一个区间上的最值，并求出u取何值时g(u)取最值
所以我的关键问题就是想简单的表示出f(i,u)对 i 求和的这个和函数
二维码

扫码加我 拉你入群

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

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

dengwei715
2016-6-30 18:01:15
LZ， 你好， 我从SQL转过来学习R，遇到一个 叉乘表 的问题，很烦躁，好几天了搞不定，求教。
比如：
library(sqldf)
sqldf("select gear, carb, count(1) as n from mtcars group by gear, carb")
生成一个gear, carb的 交叉列联表，
但用R去写的时候
data.frame(table(mtcars$gear, mtcars$carb))
生成的列联表没有列名，郁闷坏了，求助啊。 怎么实现类似SQL的那种结果？
二维码

扫码加我 拉你入群

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

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

cbw1243
2016-6-30 22:20:50
三味书生 发表于 2016-6-30 08:21
就像举例描述中所说，将一批重要度不同，彼此之间又相互关联的商品放到不同的货架上，让每次去取货尽可能 ...
解决这个问题的关键是用数学表达，或者叫model set－up。
重要度是weight，客人购买是demand，然后你要提供supply，保证supply>=demand。
这应该不是很难的建模。只要把数据具体化，就是很好解决的linear programming问题。
用excel都能解决。
二维码

扫码加我 拉你入群

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

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

cbw1243
2016-6-30 22:23:56
太阳之子追梦者 发表于 2016-6-30 14:01
原因我知道的，怎么样用空白补充，而不是循环重复补充内容
补充空白可以把没有对应的值设为NA
比如test <- c('a','b','c')
test <- append(test, 'NA') 或者 test <- c(test, 'NA')
二维码

扫码加我 拉你入群

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

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

cbw1243
2016-6-30 22:32:59
八神小弟 发表于 2016-6-30 14:10
谢谢您的解答
d^2*(y-mean(y))/(d+u)}这里面的y-mean(y)原来是y-mean(y)
这样的话对于test应该是 ...
解决的思路是这样的。先不要急着求和，而是把每一个f(i,u)的值计算并保存下来。
apply类函数就是解决这个问题。我给你写的sapply(1:5, function (i) f(i,u))就是返回的是每一个 f(i,u) 的结果。
最后你再对这些返回的值进行下一步的计算，比如sum。
我可能还没有完全理解你的意图，但是思路就是这样。

R语言的特点就是占用内存，跟C＋＋一样。你每一次循环的值R都会记录，所以用apply类函数会提高速度，提前把空间大小占用告诉R。用for循环R每次都茫然会有多大的空间，所以尽量不要用for，尤其是当你要把函数用到大数据。
二维码

扫码加我 拉你入群

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

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

cbw1243
2016-6-30 22:40:14
dengwei715 发表于 2016-6-30 18:01
LZ， 你好， 我从SQL转过来学习R，遇到一个 叉乘表 的问题，很烦躁，好几天了搞不定，求教。
比如：
libr ...
Welcome to R!
我发现好多user来到R，其实都不太习惯R的简单，哈哈。S语言的特质就是浅显易懂，相信你的郁闷会越来越少。
Anyway，解决方式是，给你的object设一个名字，以便在R enviroment里存储并进行manipulate

test <- sqldf("select gear, carb, count(1) as n from mtcars group by gear, carb")

test返回的就是dataframe，也有你需要的列名。
FYI，设定列名的方式是colnames(test) <- c('bla','bla') （这里你不需要再设，因为返回的就有。）
二维码

扫码加我 拉你入群

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

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

首页上一页下一页跳至第页
栏目导航
热门文章
推荐文章

分享

微信QQ空间QQ微博
扫码加好友，拉您进群
各岗位、行业、专业交流群