Подсветка точки в geom_jitter - PullRequest
Новая
       40

Подсветка точки в geom_jitter

0 голосов
/ 13 февраля 2020

У меня есть набор данных с несколькими видами, которые должны быть визуализированы через geom_jitter. У каждого вида есть одно наблюдение, которое я хочу выделить красной точкой (т.е. это исследование). Однако я не смог найти полезного объяснения и надеюсь, что кто-нибудь здесь сможет помочь исправить это.

Данные имеют 7 переменных и 65 наблюдений. Этими 7 переменными являются Род Видов Энергии Органика CN CP Reference

Переменная «Ссылка» содержит много разных вещей, среди прочего «это исследование».

Код выглядит следующим образом:

`` 

ggplot(Genus,aes(x=Genus,y=Organics,colour=Genus))+
  geom_jitter(position=position_jitter(0.15),alpha=1,size=2)+
  labs(x="\nGenus",y="AFDW % DW\n")+
  theme(axis.title.x=element_text(size=18),
  axis.text.x=element_blank(),
  axis.title.y=element_text(size=18),
  legend.title=element_text(colour="black",size=14),
  legend.text=element_text(face="italic",colour="black",size=14),
  axis.text.y=element_text(size=14,colour="black"),
  axis.ticks=element_blank())
p23

``

У кого-нибудь есть идея, как выделить точки, относящиеся к «этому исследованию», на каждом графике разброса видов?

1 Ответ

1 голос
/ 07 марта 2020

Без каких-либо подходящих примеров я не могу более точно указать c, как этого добиться. Вот как вы можете добиться этого на некоторых фиктивных данных, как упомянуто в комментарии: 

library(ggplot2)

df <- data.frame(
  Genus = rep(LETTERS[1:2], each = 50),
  Organics = rnorm(100),
  Reference = sample(LETTERS, 100, replace = T),
  stringsAsFactors = FALSE
)

# Pick out 2 points in across groups to be highlighted
df$Reference[rpois(1, 20) + c(0, 50)] <- "This Study"

ggplot(df, aes(Genus, Organics)) +
  geom_jitter(position = position_jitter(0.15),
              aes(colour = ifelse(Reference == "This Study", 
                                  "Highlight", "Don't Highlight"))) +
  labs(colour = "Highlight?")

enter image description here

Вы можете выбрать цвета подсветки, добавив + scale_colour_manual(values = c("my_colour_1", "my_colour_2"))

...