R几何点-调色板后数据消失

rn0zuynd 于 2023-04-09 发布在其他

关注(0)|答案(1)|浏览(119)

我有这个几何点，它显示了康涅狄格州30个城镇的销售比率，效果很好，这是图表。

一旦我添加了一个调色板（最后一行代码），它将删除22个数据行。* 删除21个包含缺失值的行（geom_point（））*
有什么想法吗

这是密码

sales %>% group_by(Town) %>%
    summarise(ratio_mean = mean(Sales.Ratio)) %>%
    arrange(-ratio_mean) %>%
    subset(ratio_mean < 3 & ratio_mean >0.1) %>%
    head(30) %>%
    ggplot(aes(x = ratio_mean, y = reorder(Town, ratio_mean), color=Town)) +
    geom_point(size=4) +
    theme_bw() +
    theme(panel.grid.major.x=element_blank(),
          panel.grid.minor.x=element_blank(),
          panel.grid.major.y=element_line(linetype="dashed",color="gray"),
          legend.position = "none")+
    labs(x="Sales Ratio",y="Town", 
         title="Top 30 Towns with the highest Sales Ratio",
         subtitle = "Units that were sold over the listed price") +
    scale_color_brewer(palette = 'Greens')

来源：https://stackoverflow.com/questions/75921872/r-geom-point-data-disappearing-after-color-palette

1条答案

按热度按时间

mwngjboj1#

正如@GeorgeSavva在他的评论中指出的那样，每个啤酒商调色板都有最大数量的颜色。规避这个限制的一个选择是使用colorRampPalette，通过插值允许创建一个调色板，通常可以使用任何数量的颜色，然后可以传递给scale_color_manual。

library(ggplot2)

dat <- data.frame(
  x = 1:30
)
dat$y <- factor(dat$x)

pal_color <- colorRampPalette(scales::brewer_pal(palette = "Greens")(9))(30)

ggplot(dat, aes(x, y, color = y)) +
  geom_point(size = 8) +
  scale_color_manual(values = pal_color) +
  guides(color = "none")

赞(0）回复(0）举报 2023-04-09

我来回答

R几何点-调色板后数据消失

1条答案

相关问题

热门标签

最新问答