程序员经验分享-hwhale

R 颜色 - 许多独特的颜色仍然很漂亮

2024-05-21

我很好奇你是否有一些关于 R 中颜色酿造的技巧，对于许多独特的颜色，在某种程度上图形仍然好看。

我需要相当数量的独特颜色（至少 24 种，可能需要更多，~50 种）用于堆叠区域图（所以不是热图，渐变颜色不起作用）。我发现了 viridis，它的调色板非常漂亮，也适用于色盲人士。不幸的是，这些没有足够的颜色在我的地块上仍然可以区分。

在谷歌上花了一些时间后，我也研究了其他包/调色板（这篇文章特别酷：如何在R中生成一些最有特色的颜色？ https://stackoverflow.com/questions/15282580/how-to-generate-a-number-of-most-distinctive-colors-in-r），但没有找到任何颜色足够且看起来仍然不错的东西。

当需要 24 种以上颜色时，如何使图表美观？


你可以尝试一下randomcoloR https://github.com/ronammar/randomcoloR（最多 40 种不同的颜色）或pals https://cran.r-project.org/web/packages/pals/vignettes/pals_examples.html（最多 26 种颜色）。

# k: number of colors (>= 1). May be ineffective for k > 40.
library(randomcoloR)
nColor <- 40
myColor <- randomcoloR::distinctColorPalette(k = 40)
pie(rep(1, nColor), col = myColor)

# https://cran.r-project.org/web/packages/pals/vignettes/pals_examples.html
library(pals)
labs = c('alphabet', 'alphabet2', 'glasbey', 'kelly', 'polychrome')
op = par(mar = c(0, 5, 3, 1))
pal.bands(alphabet(), alphabet2(), glasbey(), kelly(), polychrome(), 
          labels = labs, show.names = FALSE)

创建于 2018-05-13代表包 http://reprex.tidyverse.org（v0.2.0）。

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

r

ggplot2

Colors

colorpalette

stackedareachart

R 颜色 - 许多独特的颜色仍然很漂亮 的相关文章

  • 如何在 R 中导入并绘制三角形网格？

    我想在 R 中绘制我的模型输出 它是格式为的三角形网格 x1 y1 z1 x2 y2 z2 x3 y3 z3 value 每行代表一个三角形 我想用以下方法绘制这些三角形value作为规模 mymesh lt structure c 0 9

  • 使用 Eclipse 和 Rserve 从 Java 调用 R 的简单程序

    我的应用程序必须执行 R 操作 例如 m matrix sample 0 1 100 rep T ncol 10 结果应该可供 Java 应用程序使用 The 预留套餐 http www rforge net Rserve 将 R 与其他语

  • ggplot `facet_grid` 标签被切断

    In ggplot 当使用facet grid space free y 如果组内的点数较少 则分面标题会被截断 例如 library tidyverse d lt tibble x factor 1 40 y rnorm 40 g c r

  • decompose() 的周期太少[关闭]

    很难说出这里问的是什么 这个问题是含糊的 模糊的 不完整的 过于宽泛的或修辞性的 无法以目前的形式得到合理的回答 如需帮助澄清此问题以便重新打开 访问帮助中心 help reopen questions 错误看起来像这样 decompose

  • 将命名参数列表传递给函数？

    我想编写一个小函数来从适当的分布生成样本 例如 makeSample lt function n dist params values lt makeSample 100 unif list min 0 max 10 values lt m

  • 更改焦点上可点击的 TextView 颜色并点击？

    我有一个可点击的 TextView 我想给它一些颜色 但我不知道怎么办 以下是我正在使用的两个文件中的相关代码片段 TextView title new TextView this title setLayoutParams new Lay

  • 将 Instagram/youtube 嵌入 Shiny R 应用程序

    我想通过点击图表来播放 Instagram 或 Youtube 视频 例如显示异常值等 到目前为止 明确告诉 Shiny 视频内容是有效的 require shiny require ggplot2 data df lt data fram

  • 基于另一个数据集获取数据集的子集

    假设我有一个数据集 即 dat1 ID block plot SPID TotHeight 1 1 1 4 44 5 2 1 1 4 51 3 1 1 4 28 7 4 1 1 4 24 5 5 1 1 4 27 3 6 1 1 4 20

  • 如何对同一列上的数据帧列表中的所有数据帧进行排序？

    我有一个数据框列表dataframes list 举个例子 我把dput dataframes list 在底部 我想对列列表中的所有数据框进行排序enrichment 我可以对一个数据框进行排序 first dataframe lt da

  • 如何在R中删除重复项

    我有一个非常大的数据集 如下所示 df lt data frame school c a a a b b c c c year c 3 3 1 4 2 4 3 1 GPA c 4 4 4 3 3 3 2 2 school year GPA

  • 将年月格式转换为 POSIXct [重复]

    这个问题在这里已经有答案了 我有一些年月形式的数据 我想将其格式化以用于绘图ggplot date lt c 2016 03 2016 04 2016 05 2016 06 2016 07 2016 08 2016 09 2016 10 2

  • 如何在for循环中引用变量？

    我正在循环访问不同的 data tables 和 data table 中的变量 但我在引用内部变量时遇到问题for loop dt1 lt data table a1 c 1 2 3 a2 c 4 5 2 dt2 lt data tabl

  • 如何从 R 运行带有特定模块的 perl 脚本？

    我可以从终端运行 perl 脚本 myperlscript pl 没有任何问题 但是 如果我尝试从 RStudio 中运行相同的 perl 脚本 则会出现以下错误 command lt myperlscript pl outputfile

  • 计算每个唯一值出现的次数

    假设我有 v rep c 1 2 2 2 25 现在 我想计算每个唯一值出现的次数 unique v 返回唯一值是什么 但不返回它们的数量 gt unique v 1 1 2 我想要一些能给我的东西 length v v 1 1 25 le

  • 如何从 Fortran 调用 R 函数？

    根据http gallery rcpp org articles r function from c http gallery rcpp org articles r function from c Rcpp 允许用户从 C 调用 R 函数

  • 在shiny中过滤传单地图数据

    我在用传单地图设置这个闪亮的东西时遇到了麻烦 我的原帖 https stackoverflow com questions 50111566 applying leaflet map bounds to filter data within

  • 重复测量引导统计数据，按多个因素分组

    我有一个看起来像这样的数据框 但显然还有更多行等 df lt data frame id c 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 cond c A A B B A A B B A A B B A A B B co

  • 在 R 中向散点图添加线条

    如何向图表添加线条 我做了以下 dat lt data frame xvar 1 20 rnorm 20 sd 10 yvar 1 20 rnorm 20 sd 10 zvar 1 20 rnorm 20 sd 10 plot dat 1

  • 多功能测试仪替代 system.time

    我已经看到 我认为是这样 使用了类似于 system time 的函数 它可以同时评估多个函数的时间并输出一个输出 我不记得它是什么 并且用我正在使用的术语进行互联网搜索并没有得到我想要的响应 有人知道我正在谈论的功能的名称 位置吗 你想要

  • 选择 R 中的数据表中隐藏时（在绿色加号下方）列的显示顺序

    Context 使用 DataTables 库制作交互式表格时 当屏幕宽度对于列的数量和宽度来说太窄时 列将隐藏在绿色 号下 我有一个非常宽的表格 有 20 多列 其中一些内容非常冗长 因此某些列在所有屏幕宽度下总是隐藏的 每次隐藏新列时

随机推荐

  • CALayer 抗锯齿不如 UIView 抗锯齿

    我一直在尝试使用 CALayer 制作圆形绘图的动画 一切都运行良好 但问题是 绘制的圆不够抗锯齿 它的边界有点太粗糙 或者如果使用光栅化则模糊 抗锯齿已启用 还尝试过 边缘抗锯齿遮罩 kCALayerLeftEdge kCALayerRi

  • XHR 不起作用，因为“Access-Control-Allow-Origin 不允许来源”

    我正在使用 Rails 3 开发一个 API 服务器 到目前为止 它非常方便 但我一直遇到错误 我不确定这是因为我的 Apache 设置还是 Rails 应用程序 当我尝试执行 HTTP DELETE 或 PUT 请求时http sampl

  • 如何在views.py中检查用户的权限？

    在我的 Django 站点上的views py 文件中 我有一个基于类的视图 需要根据用户的权限更改变量 所以如果用户有pro view许可 然后它看到一件事 否则如果有basic view然后它看到另一个 我怎样才能在我的内部访问它get

  • PHP 换行符 (\n) 不起作用

    由于某种原因我无法使用 n使用 PHP 输出到文件时创建换行符 上面只写着 n 到文件 我尝试使用 n 同样 它只写 n 如预期 但我一生都无法弄清楚为什么在字符串中添加 n 不会创建新行 我也尝试过 r n但它只是附加 r n 到文件中的

  • 如何在 C# 中使用 Outlook MAPI 打开 .eml 文件？

    我有一个 C 应用程序 可以读取 msg 文件并提取正文和附件 但是当我尝试加载 eml 文件时 应用程序崩溃了 我正在加载这样的文件 MailItem mailItem MailItem outlookApp CreateItemFrom

  • Angular UI Select2，为什么 ng-model 被设置为 JSON 字符串？

    我使用 Angular ui 的 select2 来实现相当简单的下拉菜单 它由位于我的控制器范围内的静态数据数组支持 在我的控制器中 我有一个在下拉列表的 ng change 上调用的函数 以便我可以在值更改时执行一些操作 然而 我发现

  • 如何隐藏组合框下拉列表中的列？

    我正在 Excel 用户窗体中构建一个 ComboBox 该用户窗体从 Access 表中获取其行 我想在下拉列表中向用户显示多个文本字段 但从 ComboBox 返回的值应该是与用户选择的行关联的 ID 号 即 ID 列是绑定列 但我不想

  • Razor CheckBox用于在视图中有条件地检查和取消检查

    在我看来 我有 Html CheckBoxFor m gt m IsExist new id IsExist In my Model我有来自数据库的 IsExist 值 要么是真的 要么是假的 现在我如何根据 IsExist 中的 true

  • 打印“\n”或换行符作为终端输出的一部分

    我正在终端上运行 Python 给定一个字符串string abcd n 我想print它以某种方式使换行符 n in abcd n将是可见的而不是转到下一行 我可以做到这一点而不必修改字符串并添加双斜杠 n Use repr https

  • “匹配”语句中的“使用部分移动的值”错误

    My code fn main let mut messages vec let msg Message Write message msg to string match msg Message Write message gt prin

  • Spring事务不回滚

    我有这样的事情 Service Transactional public class ServiceA Autowired SomeDAO1 dao1 Autowired ServiceB serviceB public void meth

  • jQuery 的 ondragstart 事件

    我一直在尝试使用 Javascript 拖放 API var file document getElementById file file addEventListener dragstart function evt evt dataTr

  • 如何让flutter应用程序在android导航栏后面绘制并使导航栏完全透明？

    我想让我的 Flutter 应用程序占据 Android 中的整个屏幕 同时仍然显示状态栏和导航栏 并且两者都是透明的 以实现全屏 如下所示iOS https codelabs developers google com codelabs

  • 使用 Javascript/JQuery 的 JSON 对象的差异

    我在 Javascript 中有两个 JSON 对象 除了数值之外 它们都是相同的 它看起来像这样 var data eth0 Tx 4136675 Rx 13232319 eth1 Tx 4 Rx 0 lo Tx 471290 Rx 47

  • 三星 Galaxy Note II - 逗号作为数字键盘小数分隔符

    我正在尝试使用逗号作为三星 Galaxy Note II 上数字键盘的小数分隔符 我已经在其他设备 Moto X rooted Samsung GS4 上测试了我的应用程序 如果我从设备的系统设置中更改语言 它们的小键盘具有正确的分隔符 三

  • 在 IOS 中通过 Linking.openURL React Native 打开设置

    我想从我的应用程序打开 ios 设置应用程序 设置目标是 settings gt notification gt myapp 打开和关闭推送通知 有一些关于如何链接到设置的文档 但我不知道如何打开深层链接 通知 gt myapp 我怎样才能

  • 修改二维数组的malloc策略，使malloc成功

    我们最近收到一份报告 称我们的应用程序偶尔会无法运行 我找到了问题代码 struct ARRAY2D long col int numRows 800000 int numCols 300 array ARRAY2D malloc numR

  • Notepad++ - 使函数“可点击”？

    我只是想这可能有用 但我找不到办法 在 Notepad 中 有没有一种方法可以使函数名称 可单击 即使它们成为链接 这样如果您单击它们 它会自动将您带到其定义 最好是跨整个代码库 目前还没有插件提供可直接单击的函数名称 但您可以尝试使用 S

  • 使用 CSS 删除不需要的表格单元格边框

    我有一个奇怪且令人沮丧的问题 对于简单的标记 table thead tr th 1 th th 2 th th 3 th tr thead tbody tr td a td td b gt td td c td tr tr class o

  • R 颜色 - 许多独特的颜色仍然很漂亮

    我很好奇你是否有一些关于 R 中颜色酿造的技巧 对于许多独特的颜色 在某种程度上图形仍然好看 我需要相当数量的独特颜色 至少 24 种 可能需要更多 50 种 用于堆叠区域图 所以不是热图 渐变颜色不起作用 我发现了 viridis 它的调

热门标签