在 ggR (RStoolbox) 中编辑标题和图例中的文本大小

Question

我正在使用 RStoolbox and ggplot2 绘制我的地图。但是，我也想更改标题和图例大小的文本大小。我正在为我的数据使用以下代码。

library("RStoolbox")
library("ggplot2")
library("raster")

data(lsat)
pts <- data.frame(x = c(624720, 627480), y = c(-414690, -411090))
endmembers <- extract(lsat, pts)
rownames(endmembers) <- c("water", "vegetation")

## Calculate spectral angles
lsat_sam <- sam(lsat, endmembers, angles = TRUE)
plot(lsat_sam)

## Classify based on minimum angle
lsat_sam <- sam(lsat, endmembers, angles = FALSE)
ggR(lsat_sam, forceCat = TRUE, geom_raster=TRUE) +
  scale_fill_manual(values = c("blue", "green"), labels = c("water", "vegetation"))+
  ggtitle("Spectral Angle Mapper")

而我得到的是：

其中，标题和图例太小了。

Answer 1

尝试以下操作：

p <- ggR(lsat_sam, forceCat = TRUE, geom_raster = TRUE) +
     scale_fill_manual(values = c("blue", "green"),
                       labels = c("water", "vegetation"))+
     ggtitle("Spectral Angle Mapper") +
     theme(plot.title = element_text(size=20),
           legend.title = element_text(size=15),
           legend.text = element_text(size=12))

在 ggR (RStoolbox) 中编辑标题和图例中的文本大小

Editing text size in title nad legend in ggR (RStoolbox)

r

raster

ggplot2