Jak ładnie adnotować ggplot2 (Instrukcja)

Używając ggplot2 zwykle używam geom_text i czegoś podobnego position=jitter do opisywania moich działek.

Jednak-dla ładnej fabuły często uważam, że warto adnotować ręcznie. jak poniżej: 

data2 <- structure(list(type = structure(c(5L, 1L, 2L, 4L, 3L, 5L, 1L, 
2L, 4L, 3L, 5L, 1L, 2L, 4L, 3L, 5L, 1L, 2L, 4L, 3L), .Label = c("EDS", 
"KIU", "LAK", "MVH", "NA*"), class = "factor"), value = c(0.9, 
0.01, 0.01, 0.09, 0, 0.8, 0.05, 0, 0.15, 0, 0.41, 0.04, 0.03, 
0.52, 0, 0.23, 0.11, 0.02, 0.64, 0.01), time = c(3L, 3L, 3L, 
3L, 3L, 6L, 6L, 6L, 6L, 6L, 15L, 15L, 15L, 15L, 15L, 27L, 27L, 
27L, 27L, 27L), year = c(2008L, 2008L, 2008L, 2008L, 2008L, 2007L, 
2007L, 2007L, 2007L, 2007L, 2007L, 2007L, 2007L, 2007L, 2007L, 
2006L, 2006L, 2006L, 2006L, 2006L)), .Names = c("type", "value", 
"time", "year"), row.names = c(1L, 3L, 4L, 5L, 6L, 7L, 9L, 10L, 
11L, 12L, 13L, 15L, 16L, 17L, 18L, 19L, 21L, 22L, 23L, 24L), class = "data.frame")
ggplot(data2, aes(x=time, y=value, group=type, col=type))+
geom_line()+
geom_point()+
theme_bw()+
annotate("text", x=6, y=0.9, label="this is a wrong color")+
annotate("text", x=15, y=0.6, label="this is a second annotation with a wrong color")

Problem polega na tym, że nie mogę uzyskać koloru adnotacji tekstowych, aby pasował do koloru linii. Zakładam, że mogę to naprawić za pomocą skali ręcznej, ale mam nadzieję, że jest lepszy sposób?

 40
rggplot2
Author: Andreas, 2010-03-09
Source

2 answers

Jeśli używasz geom_text () zamiast annotate (), możesz przekazać kolor grupy do wykresu:

ggplot(data2, aes(x=time, y=value, group=type, col=type))+
geom_line()+
geom_point()+
theme_bw() +
geom_text(aes(7, .9, label="correct color", color="NA*")) +
geom_text(aes(15, .6, label="another correct color!", color="MVH"))

Więc używając annotate () wygląda to tak: alt text http://www.cerebralmastication.com/wp-content/uploads/2010/03/before.png

Następnie po użyciu geom_text () wygląda to tak: alt text http://www.cerebralmastication.com/wp-content/uploads/2010/03/after.png

 46
Author: JD Long,
Warning: date(): Invalid date.timezone value 'Europe/Kyiv', we selected the timezone 'UTC' for now. in /var/www/agent_stack/data/www/doraprojects.net/template/agent.layouts/content.php on line 54
2010-03-09 15:40:15

Miałem podobny problem i rozwiązałem go z JD Long answer. Jednak w wyniku aktualizacji ggplot2 do wersji 0.9.0 zauważyłem, że wszystkie wywołania geom_text()były nieco zamazane na działkach.

Dzięki kohske odkryłem, że ten kod 

ggplot(data2, aes(x=time, y=value, group=type, col=type))+
geom_line()+
geom_point()+
theme_bw() +
geom_text(aes(7, .9, label="correct color", color="NA*")) +
geom_text(aes(15, .6, label="another correct color!", color="MVH"))

Wykresy geom_text nrow(data2)razy!

Poprawnym sposobem dostarczania danych do geom_text jest budowanie innych danych.ramka zawierająca współrzędne, etykiety i kolory dla ciągów, które mają być wykreślone: 

data2.labels <- data.frame(
  time = c(7, 15), 
  value = c(.9, .6), 
  label = c("correct color", "another correct color!"), 
  type = c("NA*", "MVH")
  )

ggplot(data2, aes(x=time, y=value, group=type, col=type))+
  geom_line()+
  geom_point()+
  theme_bw() +
  geom_text(data = data2.labels, aes(x = time, y = value, label = label))
 59
Author: mbask,
Warning: date(): Invalid date.timezone value 'Europe/Kyiv', we selected the timezone 'UTC' for now. in /var/www/agent_stack/data/www/doraprojects.net/template/agent.layouts/content.php on line 54
2017-05-23 12:26:21