The problem might be a failure to handle https properly by the underlying method used by R for downloading files. This can be verified by trying:
fname <- tempfile()
download.file("https://cran.uni-muenster.de/", destfile=fname)
file.remove(fname)
Then:
#先选择镜像,这里是清华镜像,然后安装
options("repos"=c(CRAN="https://mirrors.tuna.tsinghua.edu.cn/CRAN/"))
install.packages("BiocManager")