PROSAGA码农传奇-时空索引-ggplot2 scale_fill_gradient（）函数不改变点颜色R.

<div class =“post-text”itemprop =“text”>
  <P>
    如评论中所述，您必须将填充更改为颜色。以下是我如何实现它：
  </p>
   <pre>
    <code>
      library(tidyverse)
table = tibble(long = c(15.28, 15.29, 15.3, 15.31, 15.32), lat = c(-4.4, -4.39, -4.38, -4.37, -4.36), consumption = c(NA, 3, 54, 6, 8))

##Changed here to color
mapping = aes_string(x = 'long', y = 'lat', color = 'consumption')

# define breaks, limits, colors

low = 'seashell'
high = 'tan3'
breaks = c(0, max(na.omit(table)[['consumption']]))
limits = breaks

# plot

ggplot() +
    # points 
    geom_point(mapping = mapping,
               data = table, alpha = 0.7, size = 4) +
    # point colors
    #Change here to aesthetics = color
    scale_color_gradient(low = low, high = high, na.value = 'darkgrey', guide = 'colorbar', aesthetics = 'color'
                        , breaks = breaks, limits = limits) +
    # title
    ggtitle('consumption') +
    # title formatting
    theme(plot.title = element_text(color = "red", size = 10, face = "bold", hjust=0),
          legend.position="bottom",
          legend.text=element_text(size=9),
          legend.title=element_text(size=9)) +
    # legend
    guides(fill=guide_colorbar(title='consumption')) +
    # get rid of axes, etc.
    theme(axis.line = element_blank(),
          axis.text = element_blank(),
          axis.ticks = element_blank()) +
    xlab('') +
    ylab('') +
    # make legend correct
    theme(legend.box = 'vertical') +
    # add max/min corresponding to map
    xlim(c(15.28, 15.38)) +
    ylim(c(-4.41, -4.30))

</code>
  </pre>
  <P>
    <a href="https://i.stack.imgur.com/P4Odx.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/P4Odx.png”alt =“在此处输入图片说明”/>
    </A>
  </p>
</DIV>