如何修复scale_color_manual错误？ （使用ggplot2和ggrepel）

Question

我一直在使用ggplot2和ggrepel一段时间，我的一个故事有问题（它工作得很好，但突然停止工作，我不知道为什么）。

基本上我正在用ggrepel和ggplot2做一个wordcloud，包括我数据的每一行的3种不同颜色。为此，我使用了scale_color_manual。有时，数据没有这3种颜色，这就是我使用限制的原因。但现在，它不起作用，只有当我删除scale_color_manual的代码时才有效。

数据

data.df <- read.table(header = TRUE, text = 
"row Palabra.Final Frecuencia  NPS INDUSTRIA VA IntervaloNPS
49          años        258 8.63    Bancos SI     Amarillo
50      atención       1557 8.32    Bancos SI     Amarillo
51      atendido        387 8.95    Bancos SI     Amarillo
52        bancos       1748 7.70    Bancos SI     Amarillo
53          bien        674 9.24    Bancos SI        Verde
54          buen        258 9.27    Bancos SI        Verde
55         buena        902 9.31    Bancos SI        Verde
56       cajeras        219 7.82    Bancos SI     Amarillo
57      clientes       1042 7.65    Bancos SI     Amarillo
58        cobros        348 6.18    Bancos SI         Rojo
59     corriente        241 7.55    Bancos SI     Amarillo
61       crédito        956 7.74    Bancos SI     Amarillo
62       cuentas       1240 7.87    Bancos SI     Amarillo
64     ejecutivo       1471 7.82    Bancos SI     Amarillo
66         gente        287 7.81    Bancos SI     Amarillo
69   Información        473 8.09    Bancos SI     Amarillo
70       interés        556 7.12    Bancos SI     Amarillo
71      internet        507 8.47    Bancos SI     Amarillo
72    mantención        218 6.85    Bancos SI         Rojo
74         nunca        566 8.43    Bancos SI     Amarillo
75        pagina        539 8.15    Bancos SI     Amarillo
76         plata        295 7.39    Bancos SI     Amarillo
77      problema       1475 8.76    Bancos SI     Amarillo
78      producto        238 8.29    Bancos SI     Amarillo
79        rápida        297 9.08    Bancos SI        Verde
80     seguridad        232 9.42    Bancos SI        Verde
81        seguro        308 8.44    Bancos SI     Amarillo
82      servicio        652 7.60    Bancos SI     Amarillo
83       siempre        712 8.97    Bancos SI     Amarillo
84    sucursales        343 8.33    Bancos SI     Amarillo
85       tarjeta        798 8.16    Bancos SI     Amarillo
86         tasas        236 8.31    Bancos SI     Amarillo
87        tiempo        255 7.70    Bancos SI     Amarillo")

代码

library(ggplot2)
library(ggrepel)
ggplot(data.df) + 
aes(x = 1, y = 1, size = Frecuencia, label = Palabra.Final, color=IntervaloNPS) +
geom_text_repel(segment.size = 0, force = 80) +
scale_size(range = c(2, 15), guide = FALSE) + scale_color_manual(name="NPS",values=c("0 - 6"= "red","7 - 8" = "yellow","9 - 10" ="green"),limits = c("0 - 6","7 - 8", "9 - 10")) + 
scale_y_continuous(breaks = NULL) +
scale_x_continuous(breaks = NULL) +
labs(x = '', y = '') +
geom_point(size=0) +
guides(colour = guide_legend(override.aes = list(size=3,linetype=0)))

（实际上这段代码给了我geom_point的警告）

我尝试过很多不同的东西，比如：

• 要使用这些代码：http://ggplot2.tidyverse.org/reference/scale_manual.html 这些代码工作正常，但我不知道为什么在这种情况下它没有。
• 分离除ggplot2和ggrepel之外的所有包。
• 关闭并打开R。

我不知道如何解决这个问题。如果有人可以提供帮助，那就太棒了！ 谢谢

Answer 1

limits需要引用当前级别，而不是您要使用的标签。使用labels设置标签。

ggplot(data.df) + 
aes(x = 1, y = 1, size = Frecuencia, label = Palabra.Final, color=IntervaloNPS) +
geom_text_repel(segment.size = 0, force = 80) +
scale_size(range = c(2, 15), guide = FALSE) + 
scale_color_manual(name="NPS",values=c("Rojo"= "red","Amarillo" = "yellow","Verde" ="green"),limits = c("Rojo", "Amarillo", "Verde"), labels = c("0 - 6","7 - 8", "9 - 10")) + 
scale_y_continuous(breaks = NULL) +
scale_x_continuous(breaks = NULL) +
labs(x = '', y = '') +
geom_point(size=0) +
guides(colour = guide_legend(override.aes = list(size=3,linetype=0)))