R_Language 板


LINE

[问题类型]: 程式谘询(我想用R 做某件事情,但是我不知道要怎麽用R 写出来) [软体熟悉度]: 入门(写过其他程式,只是对语法不熟悉) [问题叙述]: hi大家好 我现在有10个档案,档名是 Sale1~10.csv 10个档案代表1~10年的销售资料 column都是一些产品名称 row是月份 现在我想要把固定一个产品的某个月份,观看十年来的差异 本来我用了split函数就能捞到我想看的10年的<产品+月份> 然後产生一个CSV档,我再用EXCEL拉出趋势图看 (EXCEL颜色比较漂亮Q_Q) 但是我主管想要自己去挑选<产品+月份>的组合自己跑R来看资料 我就必须要把程式写得比较弹性让他自行输入产品跟月份 最後一样只要产生一个CSV档给他自己拉趋势图看就好 [程式范例]: #读档 year1 <- read.csv("D:/year1.csv") year2 <- read.csv("D:/year2.csv") year3 <- read.csv("D:/year3.csv") year4 <- read.csv("D:/year4.csv") year5 <- read.csv("D:/year5.csv") year6 <- read.csv("D:/year6.csv") year7 <- read.csv("D:/year7.csv") year8 <- read.csv("D:/year8.csv") year9 <- read.csv("D:/year9.csv") year10 <- read.csv("D:/year10.csv") #挑选想看的产品资料并依月分做切割 year1.Product1 = split(year1$Product1 , year1$Month) year2.Product1 = split(year2$Product1 , year2$Month) year3.Product1 = split(year3$Product1 , year3$Month) year4.Product1 = split(year4$Product1 , year4$Month) year5.Product1 = split(year5$Product1 , year5$Month) year6.Product1 = split(year6$Product1 , year6$Month) year7.Product1 = split(year7$Product1 , year7$Month) year8.Product1 = split(year8$Product1 , year8$Month) year9.Product1 = split(year9$Product1 , year9$Month) year10.Product1 = split(year10$Product1 , year10$Month) #挑出Product1在十年来July销售量 year1Product1July =year1.Product1$"July" year2Product1July =year2.Product1$"July" year3Product1July =year3.Product1$"July" year4Product1July =year4.Product1$"July" year5Product1July =year5.Product1$"July" year6Product1July =year6.Product1$"July" year7Product1July =year7.Product1$"July" year8Product1July =year8.Product1$"July" year9Product1July =year9.Product1$"July" year10Product1July =year10.Product1$"July" #存成dataframe後输出到csv Product1July = data.frame(year1Product1July,year2Product1July,year3Product1July, year4Product1July,year5Product1July,year6Product1July,year7Product1July, year8Product1July,year9Product1July,year10Product1July) write.csv(Product1July, file="D:/Product1July.csv") 我尝试着先以 #挑选想看的产品资料并依月分做切割 写了for回圈搭配paste结果失败了 Product = "Product1" #可自行输入产品编号 Month = "July" #可指定月份 for(i in 1:10){ x = paste("year",i,Product,sep=""); y = paste("year",i,"$",Product,sep=""); z = paste("year",i,"$",Month,sep=""); x = split(y,z); } 请问我上面程式要怎麽修改才能让做到像上面那些指令的结果呢 感觉是split认为paste出来的东西不是object 我想要把上面这些写死的script写得更弹性简洁一些 求高人指点 谢谢 [关键字]: 选择性,也许未来有用 -- │ │ ╭──╮ ╭──╮ ╭──╮ ├──╯ │ │ ╮ ╭──┤╭┼─╯ ├──╯* █▌ │ │ ││ │ * ◣S ╰──╰ ╰──╯ ╰──╯ --



※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.96.100.10
1F:→ diplazium:split(a,b)的b应该要是一个vector,而不是单一值 10/24 12:11
2F:→ diplazium:你不妨直接秀几行原始资料,让大家了解一下你的资料内容 10/24 12:12
3F:→ diplazium:不然光是要从你的code来猜测资料的长相,有点头痛... 10/24 12:12
4F:→ peiwinds:补上其中一年份的部分资料 谢谢 http://ppt.cc/nY2h 10/24 12:26
5F:→ peiwinds:其实我觉得我的问题比较像是变数字元处理的问题... 10/24 13:07







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灯, 水草

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

TOP