Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/67.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 某些数据帧缺少缩放填充蒸馏器ggplot图例,而其他数据帧则没有_R_Ggplot2_Legend - Fatal编程技术网

R 某些数据帧缺少缩放填充蒸馏器ggplot图例,而其他数据帧则没有

R 某些数据帧缺少缩放填充蒸馏器ggplot图例,而其他数据帧则没有,r,ggplot2,legend,R,Ggplot2,Legend,我是R新手,所以我还没有弄清楚如何将相同的更改应用于多个数据帧,并从每个结果数据帧进行绘图。我通过在R标记文件中逐个插入每个输入csv来实现这一点 我在输入文件中使用相同的起始格式创建了5个数据帧(此处仅显示3个),使用相同的操作集来获得类似于此的“可绘制”数据帧(此处仅显示顶部的几行)。只有“统计”不同: Df1 HAtype: Stat Segment NullbyObs id stars 49 H4 HA 0.297083314 1 *** 25 H13 H

我是R新手,所以我还没有弄清楚如何将相同的更改应用于多个数据帧,并从每个结果数据帧进行绘图。我通过在R标记文件中逐个插入每个输入csv来实现这一点

我在输入文件中使用相同的起始格式创建了5个数据帧(此处仅显示3个),使用相同的操作集来获得类似于此的“可绘制”数据帧(此处仅显示顶部的几行)。只有“统计”不同:

Df1 HAtype:

    Stat    Segment NullbyObs   id  stars
49  H4  HA  0.297083314 1   ***
25  H13 HA  0.09558552  2   ***
57  H5  HA  0.150072798 3   ***
9   H10 HA  0.184111297 4   ***
33  H2  HA  0.182582378 5   ***
81  H9  HA  0.341334025 6   ***
73  H7  HA  0.256536424 7   ***
65  H6  HA  0.260052443 8   ***
41  H3  HA  0.504939556 9   **
1   H1  HA  0.260205358 10  ***
17  H11 HA  0.503464461 11  **
56  H4  PB2 0.184828306 12  ***
32  H13 PB2 0.298094661 13  **
64  H5  PB2 0.199737211 14  ***
第二季:

    Stat    Segment NullbyObs   id  stars
25  spring migration    HA  0.309504658 1   ***
17  overwintering   HA  0.423053354 2   *
9   breeding    HA  0.712614687 3   .
1   autumn migration    HA  0.586144734 4   .
32  spring migration    PB2 0.318294644 5   ***
24  overwintering   PB2 0.450508305 6   ***
16  breeding    PB2 0.636836392 7    
Df3主机类型:

    Stat    Segment NullbyObs   id  stars
17  OD  HA  0.447867405 1   *
25  YAG HA  0.192755193 2   ***
9   MD  HA  0.337331563 3   **
1   BMG HA  0.42653249  4   *
24  OD  PB2 0.271704769 5   ***
32  YAG PB2 0.260490477 6   ***
16  MD  PB2 0.446735462 7   **
我使用此代码从每个数据帧绘制:

plot <- ggplot(data = plotdata,
       aes(x = Segment, y = Stat, fill = NullbyObs)) + 
       geom_tile() +
       scale_fill_distiller(palette = "RdYlBu", trans = "log10") +
       labs(y=NULL, x=NULL, fill="Null/Obs") +
       geom_text(aes(label=stars), color="black", size=4) +
       coord_equal()

plot
plotAdd
breaks=seq(0,1,0.1)
内部
scale\u fill\u蒸馏器

plotdata <- Df2_Season
p <- ggplot(data = plotdata , aes(x = Segment, y = Stat, fill = NullbyObs)) + 
     geom_tile() +
     scale_fill_distiller(palette = "RdYlBu", trans = "log10", 
                          breaks=seq(0,1,0.1), labels=seq(0,1,0.1)) +
     labs(y=NULL, x=NULL, fill="Null/Obs") +
     geom_text(aes(label=stars), color="black", size=4) +
     coord_equal()
p

plotdata啊,非常感谢!我尝试删除日志转换(trans=“log10”),然后不需要中断来显示图例。我不知道为什么,但很高兴解决了它。对我来说,这看起来是一个bug,所以我发布了一个问题: