읽을 수 없게하는 범례 itens가 너무 많음

Question

213 개의 Ecoregions가있는 SpatialPolygonsDataFrame을 플롯합니다. 제 문제는 전설을 실제로 읽을 수있는 방식으로 전설을 구성 할 수 없다는 것입니다. 나는 2 일 동안 이것을 시도해 보았고, 정말 어리 석다. 누군가이 목표를 달성하는 방법에 대한 힌트를 줄 수 있는지 궁금하다. 내가지도의 오른쪽에있는이 전설을 넣어 관리했습니다

, 또한 너무 오버레이됩니다 ... 내가 tryed했습니다 : 이제

#### Download and unzip ecoregions #### 
#the reference for this ecoregions data: https://doi.org/10.1093/biosci/bix014 

#Don't forget to change the path to a path of your own 
dir_eco<-"C:/Users/thai/Desktop/Ecologicos/w2" 


download.file("https://storage.googleapis.com/teow2016/Ecoregions2017.zip", 
       file.path(paste0(dir_eco,"/","Ecoregions2017.zip",sep=""))) 


unzip("Ecoregions2017.zip") 

#Read this shapefile 
#install.packages("rgdal") 
library(rgdal) 
ecoreg_shp<- readOGR("Ecoregions2017.shp") 

#Crop to a smaller extent 
xmin=-120; xmax=-35; ymin=-60; ymin2=-40; ymax=35 
limits2 <- c(xmin, xmax, ymin2, ymax) # Just from mexico to Uruguay. 
ecoreg_shp<-crop(ecoreg_shp,limits2) 

# Color palette - one color for each attribute level 
n <- 213 
color = grDevices::colors()[grep('gr(a|e)y', grDevices::colors(), invert = T)] 
# pie(rep(1,n), col=sample(color, n)) #just to take a look at the colors 
col_samp<-sample(color, n) 
ecoreg_shp@data$COLOR<-col_samp #put the colors in the polygons data frame 

#Plot 
png(file="29_ecoreg2.png", width=3000, height=3000, units="px", res=300) 
par(mar=c(50,0.3,1.5,0),pty="s") 
spplot(ecoreg_shp, zcol = "ECO_NAME", col.regions = ecoreg_shp@data$COLOR, 
     colorkey = list(space = "bottom", height = 1)) 
dev.off() 

이이 음모 같은 모습입니다

이

#Plot the map with no legend 
spplot(ecoreg_shp, zcol = "ECO_NAME", col.regions = ecoreg_shp@data$COLOR, 
     colorkey = FALSE) 
#Now, just the legend 
legend("bottom",legend=ecoreg_shp@data$ECO_NAME,fill=ecoreg_shp@data$COLOR, 

는 = 3)

그러나 작동하지 않습니다 .. 내가 메시지를 받게에는 NcoI ... colorkey = FALSE을하고 별도의 legend 설정이 plot.new has not been called yet 나는 전설에 많은 것을 할 수 있었다. 그러나 나는 그것을 좋게 만들 수 없다. .. 전설 itens가 긴 그림의 2 또는 3 개의 열에서지도를 뒤덮는 것처럼 ... 실제로 전혀 형식에 문제가 있습니다. 나는 단지 좋은 인물을 만들고 싶었습니다. 누구든지 어떤 방향으로 나를 가리킬 수 있습니까? 나는 ggplot2를 배우려고 노력하고 있지만, 어려운 패키지를 사용하기에는 아직 충분히 알지 못합니다. 미리 감사드립니다. 팁을 주시면 감사하겠습니다.

Answer 1

주석에서 언급했듯이 색상을 구분할 수는 없습니다. 여러 생태계 분류를 정의하고 유사한 생태 지역에 대해 유사한 색상을 선택해야합니다.
그럼에도 불구하고 다음과 같이이 긴 범례에 대해서만 이미지를 만들 수 있습니다.

library(sp) 
library(rgdal) 

n <- 213 

dsn <- system.file("vectors", package = "rgdal")[1] 
ecoreg_shp <- readOGR(dsn = dsn, layer = "cities") 
ecoreg_shp <- ecoreg_shp[1:n,] 

# Color palette - one color for each attribute level 
color <- grDevices::colors()[grep('gr(a|e)y', grDevices::colors(), invert = T)] 
col_samp <- sample(color, n) 
ecoreg_shp@data$COLOR <- col_samp #put the colors in the polygons data frame 
ecoreg_shp@data$ECO_NAME <- ecoreg_shp@data$NAME 

# Define a grid to plot the legend 
grid.dim <- c(45, 5) 
ecoreg_shp@data$ROW <- rep(rev(1:grid.dim[1]), by = grid.dim[2], length.out = n) 
ecoreg_shp@data$COL <- rep(1:grid.dim[2], each = grid.dim[1], length.out = n) 

# Plot the legend 
png(file = "legend.png", 
    width = 21, height = 29.7, 
    units = "cm", res = 300) 
par(mai = c(0, 0, 0, 0)) 

plot(ecoreg_shp@data$COL, 
    ecoreg_shp@data$ROW, 
    pch = 22, cex = 2, 
    bg = ecoreg_shp@data$COLOR, 
    xlim = c(0.8, grid.dim[2] + 1), 
    xaxs = "i") 
text(ecoreg_shp@data$COL, 
    ecoreg_shp@data$ROW, 
    ecoreg_shp@data$ECO_NAME, 
    pos = 4, cex = 0.75) 

dev.off() 

결과 : 일반적인 주석으로