手动将图例添加到R/ggplot2图中，而不会干扰图 [英] Adding legend manually to R/ggplot2 plot without interfering with the plot

问题描述

问题:是否可以在与情节本身无关的情节中添加图例，并且-至关重要的-不会干扰情节中的颜色?

说明

我掌握了图例所需的所有信息.特别是，我具有颜色的十六进制代码，并且具有标签.我不在乎显示什么形状(线，点，以最简单的为准).

我希望这可以解决问题(这是一个非常简化的最小工作示例):

  the_colors<-c(#e6194b"，#3cb44b"，#ffe119"，#0082c8"，#f58231"，#911eb4"，#46f0f0"，#f032e6"，#d2f53c"，#fabebe"，#008080"，#e6beff"，#aa6e28"，#fffac8"，#800000"，#aaffc3"，#808000"，#ffd8b1"，#000080"，#808080"，#ffffff"，#000000")the_labels<-c("01"，"02"，"03"，"04"，"05"，"06"，"07"，"08"，"09"，"10")the_df<-data.frame("col1" = c(1，2，2，1)，"col2" = c(2，2，1，1，1)，"col3" = c(1,2,3，4))the_plot<-ggplot()+ geom_point(data = the_df，aes(x = col1，y = col2)，color = the_colors [[4]])the_plot<-the_plot +scale_color_manual("Line.Color"，values = the_colors [1:length(the_labels)]，标签= the_labels) 

不幸的是，它甚至不会显示图例.

按照规则进行操作，并在 aesthetics 元素内包含 color 参数，我可以得到它来显示图例.

  the_plot<-ggplot()+ geom_point(data = the_df，aes(x = col1，y = col2，color = the_colors [[4]])) 

但是，当然，它将不再接受作为 color 参数()传递的值，不再是严肃的，而是将其解释为某种标签并更改这些数据的颜色指向 the_colors 列表中的第一种颜色.同时，它只会在传说中包含这个，而似乎没有办法说服它也包含其他.

在其他语言中，这是如此简单.在R/ggplot2中，这似乎难以置信.

为什么要执行此操作:我想要一个不会干扰绘图中颜色的图例.有时这很不方便.并没有更深层的理由说明图例必须与绘图中的颜色混淆，只是这是在R/ggplot2中实现的方式.

方法:我希望可以通过将其视为传奇来轻松实现此目的.否则，可能会添加一个带有一些彩色点和一些文本的框，从而从头开始构建图例.

其他问题:还有很多其他问题在问同一件事.相反，答案的确提出了解决方案，以解决OP的具体问题(通常通过应用 melt()左右)，而不提供所问问题的解决方案(如何手动添加图例而不会弄乱)与情节).例如.(v0.3.0)创建于2020-03-28

Question: Is it possible to add a legend to a plot that has nothing to do with the plot itself and - crucially - will not interfere with the colors in the plot?

Explanation

I have all the information I should need for the legend. In particular, I have the hex codes of the colors and I have the labels. I do not care what shapes are shown (lines, points, whichever is easiest).

I was hoping this should do the trick (this is a very simplified minimal working example):

the_colors <- c("#e6194b", "#3cb44b", "#ffe119", "#0082c8", "#f58231", "#911eb4", "#46f0f0", "#f032e6", 
                "#d2f53c", "#fabebe", "#008080", "#e6beff", "#aa6e28", "#fffac8", "#800000", "#aaffc3", 
                "#808000", "#ffd8b1", "#000080", "#808080", "#ffffff", "#000000")
the_labels <- c("01", "02", "03", "04", "05", "06", "07", "08", "09", "10")

the_df <- data.frame("col1"=c(1, 2, 2, 1), "col2"=c(2, 2, 1, 1), "col3"=c(1, 2, 3, 4))

the_plot <- ggplot() + geom_point(data=the_df, aes(x=col1, y=col2), color=the_colors[[4]])

the_plot <- the_plot +
  scale_color_manual("Line.Color", values=the_colors[1:length(the_labels)],
                      labels=the_labels)

Unfortunately, it will not even show the legend.

Playing by the rules, and including the color argument inside the aesthetics element, I can get it to show a legend.

the_plot <- ggplot() + geom_point(data=the_df, aes(x=col1, y=col2, color=the_colors[[4]]))

But then, of course, it will not take the value passed as the color argument () serious any longer and will instead interpret it as some kind of a label and change the color of these data points to the first color in the the_colors list. At the same time, it will only include this one in the legend and there does not seem to be a way in hell to convince it also include the others.

In other languages, this is unbelievably easy. In R/ggplot2, this seems unbelievably hard.

Reason why I want to do this: I want a legend that does not interfere with the colors in my plot. This is sometimes very inconvenient. There is also no deeper reason that the legend must mess with the colors in the plot, just that this is how it is implemented in R/ggplot2.

Approach: I was hoping that there is a way to easily do this by still treating this as a legend. Failing that, it might be possible to add a box with some colored points and some text, thereby constructing a legend from scratch.

Other questions: There have been various other questions asking the same thing. The answers did instead suggest workarounds to solve the concrete problem of the OP (usually by applying melt() or so) without providing a solution to the question that was asked (how to add a legend manually without messing with the plot). E.g. here and here. This is not what I am interested in. I would like to know if I can add an arbitrary legend to an arbitrary plot, and, if yes, how.

Software: R 3.6.3, ggplot2 3.2.1

Edit (March 30 2020):

Solution: As described in @Tjebo's answer below, a legend that is reasonably independent from the plot and defines additional data series not shown in the plot can be created with scale_color_identity. With option #1 in the answer by @Tjebo, I could solve my immediate problem:

the_colors <- sort(c("#e6194b", "#3cb44b", "#ffe119", "#0082c8", "#f58231", "#911eb4", "#46f0f0", "#f032e6", 
            "#d2f53c", "#fabebe", "#008080", "#e6beff", "#aa6e28", "#fffac8", "#800000", "#aaffc3", 
            "#808000", "#ffd8b1", "#000080", "#808080"))

color_df <- data.frame(the_colors=the_colors[1:length(the_labels)], the_labels=the_labels)

the_df <- data.frame("col1"=c(1, 2, 2, 1), "col2"=c(2, 2, 1, 1), "col3"=c(1, 2, 3, 4))

the_plot <- ggplot() + 
    geom_point(data = color_df, aes(x = the_df$col1[[1]], y = the_df$col2[[1]], color = the_colors)) +
    scale_color_identity(guide = 'legend', labels = color_df$the_labels) 

the_plot <- the_plot +
  geom_point(data=the_df, aes(x=col1, y=col2), color=the_colors[[4]]) 

print(the_plot)

Explanation of the solution: More generally, as Tjebo explains, it separates the plot from the legend. The legend still needs a plot. This is built first with:

the_plot <- ggplot() + 
  geom_point(data = color_df, aes(x = the_df$col1[[1]], y = the_df$col2[[1]], color = the_colors)) +
  scale_color_identity(guide = 'legend', labels = color_df$the_labels)

The plot this creates still has the wrong color, but the points are chosen so that they are hidden by adding the plot I actually want to show in its appropriate color:

the_plot <- the_plot + 
  geom_point(data=the_df, aes(x=col1, y=col2), color=the_colors[[4]])

It is also flexible in that further data series can be added in any of the colors that are predefined in the the_colors variable:

the_plot <- the_plot +
  geom_point(data=the_df, aes(x=col1, y=col3), color=the_colors[[6]]) 

(Note: The data series can also be plotted at once if the color is defined as a third column in the data frame. I just wanted to point out that the solution is flexible and the plot can be modified at a later time without interfering with the legend or the colors of the data points that are already arranged in the plot.)

Edit 2 (March 30 2020), Additional Note: With this solution, the legend will sort the colors by their hex codes. I cannot begin to fathom why it would do that, but it does. So, in order for the colors in the legend to match the intended colors, the vector of hex codes should be sorted beforehand (as is done in the code above).

Unexpected behaviors like this would not be a concern in normal use of R and ggplot2 (where you let ggplot2 do the legend for you and restrict yourself strictly to what designs are intended to be used). This solution is basically a hack around how the legend is expected to be used in ggplot2 (unfortunately quite restrictive). As such, it is possible that this hack will break in future versions of ggplot or R.

解决方案

Maybe this is what you want.. Plot 1 is definitely not a clever and ggplot-y way of plotting (essentially, you are not visualising dimensions of your data). Below another option (plot 2)...

Below - creating new data frame and plot with scale_color_identity. Use a data point of your second plot, which comes second and overplots the first plot, so the point disappears.

library(tidyverse)
the_colors <- c("#e6194b", "#3cb44b", "#ffe119", "#0082c8", "#f58231", "#911eb4", "#46f0f0", "#f032e6", 
                "#d2f53c", "#fabebe", "#008080", "#e6beff", "#aa6e28", "#fffac8", "#800000", "#aaffc3", 
                "#808000", "#ffd8b1", "#000080", "#808080", "#ffffff", "#000000")

color_df <- data.frame(the_colors, the_labels = seq_along(the_colors))

the_df <- data.frame("col1"=c(1, 2, 2, 1), "col2"=c(2, 2, 1, 1), "col3"=c(1, 2, 3, 4))

#the_plot <- 
  ggplot() + 
    geom_point(data = color_df, aes(x = the_df$col1[[1]], y = the_df$col2[[1]], color = the_colors)) +
    scale_color_identity(guide = 'legend', labels = color_df$the_labels) +
    geom_point(data=the_df, aes(x=col1, y=col2), color=the_colors[[4]]) 

a more ggplot-y way

Now, the last plot is really peculiar, because as you say, "the colors have nothing to do with the plot" [with the data] and thus, showing them is absolutely pointless. What you actually want is to visualise dimensions of your data.

So what I believe and hope is that you have some link of those values to your plotted data. I am considering col3 to be the variable of choice, that will be represented by color.

First, create a named vector, so you can pass this as your values argument in scale_color. The names should be the values of your column which will be represented by color, in this case col3.

names(the_colors) <- str_pad(seq_along(the_colors), width = 2, pad = '0')

the_df <- data.frame("col1"=c(1, 2, 2, 1), "col2"=c(2, 2, 1, 1), "col3"=str_pad(c(1, 2, 3, 4), width = 2,pad='0'))

ggplot() + 
  geom_point(data=the_df, aes(x=col1, y=col2, color = col3))  +
  scale_color_manual(limits = names(the_colors), values = the_colors)

^{Created on 2020-03-28 by the reprex package (v0.3.0)}

这篇关于手动将图例添加到R/ggplot2图中，而不会干扰图的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！