R_Language 板


LINE

大概是像这样吧 http://imgur.com/o4jLKXf 接上你的资料 colorname, rgb_color = col2rgb(colorname) hsv_color = rgb2hsv(rgb_color) df_hsv = data.frame() for (n in 1:40){ df_hsv = rbind(df_hsv, c(hsv_color[1,n],hsv_color[2,n],hsv_color[3,n])) } colnames(df_hsv)[1] = 'h' colnames(df_hsv)[2] = 's' colnames(df_hsv)[3] = 'v' df_hsv_sort = df_hsv[with(df_hsv, order(h,s,v)), ] rgb_sort = hsv(df_hsv_sort$h,df_hsv_sort$s,df_hsv_sort$v) n <- as.matrix(1:40) image(n, col = rgb_sort) ※ 引述《pp61022 (fight)》之铭言: : [问题类型]: : 程式谘询(我想用R 做某件事情,但是我不知道要怎麽用R 写出来) : [软体熟悉度]: : 入门(写过其他程式,只是对语法不熟悉) : [问题叙述]: : (代PO) : 我有一组色码,总共100个颜色,想要照彩虹的颜色顺序排序,我一开始使用sort排序, : 但色码命名好像并非照彩虹颜色顺序命名,所以一直没办法排序成彩虹的顺序, : 有google过但可能关键字下的不对, 一直没找到类似的指引。 : 不知道有没有版友知道或处理过这样的问题,想请教大家谢谢。 : 程式码如下,我只撷取其中40个色码 : colorname <- c("#8CC600", "#FF2900", "#66A600", : "#FF9400", "#002EA9", "#005096", : "#FF2900", "#005893", "#FFFF00", : "#FFD100", "#FFFF00", "#F40000", : "#C90000", "#1F823E", "#E00000", : "#FF4700", "#005494", "#910000", : "#005893", "#000FBF", "#DBF600", : "#910000", "#B5E700", "#FF9C00", : "#FFBD00", "#FFF000", "#338C2D", : "#DBF600", "#0017BB", "#FF8C00", : "#FFB300", "#B50000", "#BF0000", : "#FFE800", "#FFE000", "#529C12", : "#F0FB00", "#D1F400", "#BAE900", : "#E40000") : colorsort <- sort(colorname) : n <- as.matrix(1:40) : image(n, col = colorsort) : [环境叙述]: : R version 3.3.1 (2016-06-21) : Platform: x86_64-w64-mingw32/x64 (64-bit) : Running under: Windows >= 8 x64 (build 9200) : locale: : [1] C : attached base packages: : [1] tcltk stats graphics : [4] grDevices utils datasets : [7] methods base : [关键字]: : color : 选择性,也许未来有用 --



※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 104.155.222.243
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1496509900.A.05F.html ※ 编辑: bluecadence (104.155.222.243), 06/04/2017 01:13:27
1F:→ celestialgod: cool! 已收 06/04 01:33
2F:推 pp61022: 太感谢了! 谢谢你上了新的一课 06/04 10:36







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

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

TOP