从列表中绘制 tif 文件会导致错误：'x'是一个列表，但没有组件“x”；和'y'

Question

我安装了以下库：

library(rgdal)
library(raster)
require(sf)
library(ggplot2)
library(raster)
library(rgeos)
library(tidyverse)
library(leaflet)
library(sp)
library(bnspatial)

用于绘图的 tif 文件是通过导入的

#import tif-files
rlist=list.files(getwd(), pattern="tif$", full.names=FALSE)
for(i in rlist) { assign(unlist(strsplit(i, "[.]"))[1], raster(i)) }

> print(rlist)
 [1] "nightlight_3150.tif"   "nightlight_450.tif"    "population_1000.tif"  
 [4] "population_3000.tif"   "road_class_1_5000.tif" "road_class_2_100.tif" 
 [7] "road_class_2_25.tif"   "road_class_2_50.tif"   "road_class_3_300.tif" 
[10] "road_class_3_3000.tif" "trop_mean_filt.tif" 

我试图通过列表 tifs 绘制其中几个 tif 文件：

tifs = list(nightlight_3150, nightlight_450 、population_1000、population_3000）。

tif 文件列表将用于 for 循环。当我打印列表的第一项 tifs 时，我得到以下输出：

> print(tifs[1])
[[1]]
class      : RasterLayer 
dimensions : 2000, 2000, 4e+06  (nrow, ncol, ncell)
resolution : 3e-04, 3e-04  (x, y)
extent     : 4.5817, 5.1817, 52.0697, 52.6697  (xmin, xmax, ymin, ymax)
crs        : +proj=longlat +datum=WGS84 +no_defs 
source     : nightlight_3150.tif 
names      : nightlight_3150 
values     : 0, 97.12836  (min, max)

当我尝试绘制列表中的第一项时，我收到错误：

> plot(tifs[1])
Error in xy.coords(x, y, xlabel, ylabel, log) : 
  'x' is a list, but does not have components 'x' and 'y'

我尝试应用另一篇文章的建议解决方案（ 'x' 是一个列表，但是没有组件“x”和“y”）到我的代码。但是，这样做也会导致错误：

> plot(tifs[1]$(4.5817, 5.1817), tifs[1]$(52.0697, 52.6697))
Error: unexpected '(' in "plot(tifs[1]$("

从列表中绘制每个 tif 文件的正确方法是什么？

谢谢