- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有一个问题 geom_hex_tern
与单个图完美配合,但是当我制作刻面时,十六进制 bin 的大小和形状会变形。
library(tidyverse)
library(ggtern)
# My data
dat <- structure(list(Fact2 = c(0.24, 0.24, 0.24, 0.24, 0.24, 0.24,
0.24, 0.24, 0.24, 0.24, 0.24, 0.24, 0.24, 0.24, 0.24, 0.24, 0.24,
0.24, 0.24, 0.24, 0.24, 0.24, 0.24, 0.24, 0.24, 0.24, 0.24, 0.24,
0.24, 0.24, 0.24, 0.24, 0.24, 0.24, 0.24, 0.24, 0.24, 0.24, 0.24,
0.24, 0.28, 0.28, 0.28, 0.28, 0.28), x = c(0.05, 0.1, 0.1, 0.1,
0.15, 0.2, 0.2, 0.2, 0.2, 0.2, 0.2, 0.2, 0.25, 0.25, 0.25, 0.25,
0.3, 0.3, 0.35, 0.35, 0.4, 0.4, 0.4, 0.45, 0.45, 0.45, 0.45,
0.5, 0.5, 0.5, 0.5, 0.55, 0.55, 0.55, 0.6, 0.6, 0.6, 0.65, 0.7,
0.75, 0.05, 0.1, 0.2, 0.3, 0.45), y = c(0.6, 0.5, 0.6, 0.7, 0.55,
0.1, 0.35, 0.4, 0.45, 0.5, 0.55, 0.6, 0.35, 0.4, 0.45, 0.5, 0.3,
0.4, 0.25, 0.4, 0.3, 0.35, 0.4, 0.2, 0.25, 0.35, 0.45, 0.05,
0.15, 0.2, 0.25, 0.1, 0.2, 0.3, 0.05, 0.1, 0.25, 0.1, 0.05, 0.05,
0.55, 0.5, 0.55, 0.2, 0.25), z = c(0.35, 0.4, 0.3, 0.2, 0.3,
0.7, 0.45, 0.4, 0.35, 0.3, 0.25, 0.2, 0.4, 0.35, 0.3, 0.25, 0.4,
0.3, 0.4, 0.25, 0.3, 0.25, 0.2, 0.35, 0.3, 0.2, 0.1, 0.45, 0.35,
0.3, 0.25, 0.35, 0.25, 0.15, 0.35, 0.3, 0.15, 0.25, 0.25, 0.2,
0.4, 0.4, 0.25, 0.5, 0.3), wt = c(0.027, 0.02, 0.016, 0.017,
0.043, 0.018, 0.02, 0.023, 0.037, 0.02, 0.018, 0.02, 0.015, 0.043,
0.031, 0.033, 0.036, 0.029, 0.015, 0.022, 0.036, 0.022, 0.017,
0.02, 0.022, 0.018, 0.019, 0.023, 0.02, 0.065, 0.038, 0.043,
0.02, 0.023, 0.063, 0.02, 0.018, 0.025, 0.042, 0.016, 0.015,
0.019, 0.017, 0.018, 0.039)), row.names = c(NA, -45L), class = c("tbl_df",
"tbl", "data.frame"))
# PLot Fact2 == 0.24 - OK
filter(dat, Fact2 == 0.24) %>%
ggtern(aes(x = x, y = y, z = z)) +
geom_hex_tern(binwidth = 0.05, colour = "black", aes(value = wt))
# PLot Fact2 == 0.28 - OK
filter(dat, Fact2 == 0.28) %>%
ggtern(aes(x = x, y = y, z = z)) +
geom_hex_tern(binwidth = 0.05, colour = "black", aes(value = wt))
# plot both together - weird hex bin size/shape
ggtern(dat, aes(x = x, y = y, z = z)) +
geom_hex_tern(binwidth = 0.05, colour = "black", aes(value = wt)) +
facet_wrap(~Fact2)
最佳答案
我有一个可行的解决方案,尽管我不禁认为我已经完成了艰难的工作。
最初,由于您指出当要绘制大量 bin 时问题就会消失,所以我尝试尝试绘制大量额外的不可见六边形,并添加一个控制 alpha(透明度)的虚拟变量。不幸的是,当您使用分箱数据时,这不起作用。
我还尝试在不同的图层中创建不可见的六边形。这是可能的,但是在不同的层中具有不可见的六边形意味着它们不再将可见层中的六边形强制为正确的形状。
发生的另一个想法是尝试 2 x 2 刻面,因为我认为这会使六边形的形状正常化。它没有。
最后,我决定只“破解”ggplot,获取十六进制格罗布并在算术上更改它们的顶点。数学拉伸(stretch)本身很简单,因为六角格子已经正确居中并且正好是所需高度的一半;因此,我们只取 y 坐标并从它们的值的两倍中减去它们范围的平均值。
棘手的部分是首先获得 grobs。首先,您需要将 ggplot 转换为 grobs 表(ggtern 有自己的功能来执行此操作)。这很简单,但 gTable 是一个深度嵌套的 S3 对象,因此要找到提取正确元素问题的通用解决方案是很棘手的。以正确的格式将它们放回原处很复杂,需要嵌套 mapply
职能。
然而,既然这已经完成,逻辑都可以包含在一个函数中,该函数只接受 ggplot 作为输入,然后用拉伸(stretch)的 hex grobs 绘制版本(同时还默默地返回一个 gTable,以防你想用它做任何其他事情)
fix_hexes <- function(plot_object)
{
# Define all the helper functions used in the mapply and lapply calls
cmapply <- function(...) mapply(..., SIMPLIFY = FALSE)
get_hexes <- function(x) x$children[grep("hex", names(x$children))]
write_kids <- function(x, y) { x[[1]]$children <- y; return(x)}
write_y <- function(x, y) { x$y <- y; return(x)}
write_all_y <- function(x, y) { gList <- mapply(write_y, x, y, SIMPLIFY = F)
class(gList) <- "gList"; return(gList) }
write_hex <- function(x, y) { x$children[grep("hex", names(x$children))] <- y; x; }
fix_each <- function(y) { yval <- y$y
att <- attributes(yval)
yval <- as.numeric(yval)
yval <- 2 * yval - mean(range(yval))
att -> attributes(yval)
return(yval)}
# Extract and fix the grobs
g_table <- ggtern::ggplot_gtable(ggtern::ggplot_build(plot_object))
panels <- which(sapply(g_table$grobs, function(x) length(names(x)) == 5))
hexgrobs <- lapply(g_table$grobs[panels], get_hexes)
all_hexes <- lapply(hexgrobs, function(x) x[[1]]$children)
fixed_yvals <- lapply(all_hexes, lapply, fix_each)
# Reinsert the fixed grobs
fixed_hexes <- cmapply(write_all_y, all_hexes, fixed_yvals)
fixed_grobs <- cmapply(write_kids, hexgrobs, fixed_hexes)
g_table$grobs[panels] <- cmapply(write_hex, g_table$grobs[panels], fixed_grobs)
# Draw the plot on a fresh page and silently return the gTable
grid::grid.newpage()
grid::grid.draw(g_table)
invisible(g_table)
}
gg <- ggtern(dat, aes(x = x, y = y, z = z)) +
geom_hex_tern(binwidth = 0.05, colour = "black", aes(value = wt)) +
facet_wrap(~Fact2)
plot(gg)
fix_hexes(gg)
关于r - ggtern - 刻面时扭曲的 hex bin 大小和形状,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/59924066/
bin、bin/、bin/*和bin/**有什么区别我的 .gitignore 文件?我一直在使用 bin/,但正在查看 other .gitignore files (在 eclipse file
给定 n 个无限容量的箱子,我想将 m 件元素装入其中(每个元素都有特定的重量),同时最小化最重箱子的重量。 这不是传统的垃圾箱包装/背包问题,其中垃圾箱的容量有限,而您试图尽量减少使用的垃圾箱数量;
Closed. This question is off-topic。它当前不接受答案。 想改善这个问题吗? Update the question,所以它是用于堆栈溢出的on-topic。 7年前关
我一直在寻找一个问题的解决方案,这个问题显然比我最初想象的更不寻常。 Optaplanner 看起来很有前途,但由于我对 Java 相对缺乏经验,所以我想在深入研究之前调查一下这是否完全不可能。 我正
我有一个琐碎的问题。我有一个非常大的 df 有很多列。我正在尝试找到最有效的方法来对具有不同 bin 大小的所有列进行 bin 并创建一个新的 df。这是一个仅对单个列进行分箱的示例: import
我想以这样的方式对数字列 (var) 进行分类,使每个分类中的行数大致相同。我的附加要求是该列中的一个(唯一)值不能分配给多个 bin。例如,如果 var 列中的值 1 分配给 bin 1,则不允许将
我在 centos (rhel 7)_ 上使用 make 命令和 gcc 7.1 通过代码进行编译,但遇到了以下错误: /bin/sh:/bin: 是一个目录 which sh 返回/usr/bin/
/usr/bin/ld: cannot find -ldlib /usr/bin/ld: cannot find -lcblas /usr/bin/ld: cannot find -llapack 在
我进行了一项眼动追踪实验,试图检测两个区域(感兴趣区域,名为“代理”和“患者”的 AOI)的注视分布。我将整个时间划分为时间段,例如得到以下列表: Stimulus Participant A
我正在尝试替换 whoami带有 ~/.local/bin/ 中的脚本的命令.有没有办法让我的 whoami 获得优先权,这样当我运行 whoami 时,我的脚本就会运行? 最佳答案 这就是我的 ~/
我的项目结构是这样的: . ├── Cargo.lock ├── Cargo.toml └── src ├── bin │ └── other.rs ├── main.rs
我正在开发一个小型图书馆应用程序,它以这种格式存储技术手册: 目前,我正在尝试将库的内容保存并根据用户的需要加载到 bin 文件中。 但是,当我尝试加载库文件时,唯一的变化是“-1”被打印到控制台。此
我试图忽略 Web 项目的 bin 文件夹,但包含该 bin 文件夹中的 .refresh 文件。 这是我的 .gitignore 中的内容: [Bb]in/ #Allow .refresh file
ipv6_hdr__f_next_header_cp: coverpoint this.ipv6_hdr.ipv6_f_next_header iff (this.has_ipv6_header){
今天有人给我发了一个以 #: 开头的脚本,谷歌搜索后我没有找到任何答案。 即使脚本有效,我想知道那是什么意思。 最佳答案 哇!这让我想起了很多记忆! 回到 1980 年代和 90 年代初期,有两种基本
我使用这个 ksh 函数将“1-Jan-2011”格式转换为“1.1.2011”。 #!/bin/ksh ##---- function to convert 3 char month into nu
我在 c# winform 项目中使用 sql-server compact 数据库。 如果我查看构成解决方案的文件,我可以在以下两个文件夹中看到 exe 和 sdf 文件的副本: /bin/Debu
这个问题与我上一个问题不同。我正在通过以下代码使用 facetgrid 打印直方图。 import numpy as np import pandas as pd import seaborn as
我有一个整数需要根据概率分布分成 bin。例如,如果我有 N=100 对象进入 [0.02, 0.08, 0.16, 0.29, 0.45] 那么你可能会得到 [1, 10, 20 , 25, 44]
我在寻找使用 Jenkins 运行 Appium 的脚本时阅读了以下脚本 #!/bin/bash --login killall -9 "iPhone Simulator" &> /dev/null
我是一名优秀的程序员,十分优秀!