Image 从网站加载图像
我正在尝试将一些化学结构图像添加到我创建的一些图中。我正在使用ACToR数据库访问化学结构。例如：Image 从网站加载图像,image,r,png,download,jpeg,Image,R,Png,Download,Jpeg,我正在尝试将一些化学结构图像添加到我创建的一些图中。我正在使用ACToR数据库访问化学结构。例如： library(png) casnums <- ("80-05-7","77-40-7","1478-61-1") image.list <- list() for(cas in casnums){ image.list[[cas]] <- readPNG(paste0("http://actor.epa.gov/actor/image?format=png%3Aw1000%
library(png)
casnums <- ("80-05-7","77-40-7","1478-61-1")
image.list <- list()
for(cas in casnums){
image.list[[cas]] <- readPNG(paste0("http://actor.epa.gov/actor/image?format=png%3Aw1000%2Ch1000&casrn=",cas))
}
library(png)
casnums <- ("80-05-7","77-40-7","1478-61-1")
image.list <- list()
for(cas in casnums){
image.list[[cas]] <- readPNG(paste0("http://actor.epa.gov/actor/image?format=png%3Aw1000%2Ch1000&casrn=",cas))
}
> library(png)
> search()
[1] ".GlobalEnv" "package:png" "tools:rstudio" "package:stats" "package:graphics" "package:grDevices"
[7] "package:utils" "package:datasets" "package:methods" "Autoloads" "package:base"
> con <- url("http://actor.epa.gov/actor/image?format=png%3Aw1000%2Ch1000&casrn=1478-61-1",open='rb')
> rawpng <- readBin(con, what='raw', n=1e6)
> close(con)
> png1 <- readPNG(rawpng)
Error in readPNG(rawpng) : libpng error: bad adaptive filter value
> ls()
[1] "con" "rawpng"
>库（png）
>搜索（）
[1] “.GlobalEnv”“包：png”“工具：rstudio”“包：stats”“包：图形”“包：grDevices”
[7] “包：utils”“包：数据集”“包：方法”“自动加载”“包：基”
>con rawpng关闭（con）
>png1ls（）
[1] “con”“rawpng”
download.filemode=“wb”pngdownload.file("http://actor.epa.gov/actor/image?format=png%3Aw1000%2Ch1000&casrn=80-05-7",
destfile="tmp.png", mode="wb")
download.filemode=“wb”pngdownload.file("http://actor.epa.gov/actor/image?format=png%3Aw1000%2Ch1000&casrn=80-05-7",
destfile="tmp.png", mode="wb")
为我工作。这里有一种方法对我来说适用于单个图像（它可以包装在循环中使用的函数中）：
需要一些猜测才能得到50000，这对于其他文件可能有所不同（实际上我应该使用48849，但是它很可能会在不同的文件之间发生变化）。以下是一种对单个图像有效的方法（它可以包装在一个函数中，以便在循环中使用）：
需要一些猜测才能得到50000，这可能与其他文件不同（实际上我本应使用48849，但很可能会在不同文件之间更改）。请注意，Bioconductor R软件包能够直接从URL加载图像并将其可视化：
library(EBImage)
img = readImage("path/to/your/image/file or URL")
display(img, method = "raster")
Andrzej请注意，Bioconductor R软件包能够直接从URL加载图像并将其可视化：
library(EBImage)
img = readImage("path/to/your/image/file or URL")
display(img, method = "raster")
Andrzej你看过下载文件了吗？您可以自动将图像下载到您选择的文件夹中，然后使用一些软件包读取png图像文件。@我刚刚尝试使用
download.filedownload.file("http://actor.epa.gov/actor/image?format=png%3Aw1000%2Ch1000&casrn=80-05-7“，destfile=“tmp.png”）？下载.filemode=“wb”download.file（“http://actor.epa.gov/actor/image?format=png%3Aw1000%2Ch1000&casrn=80-05-7“，destfile=“tmp.png”，mode=“wb”）？下载.file下载.file下载.file（“http://actor.epa.gov/actor/image?format=png%3Aw1000%2Ch1000&casrn=80-05-7“，destfile=“tmp.png”）？下载.filemode=“wb”download.file（“http://actor.epa.gov/actor/image?format=png%3Aw1000%2Ch1000&casrn=80-05-7“，destfile=“tmp.png”，mode=“wb”）readBin