R 更改图例标题将断开ggplot2中的图例颜色

我正在尝试更改我的ggplot上的传奇标题。这里有两个例子（部分来自于）；第一个是使用

sf

包，这是我真正使用的。第二个方案是没有似乎有同样问题的一揽子方案

使用

sf

，我想要的是：

cities <- tibble::tribble(
  ~ lon,    ~ lat,    ~ name,      ~ pop,
  5.121420, 52.09074, "Utrecht",   311367,
  6.566502, 53.21938, "Groningen", 189991,
  4.895168, 52.37022, "Amsterdam", 779808 
) %>% sf::st_as_sf(coords = c("lon", "lat"), crs = 4326)

lines_sfc <- sf::st_sfc(list(
  sf::st_linestring(rbind(cities$geometry[[1]], cities$geometry[[2]])),
  sf::st_linestring(rbind(cities$geometry[[2]], cities$geometry[[3]]))
))

lines <- sf::st_sf(
  id = 1:2,
  size = c(10,50),
  geometry = lines_sfc,
  crs = 4326
)

ggplot() + 
  geom_sf(aes(colour = pop, size=pop), data = cities)

其中：

传奇不再是渐变，为什么

如果您没有

sf

，那么

geom\u条也会发生同样的情况：

ggplot() + 
  geom_bar(aes(x=name, y=pop, colour = pop), stat="identity", data = cities)

给出：


而这:

ggplot() + 
  geom_bar(aes(x=name, y=pop, colour = pop), stat="identity", data = cities) + 
  guides(colour=guide_legend(title="New color"))

给出：


有没有办法只改变传说的标题而不是整个故事

我的会话信息：

R version 3.4.3 (2017-11-30)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows Server >= 2012 x64 (build 9200)

Matrix products: default

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252    LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C                           LC_TIME=English_United States.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] sp_1.2-6           rgeos_0.3-26       ggplot2_2.2.1.9000 dplyr_0.7.4        sf_0.6-1          

loaded via a namespace (and not attached):
 [1] Rcpp_0.12.14           pillar_1.0.1           compiler_3.4.3         git2r_0.19.0           plyr_1.8.4            
 [6] bindr_0.1              viridis_0.4.0          class_7.3-14           tools_3.4.3            digest_0.6.13         
[11] viridisLite_0.2.0      memoise_1.1.0          tibble_1.4.1           gtable_0.2.0           lattice_0.20-35       
[16] pkgconfig_2.0.1        rlang_0.1.6.9002       cli_1.0.0              DBI_0.7                rstudioapi_0.6        
[21] rgdal_1.2-16           curl_2.8.1             bindrcpp_0.2           gridExtra_2.3          e1071_1.6-8           
[26] withr_2.1.1.9000       httr_1.3.1             knitr_1.18             devtools_1.13.3        classInt_0.1-24       
[31] grid_3.4.3             glue_1.1.1             R6_2.2.2               udunits2_0.13          magrittr_1.5          
[36] scales_0.5.0.9000      RStudioShortKeys_0.1.0 units_0.5-1            assertthat_0.2.0       colorspace_1.3-2      
[41] labeling_0.3           utf8_1.1.3             lazyeval_0.2.1         munsell_0.4.3          crayon_1.3.4    

您可以调用色标，只需指定名称
+labs（color=“your title”）
？如果您使用
guide\u colorbar（）
而不是
guide\u legend（）
这两种方法都有效，谢谢！您的解决方案和@Nate解决方案都有效。就像他们说的，“有多种方法可以剥猫皮…”，谢谢！
R version 3.4.3 (2017-11-30)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows Server >= 2012 x64 (build 9200)

Matrix products: default

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252    LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C                           LC_TIME=English_United States.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] sp_1.2-6           rgeos_0.3-26       ggplot2_2.2.1.9000 dplyr_0.7.4        sf_0.6-1          

loaded via a namespace (and not attached):
 [1] Rcpp_0.12.14           pillar_1.0.1           compiler_3.4.3         git2r_0.19.0           plyr_1.8.4            
 [6] bindr_0.1              viridis_0.4.0          class_7.3-14           tools_3.4.3            digest_0.6.13         
[11] viridisLite_0.2.0      memoise_1.1.0          tibble_1.4.1           gtable_0.2.0           lattice_0.20-35       
[16] pkgconfig_2.0.1        rlang_0.1.6.9002       cli_1.0.0              DBI_0.7                rstudioapi_0.6        
[21] rgdal_1.2-16           curl_2.8.1             bindrcpp_0.2           gridExtra_2.3          e1071_1.6-8           
[26] withr_2.1.1.9000       httr_1.3.1             knitr_1.18             devtools_1.13.3        classInt_0.1-24       
[31] grid_3.4.3             glue_1.1.1             R6_2.2.2               udunits2_0.13          magrittr_1.5          
[36] scales_0.5.0.9000      RStudioShortKeys_0.1.0 units_0.5-1            assertthat_0.2.0       colorspace_1.3-2      
[41] labeling_0.3           utf8_1.1.3             lazyeval_0.2.1         munsell_0.4.3          crayon_1.3.4    

ggplot() + 
  geom_sf(aes(colour = pop, size=pop), data = cities) +
  scale_color_continuous(name = 'newname')