如何消除ggplot地图图例科学计数法并解决round_any报错？

我来帮你搞定这个图例显示科学计数法的问题，咱们先理清楚问题根源，再给出几个实用的解决方案：

问题原因 #

你用cut()把年份数值转换成离散区间后，ggplot默认生成的标签会把年份（比如1980）转成科学计数格式（1.98e+03）。而你尝试用scale_fill_discrete(labels = comma)时，comma()函数是用来格式化数值的，但这里的标签是字符型的区间字符串，所以就触发了round_any找不到对应方法的错误。至于scale_fill_continuous没用，是因为你的fill变量已经是离散的因子类型，不是连续数值了。

解决方案一：在cut()时直接自定义标签（最推荐） #

最省心的方式就是在切割数值的时候，直接指定好清晰的区间标签，从根源上避免科学计数的问题：

library(ggplot2)
library(dplyr)

# 定义切割区间和对应的可读标签
year_breaks <- c(1961, 1980, 1990, 2000, 2010, 2016)
year_labels <- c("1961-1980", "1981-1990", "1991-2000", "2001-2010", "2011-2016")

break_year_map_data_nona %>% 
  ggplot(aes(long, lat, group = group, 
             fill = cut(value, breaks = year_breaks, labels = year_labels))) +
  geom_polygon() +
  coord_map(xlim = c(-180, 180)) +
  theme_void() +
  labs(title = "", fill = "Break year")

这样生成的图例直接就是你想要的年份区间格式，完全不用后续处理。

解决方案二：通过scale_fill_discrete手动修正标签 #

如果你不想修改cut()的代码，也可以在scale层写一个自定义函数，把科学计数的字符串转换成正常年份：

# 自定义标签修正函数
fix_year_labels <- function(labels) {
  sapply(labels, function(label) {
    # 提取标签里的数字部分，转成数值后格式化为整数
    nums <- as.numeric(gsub("[^0-9.e+-]", "", label))
    formatted_nums <- format(nums, scientific = FALSE, trim = TRUE)
    # 拼接成可读的区间
    paste0(formatted_nums[1], "-", formatted_nums[2])
  })
}

break_year_map_data_nona %>% 
  ggplot(aes(long, lat, group = group, 
             fill = cut(value, c(1961, 1980, 1990, 2000, 2010, 2016)))) +
  geom_polygon() +
  scale_fill_discrete(labels = fix_year_labels, name = "Break year") +
  coord_map(xlim = c(-180, 180)) +
  theme_void() +
  labs(title = "")

这个函数会自动解析每个区间标签里的科学计数数字，转换成正常的整数年份，再拼接成清晰的区间格式。

总结 #

优先推荐第一种方法，在cut()阶段就定义好标签，既简洁又能保证图例的可读性。第二种方法适合已经生成了切割后的数据，不想重新处理的场景。

内容的提问来源于stack exchange，提问作者Robin Lindström