我希望将反应时间的平均值(或其他函数)绘制为xy平面中目标位置的函数.作为测试数据:
library(ggplot2)
xs <- runif(100,-1,1)
ys <- runif(100,-1,1)
rts <- rnorm(100)
testDF <- data.frame("x"=xs,"y"=ys,"rt"=rts)
Run Code Online (Sandbox Code Playgroud)
我知道我可以这样做:
p <- ggplot(data = testDF,aes(x=x,y=y))+geom_bin2d(bins=10)
Run Code Online (Sandbox Code Playgroud)
我希望能够做的是同样的事情,但绘制每个bin中的数据的函数而不是计数.我可以这样做吗?
或者我是否需要首先在R中生成条件均值(例如drt <- tapply(testDF$rt,list(cut(testDF$x,10),cut(testDF$y,10)),mean)),然后绘制?
谢谢.
我希望这不是重复的,但我不能在互联网上搜索更长的时间。我真的很想生成一个热图,但颜色条要在对数刻度上。我不一定要将我的值转换为日志,而是更改颜色条,使其从0, 0.01, 0.1, 1, 10, 100. 我包含了一个 reprex,它显示了我正在使用的数据示例,下面是我希望重述的论文中的一个数字。
library(tidyverse)
my_data <- tibble(sample_name = rep(c("A", "B", "C"), 3),
sample_genus = c(rep("Genus1", 3), rep("Genus2", 3),rep("Genus3", 3)),
sample_abundance = c(0,5,45,0.3,0.01,15,1,8,89))
ggplot(data = my_data, aes(x = sample_name,
y = sample_genus,
fill = sample_abundance)) +
geom_tile() +
scale_fill_viridis_c(limits = c(0, 100))
Run Code Online (Sandbox Code Playgroud)

由reprex 包(v0.3.0)于 2019 年 8 月 16 日创建