How can I remove the extra legend which results from this R code?
I have been reading for hours, but still cannot fix this issue and it is killing me. Below is my code:
ggmap(Yak_base) +
stat_bin2d(
aes(x = Yak_dat[,2], y = Yak_dat[,1], colour = Yak_Ind, fill = Yak_Ind),
size=.10, bins = 60, alpha = 1/2, data = Yak_dat_fort
) +
geom_polygon(aes(x = Yak_coord[,1], y = Yak_coord[,2]), data = Yak_coord,
colour = 'black', fill = NA, alpha = 0.4,
size = 0.75
) +
labs(x = "Longitude", y = "Latitude") + ggtitle("Yakima Subbasin") +
scale_fill_discrete(
name = "Indicator for Snow", labels = c("No Snow","Snow")
)