SpatialPlot can not plot with manual colors

[Secretloong]

When I used older version, my scripts worked OK.

> packageVersion('Seurat')
[1] ‘4.0.1’
> packageVersion('ggplot2')
[1] ‘3.3.3’

while I used newer version, I got the errors and no manual colors having been transformed to SpatialPlot.

> packageVersion('Seurat')
[1] ‘4.1.1’
> packageVersion('ggplot2')
[1] ‘3.3.6’

My scripts:

Idents(object) <- object$annotation
require(RColorBrewer)
col <- c(brewer.pal(9, "Set1")[c(1:5, 7, 6, 8, 9)])
SpatialPlot(object, stroke=NA,image.alpha = 0.5, pt.size.factor=14, cols=col)

My errors:

ERROR while rich displaying an object: Error in `f()`:
! Insufficient values in manual scale. 7 needed but only 0 provided.

Traceback:
1. tryCatch(withCallingHandlers({
 .     if (!mime %in% names(repr::mime2repr)) 
 .         stop("No repr_* for mimetype ", mime, " in repr::mime2repr")
 .     rpr <- repr::mime2repr[[mime]](obj)
 .     if (is.null(rpr)) 
 .         return(NULL)
 .     prepare_content(is.raw(rpr), rpr)
 . }, error = error_handler), error = outer_handler)
2. tryCatchList(expr, classes, parentenv, handlers)
3. tryCatchOne(expr, names, parentenv, handlers[[1L]])
4. doTryCatch(return(expr), name, parentenv, handler)
5. withCallingHandlers({
 .     if (!mime %in% names(repr::mime2repr)) 
 .         stop("No repr_* for mimetype ", mime, " in repr::mime2repr")
 .     rpr <- repr::mime2repr[[mime]](obj)
 .     if (is.null(rpr)) 
 .         return(NULL)
 .     prepare_content(is.raw(rpr), rpr)
 . }, error = error_handler)
6. repr::mime2repr[[mime]](obj)
7. repr_text.default(obj)
8. paste(capture.output(print(obj)), collapse = "\n")
9. capture.output(print(obj))
10. withVisible(...elt(i))
11. print(obj)
12. print.patchwork(obj)
13. build_patchwork(plot, plot$layout$guides %||% "auto")
14. lapply(x$plots, plot_table, guides = guides)
15. FUN(X[[i]], ...)
16. plot_table.ggplot(X[[i]], ...)
17. ggplotGrob(x)
18. ggplot_gtable(ggplot_build(x))
19. ggplot_build(x)
20. ggplot_build.ggplot(x)
21. lapply(data, scales_map_df, scales = npscales)
22. FUN(X[[i]], ...)
23. unlist(lapply(scales$scales, function(scale) scale$map_df(df = df)), 
  .     recursive = FALSE)
24. lapply(scales$scales, function(scale) scale$map_df(df = df))
25. FUN(X[[i]], ...)
26. scale$map_df(df = df)
27. f(..., self = self)
28. lapply(aesthetics, function(j) self$map(df[[j]]))
29. FUN(X[[i]], ...)
30. self$map(df[[j]])
31. f(..., self = self)
32. self$palette(n)
33. f(...)
34. abort(glue("Insufficient values in manual scale. {n} needed but only {length(values)} provided."))
35. signal_abort(cnd, .file)
Error in file(con, "rb"): cannot open the connection
Traceback:
plot without title

Could you help me to solve this problem? THX!

[Secretloong]

I have resolved this problem.
As ggplot2 said in their scale-manual.r, it's better use a named vector to colors. so I named the my manual color vector col with the Idents(). then it works OK.

Idents(object) <- object$annotation
require(RColorBrewer)
col <- c(brewer.pal(9, "Set1")[c(1:5, 7, 6, 8, 9)])
col <- head(col, length(unique(Idents(object))))
###important
names(col) <- unique(Idents(object))
###
SpatialPlot(object, stroke=NA,image.alpha = 0.5, pt.size.factor=14, cols=col)

It's a strange problem, and not elegant. I suggest Seurat could deal with this by default.