Entfernen Sie die Form aus der Legende von kombiniertem geom_line () und geom_pont ()

2
Walshe_d 2020-03-17 13:01.

Ich möchte ein Diagramm von geom_line () erstellen, das von einer Variablen (Var1) gefärbt wird, und dann geom_point () mit Formen entsprechend einer anderen Variablen (Var2) mit den gleichen Farben wie geom_line () zeichnen.

Nachdem ich viel darüber gelesen habe, aber nichts gefunden habe, was ich als dasselbe Problem interpretieren könnte, habe ich Folgendes versucht:

 ggplot(data, aes(X, Y)) +
 geom_line(aes(color = Var1)) +
 geom_point(data = subset(data, Var2 != 0), aes(shape = Var2, colour = Var1), size = 3) + 
 scale_color_manual(values=c("#7CAE00", "#00BFC4", "#000000", "#C77CFF")) +
 scale_x_continuous(breaks=seq(0,30,5)) +
 theme_bw()

Was zu dem oben genannten führt. Das Problem mit diesem Diagramm ist, dass in der zweiten Legende beide IDs Kreise sind, wenn einer ein Kreis und einer ein Dreieck ist. Ich möchte im Idealfall, dass es sich nur um eine farbige Linie ohne Formen handelt.

Ich habe auch Folgendes versucht:

 ggplot(data, aes(X, Y)) +
 geom_line(aes(color = Var1)) +
 geom_point(data = subset(data, Var2 != 0), aes(shape = Var2), size = 3) + 
 scale_color_manual(values=c("#7CAE00", "#00BFC4", "#000000", "#C77CFF")) +
 scale_x_continuous(breaks=seq(0,30,5)) +
 theme_bw()  

Dieses Problem bei diesem Diagramm besteht darin, dass die Formen im Diagramm nicht durch Farbe ausgefüllt werden.

Das sind meine Daten.

dput(data)
structure(list(X = c(0L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 
10L, 11L, 12L, 13L, 14L, 15L, 0L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 
8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 
21L, 22L, 23L, 24L), Y = c(1L, 1L, 1L, 2L, 4L, 13L, 18L, 19L, 
21L, 24L, 34L, 43L, 70L, 90L, 129L, 169L, 1L, 3L, 3L, 3L, 3L, 
4L, 21L, 79L, 157L, 229L, 323L, 470L, 655L, 889L, 1128L, 1701L, 
2036L, 2502L, 3089L, 3858L, 4636L, 5883L, 7375L, 9172L, 10149L
), Var1 = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c("", 
"ID1", "ID2"), class = "factor"), Var2 = structure(c(2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 4L, 2L, 2L), .Label = c("", "0", "Point1", "Point2"
), class = "factor")), row.names = c(NA, -41L), class = "data.frame")

1 answers

2
Matias Andina 2020-03-17 13:20.

Wie wäre es damit

ggplot(data, aes(X, Y))+
geom_line(aes(color = Var1)) +
  geom_point(data = subset(data, Var2 != 0), aes(shape = Var2, color=Var1), size = 3) + 
  scale_color_manual(values=c("#7CAE00", "#00BFC4", "#000000", "#C77CFF")) +
  scale_x_continuous(breaks=seq(0,30,5)) +
  theme_bw()+
  guides(colour = guide_legend(override.aes = list(shape = NA)))

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.

Welche Utility-Apps installieren Sie auf jedem neuen Computer?

Welche Utility-Apps installieren Sie auf jedem neuen Computer?

Foto von Ade Olu Eletu /nappy Es gibt ein paar Programme, die jeder kennt, um sie einem neuen Computer hinzuzufügen: Chrome, Spotify, Dropbox, einige Arbeits-Apps wie Excel oder Photoshop. Aber viele von uns haben auch unsere bevorzugten Hilfs-Apps und Dienstprogramme, um unseren Workflow anzupassen.

Jugend-Hockey-Trainer gefeuert für völlig verdammte Bonkers Pregame Rant

Jugend-Hockey-Trainer gefeuert für völlig verdammte Bonkers Pregame Rant

Bild über Spittin 'Chiclets / Facebook Die Littleton Hockey Association hat einen Trainer aus ihrem Bantam-Reiseteam entfernt, nachdem in den sozialen Medien ein Video aufgetaucht ist, das nur als eines der unglaublichsten und ungehindertesten Motivations-Rants vor dem Spiel in der Geschichte des Jugendhockeys bezeichnet werden kann. Hockey und in der Tat Sport: „Du wirst sie drei schlagen - keine! Ich will sehen, wie du deine Hände in die Ärsche dieser Jungs steckst und sie wie eine verdammte Marionette arbeitest! “ Ein Tippgeber leitete eine E-Mail von Brian TenEyck, Director of Hockey Operations bei Littleton Youth Hockey, an die Eltern weiter und erläuterte die offizielle Antwort auf das Video: Ich kann nur davon ausgehen, dass die Littleton Hawks dieses Spiel mit 998-0 gewonnen haben.

Ihre lächerlich tollen Porsche 911 und Aston Martin DB11 Wallpaper sind da

Ihre lächerlich tollen Porsche 911 und Aston Martin DB11 Wallpaper sind da

Wir freuen uns, wenn Ihre Leser uns Ihre Weekend Wallpaper-Beiträge senden. Aber Sie haben uns in letzter Zeit zu viele verdammte BMWs geschickt! Hör zu, Freund, ich bin super froh, dass du deinen M4 genießt.

So erstellen Sie einen Globus von Grund auf neu

So erstellen Sie einen Globus von Grund auf neu

Zeit, Geduld, Zeit, Engagement und Zeit sind nur einige der Dinge, die Peter Bellerby brauchte, um Bellerby & Co. Globemakers zu gründen und anschließend zu betreiben, eines der wenigen Unternehmen auf der Erde, das noch Globen von Hand herstellt.

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

-11 聯軍 國 聯軍 - 台灣 還沒 能 有 太陽

-11 聯軍 國 聯軍 - 台灣 還沒 能 有 太陽

2 練習 part2- 沒 沒 的 台灣 x 日本 x 德國 x 奧地利.

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.

Language