Error in scale$guide == "none" :

raw_point <- list(geom_point(data = df_point, 
                                       mapping = aes(x = .data[["x_assign"]], 
                                                     y = .data[["exp"]], color = .data[[group.by]]), 
                                       size = pt.size, alpha = 0.8), scale_color_manual(values = palette_scp(df[[group.by]], 
                                                                                                             palette = point_palette, palcolor = point_palcolor)), 
                            scale_fill_manual(values = palette_scp(df[[group.by]], 
                                                                   palette = point_palette, palcolor = point_palcolor), 
                                              guide = guide_legend(override.aes = list(alpha = 1, 
                                                                                       size = 3), order = 1)), new_scale_color(), 
                            new_scale_fill())


p <- ggplot() + 
      scale_x_continuous(trans = x_trans, expand = expansion(c(0, 0))) + 
      scale_y_continuous(expand = expansion(c(0.1,  0.05))) + 
      raw_point