ggplot(a[a$modelo=='miroc6',]) +
    geom_sf(aes(fill=as.factor(dec30)), col=NA) +
    scale_fill_manual(values=cores_zarc_risco) +
    geom_sf(data=uf, fill=NA)

Exemplo de uso ``` ggplot(a[a$modelo=='miroc6',]) + geom_sf(aes(fill=as.factor(dec30)), col=NA) + scale_fill_manual(values=cores_zarc_risco) + geom_sf(data=uf, fill=NA) ```