Ist es möglich, ein Legendenfeld hinzuzufügen, das den in geom_text geschriebenen Text enthält?

3
Cyndi Kaulitz 2019-10-11 18:39.

Ich möchte ein NMDS in R mit mehreren Variablen zeichnen. Ich habe bereits Größe, Form und Farbe in geom_point verwendet. Aber ich habe eine andere Variable, also habe ich sie als numerische Werte in geom_text aufgenommen. Das Problem ist, dass ich zeigen muss, was jede Zahl in einer anderen Legende ist. Ist es möglich, ohne die Größen-, Form- und Farblegenden zu ändern?

Folgendes habe ich versucht

data1<-data.frame("Replicas" = c(1,2,3,1,2,3,1,2,3,1,2,3,1,2,3,1,2,3,1,2,3,1,2,3),
 "Part" = c("leg","leg","leg","arm","arm","arm","leg","leg","leg","arm","arm","arm","leg","leg","leg","arm","arm","arm","leg","leg","leg","arm","arm","arm"),
 "Species" = c("Spc1","Spc1","Spc1","Spc1","Spc1","Spc1","Spc2","Spc2","Spc2","Spc2","Spc2","Spc2","Spc3","Spc3","Spc3","Spc3","Spc3","Spc3","Spc4","Spc4","Spc4","Spc4","Spc4","Spc4"),
 "Habitat" = c("Cali","Cali","Cali","Cali","Cali","Cali","Delhi","Delhi","Delhi","Delhi","Delhi","Delhi","Fiji","Fiji","Fiji","Fiji","Fiji","Fiji","Fiji","Fiji","Fiji","Fiji","Fiji","Fiji"),
 "NMDS1" = c(-0.556,-0.001,-0.074,-0.352,-0.019,0.111,-0.235,-0.663,-0.34,-0.39,-0.41,-0.669,0.176,0.038,-0.038,0.158,-0.177,-0.19,0.462,0.496,0.348,0.472,0.502,0.42),               "NMDS2" = c(-0.085,0.035,0.134,-0.124,0.055,0.064,0.22,-0.133,0.061,0.285,-0.082,-0.425,0.686,0.587,0.494,0.46,0.29,0.309,0.183,0.16,-0.242,0.1,-0.067,-0.339)
)
data2 <- as.integer(as.factor(data1$Habitat)) #To assign numerical values to each factor included in Habitat ggplot(data1, aes(NMDS1, NMDS2)) + geom_point(aes(colour=factor(data1$Part), size=factor(data1$Replicas), shape=factor(data1$Species))) + 
 geom_text(aes(x=NMDS1,y=NMDS2,label=data2))

Ich möchte "Habitat" in das Legendenfeld aufnehmen und zeigen, dass 1 Cali, 2 Delhi und 3 Fidschi sind. Kann mir bitte jemand helfen?

1 answers

5
eipi10 2019-10-12 02:21.

Unten ist ein Hack, um eine Textlegende zu erhalten. Zunächst einige Änderungen an Ihrem Code:

  • Der Datenrahmenname sollte nicht innerhalb angepasst werden aes. Es sollten nur die bloßen Spaltennamen verwendet werden.
  • Ich habe eine hab.numSpalte erstellt data2, anstatt einen separaten Vektor mit den Zahlen zu haben. Die Verwendung eines separaten Vektors ist gefährlich, da dadurch die Zuordnung von Spalten aus einem bestimmten Datenrahmen zu den verschiedenen Plotästhetiken unterbrochen wird. Es könnte in einer bestimmten Situation "funktionieren", aber es ist spröde und fehleranfällig.
  • Die data.frameFunktion konvertiert Zeichenspalten automatisch in Faktor (es sei denn, Sie fügen das Argument hinzu stringsAsFactors=FALSE), sodass diese Spalten beim Aufruf von ggplot nicht in Faktor konvertiert werden müssen.

Okay, zurück zum eigentlichen Problem: Wir werden uns hab.numder fillÄsthetik zuordnen, da wir fillnichts anderes verwenden. Das wird eine Legende schaffen. Dann setzen wir die Legendenbeschriftungen auf die gewünschten Werte und entfernen die Punktmarkierungen in der Fülllegende, da wir nur Textbeschriftungen möchten.

library(tidyverse)

data1 = data1 %>% 
  mutate(hab.num = factor(recode(Habitat, Cali=1, Delhi=2, Fiji=3)))

ggplot(data1, aes(NMDS1, NMDS2)) + 
  geom_point(aes(colour=Part, size=factor(Replicas), shape=Species, fill=hab.num)) + 
  geom_text(aes(x=NMDS1,y=NMDS2,label=hab.num)) +
  scale_fill_discrete(labels=paste(levels(data1$hab.num), "=", levels(data1$Habitat))) +
  guides(fill=guide_legend(keywidth=unit(0,"mm"), override.aes=list(size=0, colour=NA))) +
  labs(size="Replicas", fill="Habitat") +
  theme_classic()

Related questions

MORE COOL STUFF

Cate Blanchett schlief nach 3 gemeinsamen Tagen mit ihrem Ehemann und ist 25 Jahre später immer noch mit ihm verheiratet

Cate Blanchett schlief nach 3 gemeinsamen Tagen mit ihrem Ehemann und ist 25 Jahre später immer noch mit ihm verheiratet

Cate Blanchett widersetzte sich typischen Dating-Ratschlägen, als sie ihren Ehemann traf.

Warum Michael Sheen ein gemeinnütziger Schauspieler ist

Warum Michael Sheen ein gemeinnütziger Schauspieler ist

Michael Sheen ist ein gemeinnütziger Schauspieler, aber was genau bedeutet das?

Hallmark-Star Colin Egglesfield sorgt für spannende Fan-Begegnungen bei RomaDrama Live! [Exklusiv]

Hallmark-Star Colin Egglesfield sorgt für spannende Fan-Begegnungen bei RomaDrama Live! [Exklusiv]

Hallmark-Star Colin Egglesfield sprach über spannende Fan-Begegnungen bei RomaDrama Live! plus sein INSPIRE-Programm auf der Convention.

Warum Sie „Northern Exposure“ nicht online streamen können

Warum Sie „Northern Exposure“ nicht online streamen können

Sie müssen einen Blu-ray- oder DVD-Player abstauben, um zu sehen, warum Northern Exposure zu einer der beliebtesten Shows der 90er Jahre wurde.

Where in the World Are You? Take our GeoGuesser Quiz

Where in the World Are You? Take our GeoGuesser Quiz

The world is a huge place, yet some GeoGuessr players know locations in mere seconds. Are you one of GeoGuessr's gifted elite? Take our quiz to find out!

Werfen Sie diese Pappröhren nicht weg! 10 Möglichkeiten, sie wiederzuverwenden

Werfen Sie diese Pappröhren nicht weg! 10 Möglichkeiten, sie wiederzuverwenden

Werfen Sie Ihr Papierhandtuch, Toilettenpapier und Geschenkpapierrollen nicht in den Müll. Geben Sie ihnen stattdessen mit einem dieser 10 Hacks ein zweites Leben.

Schlafen Fische?

Schlafen Fische?

Es ist schwer vorstellbar, dass Nemo im Great Barrier Reef ein paar Zs fängt. Aber Fische brauchen Ruhe. Schlafen sie so wie wir?

Spenden Sie Ihr Haar, um unser Wasser sauber zu halten

Spenden Sie Ihr Haar, um unser Wasser sauber zu halten

Haarteile aus Salons und persönliche Spenden können als Matten wiederverwendet werden, die Ölverschmutzungen aufsaugen und zum Schutz der Umwelt beitragen.

Angesichts der bevorstehenden Umweltkatastrophen entscheiden sich viele für eine kinderlose Zukunft

Angesichts der bevorstehenden Umweltkatastrophen entscheiden sich viele für eine kinderlose Zukunft

Bild einer deutschen Entbindungsstation über Getty. In den letzten zehn Jahren waren die Geburtenraten in der U.

Der Leiter des Verbraucherschutzes von Präsident Trump schert sich nicht um die Untersuchung der Equifax-Verletzung

Der Leiter des Verbraucherschutzes von Präsident Trump schert sich nicht um die Untersuchung der Equifax-Verletzung

Foto: Getty In jeder normalen Gesellschaft würden die Spitzenmanager von Equifax vor den Kongress gezerrt, viele ins Gefängnis geworfen, das Unternehmen geschlossen und alle Vermögenswerte des Unternehmens beschlagnahmt. Aber wir leben nicht in einer normalen Gesellschaft, was heute noch deutlicher geworden ist.

Wir machen diesen Februar alle Liegestütze

Wir machen diesen Februar alle Liegestütze

Bild aus der Staatsbibliothek von Victoria. Bereit für das nächste Kapitel der Lifehacker Fitness Challenge? Im Januar haben wir an Klimmzügen gearbeitet, auf welcher Ebene auch immer für jeden von uns.

Kool-Aid, Steak-Umms oder Ramen-Nudeln: Nur 1 kann überleben. Welche wählen Sie aus?

Kool-Aid, Steak-Umms oder Ramen-Nudeln: Nur 1 kann überleben. Welche wählen Sie aus?

Oben: iStock; unten: Steak-umm Fleisch YouTube-Screenshot Sie sind zuverlässige Grundnahrungsmittel, obwohl sie mehr mit tatsächlichen Grundnahrungsmitteln gemeinsam haben als jede Lebensmittelgruppe. Köstliche Optionen an der Kreuzung von "Das ist höllisch lecker" und "Warten".

Tudor Dixon gewinnt Michigan GOP Primary und trifft nun auf die amtierende Demokratin Gretchen Whitmer

Tudor Dixon gewinnt Michigan GOP Primary und trifft nun auf die amtierende Demokratin Gretchen Whitmer

Tudor Dixon hat am Dienstag die Vorwahlen von Michigan zum Gouverneur gewonnen, nachdem er eine späte Bestätigung des ehemaligen Präsidenten Donald Trump erhalten hatte

Nicky Hilton Forced to Borrow Paris' 'I Love Paris' Sweatshirt After 'Airline Loses All [My] Luggage'

Nicky Hilton Forced to Borrow Paris' 'I Love Paris' Sweatshirt After 'Airline Loses All [My] Luggage'

Nicky Hilton Rothschild's luggage got lost, but luckily she has an incredible closet to shop: Sister Paris Hilton's!

Kate Middleton verbringt einen Tag am Wasser in London, plus Jennifer Lopez, Julianne Hough und mehr

Kate Middleton verbringt einen Tag am Wasser in London, plus Jennifer Lopez, Julianne Hough und mehr

Kate Middleton verbringt einen Tag am Wasser in London, plus Jennifer Lopez, Julianne Hough und mehr. Von Hollywood bis New York und überall dazwischen, sehen Sie, was Ihre Lieblingsstars vorhaben!

17-Jähriger erstochen, während 4 weitere bei einem Messerangriff am Wisconsin River verwundet wurden

17-Jähriger erstochen, während 4 weitere bei einem Messerangriff am Wisconsin River verwundet wurden

Die Ermittler prüfen, ob sich die Gruppe und der Verdächtige vor dem Angriff kannten

Start- und Landebahnen

Start- und Landebahnen

Spätsommer und Herbst sind nostalgische Jahreszeiten. Straßenlaternen werfen ihr Licht über regennasse Straßen, und die Blätter unter den Füßen – gedämpft rot-orange im Schatten der Dämmerung – erinnern an vergangene Tage.

Stellen Sie sich vor, Sie erstellen eine Inhaltsstrategie, die tatsächlich KONVERTIERT. Es ist möglich.

Stellen Sie sich vor, Sie erstellen eine Inhaltsstrategie, die tatsächlich KONVERTIERT. Es ist möglich.

Im Jahr 2021 ermutige ich Sie, alles zu überdenken, was Sie über die Kunden, die Sie bedienen, und die Geschichten, die Sie ihnen erzählen, wissen. Zurücktreten.

Ein Mammutverlust öffnete mein Herz für die Liebe

Ein Mammutverlust öffnete mein Herz für die Liebe

Am Tag des 9. Geburtstags von Felix The Cat erinnere ich mich an einen der größten Verluste meines Erwachsenenlebens – meine Sophie im Jahr 2013. Ich habe diesen Essay geschrieben und ihn kurz im Jahr 2013 auf dieser Plattform geteilt.

Wenn Sie nicht die Person sein können, die das Internet von Ihnen will

Wenn Sie nicht die Person sein können, die das Internet von Ihnen will

Ich hasse das Wort „Zugwrack“. Die Menschen trösten sich mit ihrem eigenen moralischen Kompass und treffen dabei auf ein Urteil.

Language