Как изменить цвет меток для меток цифр?

Question

Как изменить цвет меток для меток цифр? цвета («красный», «синий») для (треугольник, квадрат)

    ggplot(plasmacicatriz, aes(Carbono, Nitrogeno)) +
      geom_errorbar(aes(xmin = -14.7, xmax = -13.9, y = 16.7), width = 0.1) +
      geom_errorbar(aes(xmin = -16.1, xmax = -14.6, y = 14.6), width = 0.1) +
      geom_errorbar(aes(ymin = 16.5, ymax = 17.0, x = -14.3), width = 0.1) +
      geom_errorbar(aes(ymin = 14.2, ymax = 15.1, x = -15.3), width = 0.1) +
      geom_point(aes(-14.3, 16.7, color = Cicatriz == "Abierta"), size = 3) +
      geom_point(aes(-15.3, 14.6, color = Cicatriz=="Cerrada"), size = 3) +
      scale_color_manual(name = "Cicatríz umbilical", values = c("red", "blue"), labels = c("Abierta", "Cerrada")) +
      xlim(c(-17, -13)) +
      ylim(c(13.5, 17.5)) +
      xlab(expression(paste(delta^{13}, "C(‰)"))) +
      ylab(expression(paste(delta^{15}, "N(‰)")))

введите описание изображения здесь

Я пробовал с этим

```{r}
  ggplot(plasmacicatriz, aes(Carbono, Nitrogeno)) +
  geom_errorbar(aes(xmin = -14.7, xmax = -13.9, y = 16.7), width = 0.1) +
  geom_errorbar(aes(xmin = -16.1, xmax = -14.6, y = 14.6), width = 0.1) +
  geom_errorbar(aes(ymin = 16.5, ymax = 17.0, x = -14.3), width = 0.1) +
  geom_errorbar(aes(ymin = 14.2, ymax = 15.1, x = -15.3), width = 0.1) +
  geom_point(aes(-14.3, 16.7, shape = Cicatriz == "Abierta"), size = 3) +
  geom_point(aes(-15.3, 14.6, shape = Cicatriz=="Cerrada"), size = 3) +
  scale_shape_manual(name = "Cicatríz umbilical", labels = c("Abierta", "Cerrada"), values = c(0,1)) +
  xlim(c(-17, -13)) +
  ylim(c(13.5, 17.5)) +
  xlab(expression(paste(delta^{13}, "C(‰)"))) +
  ylab(expression(paste(delta^{15}, "N(‰)")))
```

но результат таков, оба элемента имеют одинаковую фигуру, и я не знаю, как это исправить: введите описание изображения здесь

Answer 1

Может быть, вы можете попытаться передать "Cicatriz" в качестве аргумента color и shape в aes:

ggplot(plasmacicatriz, aes(Carbono, Nitrogeno, color = Cicatriz, shape = Cicatriz)) +
  geom_errorbar(aes(xmin = -14.7, xmax = -13.9, y = 16.7), width = 0.1) +
  geom_errorbar(aes(xmin = -16.1, xmax = -14.6, y = 14.6), width = 0.1) +
  geom_errorbar(aes(ymin = 16.5, ymax = 17.0, x = -14.3), width = 0.1) +
  geom_errorbar(aes(ymin = 14.2, ymax = 15.1, x = -15.3), width = 0.1) +
  geom_point(aes(x = c(-14.3,-15.3), y = c(16.7,14.6)), size = 3) +
  scale_color_manual(name = "Cicatríz umbilical", values = c("red", "blue"), labels = c("Abierta", "Cerrada")) +
  scale_shape_manual(name = "Cicatríz umbilical", values = c(16,17), labels = c("Abierta", "Cerrada"))+
  xlim(c(-17, -13)) +
  ylim(c(13.5, 17.5)) +
  xlab(expression(paste(delta^{13}, "C(‰)"))) +
  ylab(expression(paste(delta^{15}, "N(‰)")))

Отвечает ли он на ваш вопрос?

Если нет, пожалуйста, предоставьте воспроизводимый пример вашего набора данных plasmacicatriz, как описано в этой ссылке: Как создать отличный воспроизводимый пример R