R 几何图形条和几何图形点条件颜色

我有一个简单的geom_条和geom_点，并希望根据数据中的值为条和点着色。我的代码目前如下：

```df <- (Test3)

ggplot(Test3,aes(ques,diff1,subj))+
  geom_bar(stat = "identity")+
  geom_point(aes(x=ques, y= diff2))+
  facet_grid(~subj)

---

``df=ci，如果diff1=1.96则为红色，如果tt则为红色，可以这样实现：

根据您的条件，使用例如
dplyr:：mutate
和
dplyr:：case_（当
将这些新变量映射到
color
或
fill
上
使用
scale\u color/fill\u identity
库（ggplot2）
图书馆（dplyr）
测试3%
变异(
填充=当(
diff1>=ci~“绿色”，
diff1=1.96~“绿色”，
tt<1.96~“红色”，
真~“灰色”
)
)
ggplot（测试3、aes（问题、差异1、主题））+
几何坐标（aes（填充=填充））+
几何点（aes（x=ques，y=diff2，color=color））+
比例\颜色\标识（）+
比例填充标识（）+
平面网格（~subc）
#>警告：删除了包含缺失值（几何点）的2行。


数据

Test3这很有帮助，谢谢。我快到了。我正在努力为Test3 df添加过滤器。如果可能的话，您能告诉我如何将筛选器参数与mutate组合起来吗？类似于
过滤器（Test3，subm==“geog”| subm==“hist”）
。当我添加这个时，它似乎抵消了颜色参数，你可以像这样添加过滤器<代码>测试3%过滤器（sub==“geog”| sub==“hist”）%%>%变异（…
谢谢，非常有帮助
```# A tibble: 8 x 9
  subj   ques    `%` `sect%`  diff1    ci last_y  diff2    tt
  <chr>  <chr> <dbl>   <dbl>  <dbl> <dbl>  <dbl>  <dbl> <dbl>
1 geog   q1     82.1    83.6  -1.49  10.1     78   4.14  2.1 
2 geog   q2     80      50    30     10.1     54  26    -1.28
3 hist   q1     92.9    83.6   9.21  10.1     NA  NA    NA   
4 hist   q2     85.7    82.8   2.94  10.1     NA  NA    NA   
5 Sports q1     73.8    82.4  -8.61  10.1     95 -21.2   2.97
6 Sports q2     69.2    81.8 -12.6   10.1     12  57.2  -2.59
7 sci    q1     78.6    85.2  -6.66  10.1     87  -8.43 -3   
8 sci    q2     78      50    28     10.1     55  23     2