Условие ifelse() не работает правильно для ggplot

У меня есть данные, как показано ниже, которые я хочу построить с помощью ggplot:

> C
State        C1           C2
1   var1 -5.3458708  2.4959909437
2   var2 -5.1344963  2.4385834964
3   var3 -5.0972730  2.8425796581
4   var4  0.3743154 -0.2244166193
5   var5  0.4102937 -0.6597997849
6   var6  0.2252697 -0.2681201215
7   var7 -2.1813244  0.8744499423
8   var8 -2.1879480  0.9329252014
9   var9 -2.4635253  1.0975828789
10 var10 -3.1579603  1.3480216825
11 var11 -3.3255364  1.4333042550
12 var12 -3.0378333  1.2389625856
13 var13  4.4218140 -0.0897113458
14 var14  5.1222106  0.8949353025
15 var15  5.6032688  0.4346656081
16 var16  3.5892269 -0.1845360437
17 var17  3.9025834  0.0008319954
18 var18  3.6995580  0.1258706884
19 var19  0.4185548  0.5899289156
20 var20  0.4571535  0.1595539675
21 var21  0.6146784 -0.0438042841
22 var22  8.5871265  2.6205985329
23 var23  9.3172001  3.0164859344
24 var24  9.1885141  2.9251166107

Я хочу построить эти данные таким образом, чтобы, если С1 имеет большее значение, чем С2, точка данных на графике отображается зеленым цветом, а если С2 имеет большее значение, чем С1, то точка данных на графике отображается красным цветом. Код для достижения этого приведен ниже:

p <- ggplot(C, aes(C1, C2,label = State)) + 
  modelr::geom_ref_line(h = 0) +
  modelr::geom_ref_line(v = 0) +
  geom_point(aes(color= ifelse(c(abs(C$C1)) > c(abs(C$C2)), "green", "red"))) +
  guides(fill = guide_legend(reverse=TRUE)) +
  xlab("First Principal Component") +
  ylab("Second Principal Component") + 
  ggtitle("First Two Principal Components of my data")

p2 <- p + geom_text_repel(segment.color = NA)

Но условие ifelse() работает противоположно, то есть дает красный цвет, где C1 имеет большее значение, чем C2, и наоборот, как показано на графике ниже, также это можно увидеть из легенды: сюжет

Также я хочу изменить заголовок легенды на "Предполагаемый заголовок" и пометить как "Столбец1" для точек данных из C1 и "Столбец2" для точек данных из C2. Как это возможно?

Я не пробовал ifelse() в aes() в первый раз, когда он использовался в пространственной экологии и R, а также в этом вопросе переполнения стека.

Во-вторых, этот пост отличается от того, который приведен здесь для возможного дублирования, потому что этот вопрос применяется к данным временного ряда, сюжет отличается и там даны многочисленные цвета. Я мог бы также предложить третий столбец для цветов, подобный показанному здесь, но я хотел найти эффективное решение.

Источник

1 ответ

Решение

Возможно, вы могли бы попробовать что-то вроде этого:

library(tidyverse)
C %>% 
  mutate(color = if_else(abs(C1) > abs(C2), "Condition 1", "Condition 2")) %>% 
  ggplot(aes(x = C1, y = C2, label = State, color = color)) +
  geom_point() +
  scale_color_manual(
    values = c("Condition 1" = "green", "Condition 2" = "red"),
    name = "New title"
  ) +
  ggrepel::geom_text_repel(color = "black")

Операция if_else - это векторизованная команда, которая создает новую переменную на основе условий, которые вы описали выше. Запуск его до операции построения графика немного облегчает визуализацию происходящего.

Источник
Другие вопросы по тегам