2013-03-07 5 views
15

Wydaje się bardzo trywialne, ale nie mogę odczytać w jpeg, lub jakiegokolwiek rodzaju obrazu w R 2,15. W wersji 2.10 mogłem to zrobić przy użyciu biblioteki rimage lub biblioteki ReadImage - na przykład z read.jpeg - ale wydaje się, że nie można tego zrobić w wersji 2.15 i nowszych. Jakieś przemyślenia na ten temat?jak odczytać.jpeg w R 2.15

library('ReadImages') 
Error in library("ReadImages") : there is no package called ‘ReadImages’ > 
install.packages('ReadImages') Installing package(s) into ‘C:/Program Files/R/R-2.15.1/library’ (as ‘lib’ is unspecified) 

Warning in install.packages : package ‘ReadImages’ is not available (for R version 2.15.1) 
+0

post jakiś kod. tj. co próbujesz zrobić i otrzymałeś komunikat o błędzie. 'PackageVersion (nazwa-pakietu)' i 'sessionInfo()' nie zaszkodzi ani –

+1

wydaje się, że 'rimage' i' ReadImage' są osierocone, ale ... 'library (" sos "); findFn ("{read jpeg}") 'znajduje także odpowiednie funkcje w pakietach' biOps' i 'jpeg'. Wypróbowałeś te? –

+0

> biblioteka ("ReadImages") Błąd w bibliotece ("ReadImages"): nie ma pakietu o nazwie "ReadImages" > install.packages ('ReadImages') Instalowanie pakietu (ów) w 'C:/Program Files/R/R-2.15.1/biblioteka ' (ponieważ' lib 'jest nieokreślona) Ostrzeżenie w pakiecie install.packages: pakiet' ReadImages 'jest niedostępny (w wersji R 2.15.1) – office206

Odpowiedz

31

Jak wskazano w komentarzach, wypróbuj pakiet jpeg.

install.packages("jpeg") ## if necessary 

library(jpeg) 
## get help 
library(help = jpeg) 
## get more help 
?readJPEG 

przykład z pomocą:

# read a sample file (R logo) 
img <- readJPEG(system.file("img", "Rlogo.jpg", package="jpeg")) 

Inną opcją jest rgdal, które można odczytać z masywnym bestiariusz formatach. Drukowanie i manipulacja są obsługiwane inaczej.

install.packages("rgdal") ## if necessary 
library(rgdal) 
img <- readGDAL(file.path(R.home(), "doc", "html", "logo.jpg")) 

Na CRAN znajduje się również pakiet readbitmap, zawsze warto przejrzeć listę pakietów, szukając tego, czego szukasz.

6

również:

## if not already installed 
install.packages("jpeg") 

library(jpeg) 

?readJPEG() 

img <- readJPEG("/Users/name/locationInFileDirectory/image.jpg", native = TRUE) 

#this will display your image to test you read it correctly 
if(exists("rasterImage")){ 
     plot(1:2, type='n') 
     rasterImage(img,1,1,2,2) 
}