如何使用ggplot2创建黑白透明重叠直方图?

2024-01-05

我使用 ggplot2 创建两个透明重叠直方图。

test = data.frame(condition = rep(c("a", "b"), each = 500), value = rep(-1, 1000))
test[1:500,]$value = rnorm(500)
test[501:1000,]$value = rnorm(500) + 2

fig = ggplot(test, aes(x = value, fill = condition)) +
      #scale_fill_grey() +
      geom_histogram(position = "identity", alpha = .5)
fig

结果图看起来很棒,但它是彩色的。我需要灰度图或黑白图。

使用“scale_fill_grey()”会导致绘图具有透明度,很难“阅读”。

理想情况下,我想要一个使用纹理而不是颜色的黑/白图,例如,交叉影线:“///”表示一种条件,“\\\”表示另一种条件,当条形出现时结果为“XXX”重叠。这可能吗?


这个怎么样(仍然没有纹理)?

fig = ggplot(test, aes(x = value, fill = condition)) +
    geom_histogram(position = "identity", alpha = .8) + 
    scale_fill_manual(values=c("grey20", "grey60")) + theme_bw()
fig
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

如何使用ggplot2创建黑白透明重叠直方图? 的相关文章

  • R 中具有 NA 值的聚合栅格

    我在 R 中有一个分辨率为 1 公里的栅格 其 NA 值分布广泛 但位置不规则 即 包含数据的单元格不连续 并且 NA 值分散 我正在尝试使用用户定义的平均圆角函数 包括在下面 以 5 公里分辨率 因子 5 聚合此栅格 使用 raster
  • 将线条剪裁到绘图区域并在绘图区域外显示文本

    我想限制绘图的可见 y 范围 为了保留超出此范围的值 我需要设置oob 出界 to rescale none这效果很好 不过 我还想在图外的页边空白处添加一些文本 为了做到这一点 我需要关闭剪辑 这会导致超出范围的值被绘制在绘图区域之外的边
  • 在 R/ggplot2 中将字符串转换为函数参数的最佳方法? [复制]

    这个问题在这里已经有答案了 我正在开发一个闪亮的应用程序 用户可以选择可以使用 ggplot2 绘制哪些变量 但是我完全不确定将字符串 即要绘制的变量的名称 转换为合适的函数参数的最佳方法 考虑以下非常人为的 有效的示例 df lt dat
  • 使用 geom_bar 和 stat="identity" 绘制平均值的 hline

    我有一个条形图 其中确切的条形高度位于数据框中 df lt data frame x LETTERS 1 6 y c 1 6 1 6 1 g rep x c a b each 6 ggplot df aes x x y y fill g g
  • 在 R 中将本地日期时间转换为 UTC

    如何将本地日期时间转换为以下格式 12 31 2014 6 42 52 PM R 中的 UTC 我试过这个 as POSIXct as Date 12 31 2014 6 42 52 PM format m d Y H M S tz UTC
  • 有没有办法将字母扩展到超过 26 个字符,例如 AA、AB、AC...?

    我大部分时间都使用字母来表示我的因素 但今天我尝试超过 26 个字符 LETTERS 1 32 期待有自动递归因式分解 AA AB AC 但很失望 这只是字母的限制还是有办法使用其他函数来获取我正在寻找的内容 702够吗 LETTERS70
  • 匹配向量内的向量

    I have vec1 lt c 0 0 0 1 1 0 1 1 1 0 0 1 vec2 lt c 1 1 我预计 magicFUN x vec1 y vec2 1 4 7 8 这意味着我想要一个完整向量在另一个向量内的位置 match
  • 添加不同的标签以在 ggplot R 中的堆积条形图中显示总计?

    我的问题有点类似 如何添加文本标签以显示ggplot中堆叠比例条的每个条中的总数n https stackoverflow com questions 65201095 how to add text label to show total
  • 为闪亮的应用程序创建桌面图标

    当我在基本 R 提示中提供以下代码时 我会在浏览器中打开一个闪亮的应用程序 shiny runApp C Myapp 我使用 Windows 7 我试图创建一个桌面图标 以避免我的客户每次想要使用该应用程序时都键入上述代码 我创建了一个桌面
  • corr.test 与 cor.test p 值

    我正在尝试使用 psych 包 psych 1 6 9 中的 corr test 但在使用 method spearman 时 它似乎给出了与 cor test 不同的 p 值 相关系数相同 但 p 值不同 我整理了一些示例代码和输出 如下
  • 两个闪亮的操作按钮

    我正在编写一个闪亮的函数 其中包含两个操作按钮 这两个按钮是左右按钮 单击时可以帮助绘图移动 第一次单击时 这两个按钮都工作正常 当我重新单击它们时 就会出现问题 无论我单击哪个按钮 它都会在两个范围之间来回弹跳 我猜可能是 右 和 左 按
  • Rblpapi - 将 bdp 与 ISIN / Cusip 一起使用会出现错误

    当我将 bdp 与 ISIN 或 CUSIP 一起使用时 出现以下错误 bdp US25470XAB10 ISIN ULT PARENT TICKER EXCHANGE bdp 25470XAB1 CUSIP ULT PARENT TICK
  • 如何在shell脚本中运行R代码?

    我有一个 R 文件 myfile R 我想使用 shell 脚本来运行它 我怎样才能做到这一点 我试过这个 bin bash Rscript myfile R 但它给了我这个错误 Rscript 找不到命令 我也尝试过这个 bin bash
  • 当 header=TRUE 时 read.fwf 出错

    我的模拟数据如下所示 LastName Date email CreditCardNum AgeZip Amount Paul 21 02 14 email protected cdn cgi l email protection 4241
  • 如何在 ggplot2 中向 x 轴添加特定值?

    我正在尝试在 ggplot2 中绘制图表 我希望 x 轴显示 2 84 以及下面键入的序列 除了在 Breaks 中输入所有精确值之外 还有其他方法吗 我尝试了谷歌 但它没有解决我的问题 scale x continuous limits
  • 如何在 R 中使用 msgbox [关闭]

    Closed 这个问题不符合堆栈溢出指南 help closed questions 目前不接受答案 如何在中显示消息框R 我正在寻找类似的东西msgbox在 VBA 中 因此我可以向用户发出有关问题的警报 此外 我想允许一些用户交互 例如
  • 将英寸高度的字符向量转换为厘米?

    我得到一个字符向量 tibble H c 6 2 5 10 5 5 5 1 5 5 5 4 我想将其转换为厘米 请告知我该怎么做 有几种方法可以使用 1 阅读与fread粘贴到单个字符串后 library data table fread
  • 在 R 中使用 ggplot2 叠加两个图

    有两个数据框 df1 df2我需要使用 ggplot2 创建线图并显示在同一个图表上 df1 x y 2 30 4 25 6 20 8 15 df2 x y 2 12 4 16 6 20 8 24 用于绘制第一个 df p1 lt ggpl
  • 如何对plot_ly()图表进行分面?

    Using ggplot2 and plotly制作交互式散点图facet wrap library ggplot2 library plotly g lt iris gt ggplot aes x Sepal Length y Sepal
  • 如何解决 R 估计中的整数溢出错误

    我正在尝试使用估计模型speedglm在 R 中 数据集很大 约 6988 万行和 38 列 行数和列数相乘得到约 27 亿 超出了整数限制 我无法提供数据 但以下示例重现了该问题 library speedglm large exampl

随机推荐

  • 在pdf c#中的另一个图像上添加图像水印

    All 我正在尝试使用 itextsharp 在 pdf 中添加图像水印 水印按预期出现在所有页面上 但其中已经有图像 我希望我的水印图像位于 pdf 上现有图像的顶部 我正在使用以下代码来添加图像 using Stream output
  • std::size_t 与 size_t 与 std::string::size_type

    哪里有size t当我没有包含任何东西时来自 总是假设是否合理size t std size t 我什么时候应该使用size type in std容器 string size type vector
  • Unity3D XML(-RPC) 和 C#

    我实际上是在这里回答我自己的问题 我一定是世界上唯一尝试这样做的人 但考虑到我花了大约一周的时间才解决这个问题 我想如果还有另一个人想在 Unity 中使用 XML RPC 我将为他们省去一周的麻烦 我想做的是与我们的游戏服务器之一对话以获
  • 使用 PHP API oauth2.0 的 Google 日历服务帐户 - 如何访问未共享的日历

    我在使用 Google 提供的 PHP 库读取日历事件时遇到问题 我想要阅读的日历不是公开共享的 但我想在我的服务器应用程序上阅读它们 尽管日历是与我共享的 但保存日历的帐户与我的帐户是分开的 我将其称为 API 帐户 根据 Google
  • 如何在flutter中访问另一个有状态小部件中一个有状态小部件中创建的对象

    我被困在我的项目中 我在 flutter 中创建了两个有状态的小部件作为两个不同的 dart 文件 现在 我必须在第二个小部件中访问第一个小部件中创建的对象的实例 但我不太确定在创建小部件时如何在 flutter 中执行此操作 我想到的一种
  • Hibernate多用户,动态变化

    从技术上讲 这里有两个问题 但紧密耦合 我在一个新项目中使用 Hibernate 它是POS http en wikipedia org wiki Point of sale项目 它使用Oracle数据库 我们决定使用 Hibernate
  • 如何使用 SLURM 通过 CUDA 在 GPU 网格上运行多个作业

    我一直致力于使用 CUDA 加快作业的处理时间 通常这会相当简单 但是我遇到了一个相当有趣的问题 我们使用 slurm 来安排我们的作业 通过添加 CUDA 代码并启用它的编译 它使单个作业时间减少了一半 当查看 GPU 上的负载时就会出现
  • 无法在 Visual Studio 2008/2010 中查看 WIX 项目类型

    我的计算机上安装了 Visual Studio 2008 2010 和 WIX37 msi WIX 3 7 但是 我无法在 Visual studio 2008 2010 中看到 WIX 项目类型 我需要安装额外的工具 插件吗 我的计算机上
  • 获取组件的实际宽度和高度

    我们在 JavaScript 中面临着一个相当可怕的问题 我们似乎都没有能力解决这个问题 我们如何获取 DOM 元素 包括子元素 整个盒模型等 的宽度和高度 而组件实际上并未显示在页面上 请记住 我正在寻找建议 即使答案不能完全回答问题 或
  • 如果 PHP 版本的条件忽略新代码

    所以我有一个需要在多个站点上运行的脚本 我有一个版本的脚本 它使用一些新的 PHP 5 3 函数进行了优化 但有些网站是 5 2 等 这段代码 if version compare PHP VERSION 5 3 0 gt 0 Do the
  • 如何找到 Azure 部署的暂存 URL?

    我已经将自动构建部署到 Azure 我想知道暂存 URL 理想情况下 我希望能够为其分配一个 DNS 这样我就不必在每次部署时都分发新的暂存 URL 否则 我希望能够找到暂存 URL 以便我可以自动分发它 有任何想法吗 假设您的自动化部署正
  • pip.conf 文件的位置

    我正在开发一个必须同时在 Windows 和 Linux 上运行的系统 它使用Python的venv与 Python 相关的所有内容的模块 我需要创建一个pip conf文件以激活我个人的取件 pip pip conf将其指向我们的内部 P
  • Telerik Radgrid GridDataItem.DataItem 更新时为空(OnUpdateCommand 处理程序)

    在 RadGrid 上处理 OnUpdateCommand 事件时 DataItem 为 null 我认为这也代表了行所代表的数据项 Radgrid 由 IList 填充 在处理程序中 代码如下所示 protected void rgAll
  • 在坐标之间绘制多边形,防止相交

    JS小提琴 https jsfiddle net 8jpk4gr2 我有一个通过鼠标点击填充的坐标数组canvas var pointsArray This array is push使用单击事件编辑 x 和 y 值 pointsArray
  • Jupyter 笔记本单元发生故障时播放声音

    有什么技巧可以每当 Jupyter 笔记本单元抛出错误时播放声音 我检查了这个问题 https stackoverflow com q 17323336 125617 我目前正在使用cellbell https pypi python or
  • R 中的空间聚类(简单示例)

    我有这个简单的data frame lat lt c 1 2 3 10 11 12 20 21 22 23 lon lt c 5 6 7 30 31 32 50 51 52 53 data data frame lat lon 这个想法是根
  • 在 .NET 中创建内部 XAML 文件

    在我的 Silverlight 项目中 我想制作一个包含 xaml 的程序集 该程序集无法从程序集外部看到 但是 我没有明确的方法可以做到这一点 当我修改 xaml cs 文件上的访问修饰符时 编译器告诉我 Partial declarat
  • Parse.com 错误“启用固定时不允许使用该方法。”当我使用 PFQueryTableViewController 子类时

    我目前通过 CocoaPods 使用 1 6 1 最新 在我的 swift 项目中 我启用本地数据存储 然后设置解析应用程序 ID 之后 我加载一个故事板 它是 PFQueryTableViewController 的子类 那里真的没什么特
  • 仅当按下 Tab 按钮时才在两个文本区域之间切换

    通常 当用户访问网页并按键盘上的 TAB 按钮时 选择会从页面开头开始从一个元素移动到另一个元素 我正在寻找一种解决方案 通过按键盘上的 TAB 按钮在两个特定文本区域之间切换 并在加载网页时将初始焦点放在第一个文本区域上 对于此 TAB
  • 如何使用ggplot2创建黑白透明重叠直方图?

    我使用 ggplot2 创建两个透明重叠直方图 test data frame condition rep c a b each 500 value rep 1 1000 test 1 500 value rnorm 500 test 50