R_Language 板


LINE

[问题类型]: 请把以下不需要的部份删除 意见调查(我对R 有个很棒的想法,想问问大家的意见) 程式谘询(我想用R 做某件事情,但是我不知道要怎麽用R 写出来) 效能谘询(我想让R 跑更快) 经验谘询(我想用R 连接某些资料库,请问大家的经验) [软体熟悉度]:新手 请把以下不需要的部份删除 新手(没写过程式,R 是我的第一次) 入门(写过其他程式,只是对语法不熟悉) 使用者(已经有用R 做过不少作品) 开发者(有撰写R 的套件经验) [问题叙述]:小弟希望把一整笔资料x2 (例如35列3行)做N次的复制,不知道该怎麽做? 状况如下: V1 V2 V3 1 1 1 1 2 1 1 2 3 1 1 8 .... 35 10 10 10 #x2的生成方式如下: 就是取1,2,8,9,10这5笔 做重复组合 共35组 x2 <- gtools::combinations(5,3,c1,rep=T) x2 <- as.data.frame(x2) #我自己使用到 assign 和 get,程式码如下 #1 先把35列都抓出来 dim(x2)[1] #就是35列 n <- dim(x2)[1] for (i in 1:n) { assign(paste0("d",i),x2[i,]) } #2 但接下来我希望把d1~d35复制N次 , 假设N=100 不知道怎麽做? 我不知道该怎麽写 回圈 能够帮忙我吗? 我知道要用get 取得资料来合并 但不知道怎麽把d1~d35用get复制100次 (就是d1~d35为1次 有100个d1~d35 共3500列) 请简略描述你所要做的事情,或是这个程式的目的 [程式范例]: #x2的生成方式如下: 就是取1,2,8,9,10这5笔 做重复组合 共35组 x2 <- gtools::combinations(5,3,c1,rep=T) x2 <- as.data.frame(x2) 我自己使用到 assign 和 get,程式码如下 #1 先把35列都抓出来 dim(x2)[1] #就是35列 n <- dim(x2)[1] for (i in 1:n) { assign(paste0("d",i),x2[i,]) } #2 不会写QQ [环境叙述]: R4.4.2 请提供 sessionInfo() 的输出结果, 里面含有所有你使用的作业系统、R 的版本和套件版本资讯, 让版友更容易找出错误 [关键字]:assign、get、for --



※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.194.168.241 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1731220009.A.703.html ※ 编辑: askpeople (123.194.168.241 台湾), 11/10/2024 14:27:23 ※ 编辑: askpeople (123.194.168.241 台湾), 11/10/2024 14:27:51 ※ 编辑: askpeople (123.194.168.241 台湾), 11/10/2024 14:45:16 ※ 编辑: askpeople (123.194.168.241 台湾), 11/10/2024 14:45:43 ※ 编辑: askpeople (123.194.168.241 台湾), 11/10/2024 14:51:20
1F:→ locka: 假设你的35笔资料是取名叫x2,可以试试以下 11/10 15:19
2F:→ locka: x2[rep(1:35, length.out = 100),] 11/10 15:19
3F:推 studioA: 假设你的资料格式是data.frame ,然後重复资料打算上下重 12/05 04:58
4F:→ studioA: 复合并100次 12/05 04:58
5F:→ studioA: result <- Reduce(rbind, replicate(100, df, simplify 12/05 04:58
6F:→ studioA: = FALSE) 12/05 04:58
7F:→ studioA: df 放你的数据 12/05 04:59







like.gif 您可能会有兴趣的文章
icon.png[问题/行为] 猫晚上进房间会不会有憋尿问题
icon.pngRe: [闲聊] 选了错误的女孩成为魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一张
icon.png[心得] EMS高领长版毛衣.墨小楼MC1002
icon.png[分享] 丹龙隔热纸GE55+33+22
icon.png[问题] 清洗洗衣机
icon.png[寻物] 窗台下的空间
icon.png[闲聊] 双极の女神1 木魔爵
icon.png[售车] 新竹 1997 march 1297cc 白色 四门
icon.png[讨论] 能从照片感受到摄影者心情吗
icon.png[狂贺] 贺贺贺贺 贺!岛村卯月!总选举NO.1
icon.png[难过] 羡慕白皮肤的女生
icon.png阅读文章
icon.png[黑特]
icon.png[问题] SBK S1安装於安全帽位置
icon.png[分享] 旧woo100绝版开箱!!
icon.pngRe: [无言] 关於小包卫生纸
icon.png[开箱] E5-2683V3 RX480Strix 快睿C1 简单测试
icon.png[心得] 苍の海贼龙 地狱 执行者16PT
icon.png[售车] 1999年Virage iO 1.8EXi
icon.png[心得] 挑战33 LV10 狮子座pt solo
icon.png[闲聊] 手把手教你不被桶之新手主购教学
icon.png[分享] Civic Type R 量产版官方照无预警流出
icon.png[售车] Golf 4 2.0 银色 自排
icon.png[出售] Graco提篮汽座(有底座)2000元诚可议
icon.png[问题] 请问补牙材质掉了还能再补吗?(台中半年内
icon.png[问题] 44th 单曲 生写竟然都给重复的啊啊!
icon.png[心得] 华南红卡/icash 核卡
icon.png[问题] 拔牙矫正这样正常吗
icon.png[赠送] 老莫高业 初业 102年版
icon.png[情报] 三大行动支付 本季掀战火
icon.png[宝宝] 博客来Amos水蜡笔5/1特价五折
icon.pngRe: [心得] 新鲜人一些面试分享
icon.png[心得] 苍の海贼龙 地狱 麒麟25PT
icon.pngRe: [闲聊] (君の名は。雷慎入) 君名二创漫画翻译
icon.pngRe: [闲聊] OGN中场影片:失踪人口局 (英文字幕)
icon.png[问题] 台湾大哥大4G讯号差
icon.png[出售] [全国]全新千寻侘草LED灯, 水草

请输入看板名称,例如:Soft_Job站内搜寻

TOP