R Rasterband-Kombination zeigt nicht rgb

Question

Ich möchte ein RGB-Bild mit Kanälen aus verschiedenen Bildern komponieren.

Ich habe die folgenden drei Quelldateien (.png) (Sentinel 2 Satellitenbilder)

blue band, red band, green band

Mit dem folgenden Code, ich versuche, das neue Bild zu bauen.

install.packages('raster') 
library('raster') 

red <- raster('C:/Users/xy/Desktop/red.png') 
green <- raster('C:/Users/xy/Desktop/green.png') 
blue <-raster('C:/Users/xy/Desktop/blue.png') 

s <- stack(blue,green,red) 
plotRGB(s, r=3, g=2, b=1) 

Die Grundidee ist: Nehmen Sie die erste Band aus jeder Png-Quelldatei. Zuordnung der Bänder zu R, G und B.

Dies ist das Ergebnis des Verfahrens. enter image description here

Aber das Ergebnis ist nicht das erwartete Echtfarbenbild:

expected result

ich schon mit viel erfahrener R-Anwender gesprochen. Alle gesagt, dass es sollte funktionieren, aber es funktioniert nicht :-(

Ich würde mich freuen, wenn jemand meine Fehler hinweisen könnte oder könnte eine Idee für eine Lösung.

Answer 1

Soweit ich sehen kann, es funktioniert

Zoom Lassen sie uns in den Bereich mit Daten:.

e <- extent(c(95, 160, 0, 62)) 
s <- crop(s, e) 

Jetzt

plot(s) 

inspizieren

Und

pairs(s) 

Was Sie sehen, ist, dass die Werte in den drei Kanälen nahezu identisch sind. Wenn Sie in einem Pixel nahezu identische Werte für R, G und B haben, erhalten Sie eine graue Farbe (etwas zwischen Weiß und Schwarz). Das ist, was Sie bekommen, und das stimmt mit Ihren Daten überein. Es gibt wahrscheinlich ein Problem mit Ihren Daten.